/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 873
от 20.07.2007, 10:05

Вопрос № 95.113

Здравствуйте, уважаемые Эксперты! Подскажите, пожалуйста, как можно завершить процесс?

Отправлен: 14.07.2007, 10:04 Вопрос задал: Танасюк Олег Олегович (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 5)

Отвечает: Виктор Пырлик Здравствуйте, Танасюк Олег Олегович! Вы не указали конкретно что требуется, поэтому дам общий ответ: 1. функция TerminateProcess(hProcess:Cardinal, uExitCode:Cardinal):LongBool hProcess - описатель процесса uExitCode - сщв завершения если вернет не нуль, всё нормально, иначе, можно проверить ошибку вызвав функцию GetLastError() 2. ExitProcess(uExitCode:Cardinal) - завершает текущий процесс 3. ExitThread(uExitCode:Cardinal) - если это основной поток, приложение завершится. --------- Если ничего не помогло - надо читать инструкцию

Ответ отправил: Виктор Пырлик (статус: 9-ый класс) Ответ отправлен: 14.07.2007, 15:08 Оценка за ответ: 4 Комментарий оценки: Я знаю има процесса. Что необходимо сделать?

Отвечает: Shveps Здравствуйте, Танасюк Олег Олегович! На панели задач нажмите правую кнопку мыши. И в появившемся контестном меню выберете "Диспетчер задач". В самом диспетчере есть вкладка "Процессы". Вот там можно убить нужный вам процесс. Но будьте осторожны, так как можно убить системные процессы. Ещё панель вызывается нажатием Ctrl+Alt+Delete. --------- Пиво ф топку !!! Водку Тоже !!!

Ответ отправил: Shveps (статус: 3-ий класс) Ответ отправлен: 16.07.2007, 10:28

Вопрос № 95.130

Здравствуйте уважаемые эксперты. Подскажите пожалуйста как реализовать «красивые» кнопки. Я хочу использовать нарисованные jpeg или bmp картинки. С помощью Image я разместил на форме нужную мне картинку но как сменить эту картинку другую при движение и нажатии мыши на Image.

Отправлен: 14.07.2007, 13:41 Вопрос задал: Левадный Тимур Русланович (статус: 1-ый класс) Всего ответов: 7 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Dragon Здравствуйте, Левадный Тимур Русланович! Можно например так: procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image1.Picture.LoadFromFile('c:end; procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image1.Picture.LoadFromFile('c:end; procedure TForm1.FormCreate(Sender: TObject); begin Image1.Picture.LoadFromFile('c:end; Можно сделать третий рисунок при перемещении указателя мыши по Image запихав на: procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

Ответ отправил: Dragon (статус: 2-ой класс) Ответ отправлен: 14.07.2007, 14:03 Оценка за ответ: 5 Комментарий оценки: но тогда пидется перетаскивать файля за экзешниеом

Отвечает: Дмитрий С. Здравствуйте, Левадный Тимур Русланович! используй SpeedButton. Там есть свойство GLYTH. В нём можно указать путь к графическому файлу, желательно BMP. Удачи! C Ув. SHERRY --------- Наши программисты самые программистые программисты!..

Ответ отправил: Дмитрий С. (статус: 3-ий класс) Ответ отправлен: 14.07.2007, 14:51 Оценка за ответ: 4 Комментарий оценки: GLYTH не закрывает кнопку полность как мне хотелось бы

Отвечает: W@NDeReR Здравствуйте, Левадный Тимур Русланович! Используйте следующие события у Image: onMouseDown - нажатие кнопки мыши на Image onMouseUp - отпускание кнопки мыши на Image onMouseMove - движение мыши по Image Для того чтобы сменить картинку делаем следующее: Image1.Picture.LoadFromFile('Имя картинки'); Или еще можно воспользоваться компанентом ImageList с вкладки Win32, загружаете в него необходимы картинки затем по перечисленым выше событиям пишите это изменяя 4-ый параметр: Image1.Picture:=nil; Imagelist1.Draw(Image1.Canvas,0,0,0);// 4-ый параметр это индекс картинки в ImageList Достоинство этого метода в том что рисунки всегда в программе их не надо таскать вместе с программой 2-а работающих примера в приложении. Приложение: //Пример 1 //название картинок может отличаться от ваших unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image1.Picture.LoadFromFile('Down.bmp'); end; procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Image1.Picture.LoadFromFile('Move.bmp'); end; procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image1.Picture.LoadFromFile('Up.bmp'); end; end. //Пример 2 //и используя ImageList unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; ImageList1: TImageList; procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image1.Picture:=nil; Imagelist1.Draw(Image1.Canvas,0,0,1); end; procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Image1.Picture:=nil; Imagelist1.Draw(Image1.Canvas,0,0,0); end; procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image1.Picture:=nil; Imagelist1.Draw(Image1.Canvas,0,0,2); end; end. --------- Опыт — дитя мысли, а мысль — дитя действия. Нельзя учиться по книгам.

Ответ отправил: W@NDeReR (статус: 5-ый класс) Ответ отправлен: 14.07.2007, 15:39 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо, то что нужно

Отвечает: Coupler Здравствуйте, Левадный Тимур Русланович! Недавно отвечал на вопрос 94537 - посмотрите ответы, скачайте пример. Код приложения с картинками в ImageList в приложении. (к image добавлены новые события - MouseEnter - когда мышь входит в пределы визуального компонента и MouseLeave - когда мышь оставляет его пределы). Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, bsImage, ImgList; type TForm1 = class(TForm) Image1: TbsImage; ImageList1: TImageList; procedure FormCreate(Sender: TObject); procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image1MouseEnter(Sender: TObject); procedure Image1MouseLeave(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end; var Form1: TForm1; bm: TBitmap; pic:TPicture; inimage:boolean; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin pic:=TPicture.Create; bm := TBitmap.Create; bm.LoadFromFile('up.bmp'); form1.ImageList1.AddMasked(bm,clBlack); bm.LoadFromFile('down.bmp'); form1.ImageList1.AddMasked(bm,clBlack); bm.LoadFromFile('in.bmp'); form1.ImageList1.AddMasked(bm,clBlack); bm.Free; end; procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin form1.ImageList1.GetBitmap(1,Pic.Bitmap); form1.Image1.Picture:=pic; image1.Repaint; end; procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if inimage then form1.ImageList1.GetBitmap(2,Pic.Bitmap) else form1.ImageList1.GetBitmap(0,Pic.Bitmap); form1.Image1.Picture:=pic; end; procedure TForm1.Image1MouseEnter(Sender: TObject); begin inimage:=true; form1.ImageList1.GetBitmap(2,Pic.Bitmap); form1.Image1.Picture:=pic; end; procedure TForm1.Image1MouseLeave(Sender: TObject); begin inimage:=false; form1.ImageList1.GetBitmap(0,Pic.Bitmap); form1.Image1.Picture:=pic; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin pic.Free; end; end.

Ответ отправил: Coupler (статус: Практикант) Ответ отправлен: 14.07.2007, 17:56 Оценка за ответ: 5 Комментарий оценки: спасибо

Отвечает: Градов Юрий Михайлович Здравствуйте, Левадный Тимур Русланович! Зарегистрируйте компонент из приложения. Этот компонент добавляет к Image новые свойства: onMouseLeave (стрелка курсора покидает компонент) и onMouseEnter (курсор мышки над компонентом). Также используйте onMouseDown, onMouseUp и используйте ImageList, как подсказали предыдущие эксперты. Пример: procedure TForm1.N_Image1MouseLeave(Sender: TObject); begin N_Image1.Picture:=nil; Imagelist1.Draw(N_Image1.Canvas,0,0,1); end; procedure TForm1.N_Image1MouseEnter(Sender: TObject); begin N_Image1.Picture:=nil; Imagelist1.Draw(N_Image1.Canvas,0,0,2); end; procedure TForm1.N_Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin N_Image1.Picture:=nil; Imagelist1.Draw(N_Image1.Canvas,0,0,3); end; procedure TForm1.N_Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin N_Image1.Picture:=nil; Imagelist1.Draw(N_Image1.Canvas,0,0,2); end; Приложение: unit New_Image; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TN_Image = class(TImage) private { Private declarations } FOnMouseLeave: TNotifyEvent; FOnMouseEnter: TNotifyEvent; procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER; procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE; protected { Protected declarations } public { Public declarations } published { Published declarations } property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave; property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter; end; procedure Register; implementation procedure Register; begin RegisterComponents('Samples', [TN_Image]); end; { N_Image } procedure TN_Image.CMMouseEnter(var Message: TMessage); begin if Assigned(FOnMouseEnter) then FOnMouseEnter(Self); end; procedure TN_Image.CMMouseLeave(var Message: TMessage); begin if Assigned(FOnMouseLeave) then FOnMouseLeave(Self); end; end. --------- Глаза боятся - руки делают!

Ответ отправил: Градов Юрий Михайлович (статус: Студент) Ответ отправлен: 14.07.2007, 19:52 Оценка за ответ: 5 Комментарий оценки: спасибо

Отвечает: Shveps Здравствуйте, Левадный Тимур Русланович! У многих объектов есть события по действию мыши. Например: OnDoubleClick, OnMouseMove, OnMouseDown, OnMouseUp. В вашем случае подойдут обработчики OnMouseMove, OnMouseDown, OnMouseUp. OnMouseDown событие вызывается, если вы нажали на объекте клавишу мыши, а OnMouseUp - отжали. --------- Пиво ф топку !!! Водку Тоже !!!

Ответ отправил: Shveps (статус: 3-ий класс) Ответ отправлен: 16.07.2007, 10:36 Оценка за ответ: 4 Комментарий оценки: Спасибо

Отвечает: Василенко Алексей Васильевич Здравствуйте, Левадный Тимур Русланович! возможным решением проблемы может служить Image1.Picture.LoadFromFile('pic123.bmp'); попишите соответствующие обработчики в интересующих событиях --------- Готовых решений небыло, нет и не будет... вся жизнь - это лишь размышления на тему

Ответ отправил: Василенко Алексей Васильевич (статус: 3-ий класс) Ответ отправлен: 16.07.2007, 18:39 Оценка за ответ: 4 Комментарий оценки: Спасибо

Вопрос № 95.178

Здравствуйте, уважаемые эксперты. Я недавно задавал вопрос, который очень похож на этот. Его адрес: Ссылка [И. К. Цикалов] Так вот, в том вопросе я спрашивал о реализации переименования только одного файла за раз. Сейчас же я хочу узнать, как реализовать множественное переименование за раз. Заранее благодарен.

Отправлен: 15.07.2007, 06:20 Вопрос задал: Пастарнаков Роман (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 6)

Отвечает: Denisss Здравствуйте, Пастарнаков Роман! Пример см. в приложении. Удачи! Приложение: procedure TForm1.Button5Click(Sender: TObject); var i: Integer; begin with TOpenDialog.Create(Self) do try Options:= Options + [ofAllowMultiSelect]; InitialDir:= '.'; if not Execute then Exit; for i:= 0 to Pred(Files.Count) do if not RenameFile(Files[i], StringReplace(Files[i], '_', #32, [rfReplaceAll, rfIgnoreCase])) then ShowMessage(Format('Не удалось переименовать файл "%s"', [Files[i]])); finally Free; end; end;

Ответ отправил: Denisss (статус: Профессионал) Россия, Москва WWW: Хлама много, по сути ничего... ---- Ответ отправлен: 15.07.2007, 11:58 Оценка за ответ: 5

Отвечает: Gh0stik Здравствуйте, Пастарнаков Роман! Предлагаю, Вам еще такой способ - поиск файлов по маске в соответствующем каталоге: procedure TForm1.Button1Click(Sender: TObject); var fp: TSearchRec; path:string; begin path:='D:ProjectFind_file ChDir(path); {переходим в соответствующий каталог} if findfirst('*.*',faAnyFile,fp)=0 then {обрабатываем ВСЕ файлы - поскольку маска *.*, если Вам допустим необходимо переименовать только текстовые, то можно просто маску записать в виде *.txt} repeat if (fp.name<>'.') and (fp.name<>'..') then if FileExists(fp.name) then RenameFile(fp.name,StringReplace(fp.name, '_', #32, [rfReplaceAll, rfIgnoreCase])) {непосредственно переименование} until findnext(fp)<>0; end; Good Luck!!! --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Профессор) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 15.07.2007, 12:29 Оценка за ответ: 5

Отвечает: Градов Юрий Михайлович Здравствуйте, Пастарнаков Роман! Код этой программы заносит все файлы из выбранной директории в Memo1, а Вы будете делать пофайловое переименование. Вам уже ее подсказали. Приложение: procedure TForm1.Button1Click(Sender: TObject); var meDir,meName: string; meAttr: integer; SR: TSearchRec; begin if OpenDialog1.Execute then begin meDir:=ExtractFilePath(OpenDialog1.FileName); { meName:=Copy(OpenDialog1.FileName,1,Length(OpenDialog1.FileName)-4)+ Edit1.Text;} // meName:=Edit1.Text; meName:=*.*; //маска поиска Label1.Caption:=meName; Case RadioGroup1.ItemIndex of 0: meAttr:=faReadOnly; 1: meAttr:=faHidden; 2: meAttr:=faSysFile; 3: meAttr:=faVolumeID; 4: meAttr:=faDirectory; 5: meAttr:=faArchive; 6: meAttr:=faAnyFile; end; Memo1.Lines.Clear; if FindFirst(meName,meAttr,SR)=0 then repeat Memo1.Lines.Add(SR.Name); until FindNext(SR)<>0; end; end; --------- Глаза боятся - руки делают!

Ответ отправил: Градов Юрий Михайлович (статус: Студент) Ответ отправлен: 15.07.2007, 12:39 Оценка за ответ: 5

Отвечает: Виктор Пырлик Здравствуйте, Пастарнаков Роман! В приложении приведен рабочий код. Для его работы, необходимо, в секцию uses добавить FileCtrl. В приведенном коде реализован рекурсивный поиск, и переименование файлов по маске – как имени, так и непосредственно самих замен. В классе формы, в секции public, объявлена процедура: procedure FindFiles(name_dir,mask,symbol_old,symbol_new:String;recurs:bool=false); реализация в приложении, где также, приведен код запуска этой процедуры – метод procedure TForm1.btnOpenFileClick(Sender: TObject); // событие кнопки Button Приложение: //-------------------------------------- { функция поиска файлов и каталогов по маске name_dir - каталог с которого ищем mask - маска поиска symbol_old - что меняем symbol_new - на что меняем recurs - искать рекурсивно или нет по умолчанию false } procedure TForm1.FindFiles(name_dir,mask,symbol_old,symbol_new: String; recurs: bool); var SR:TSearchRec; count:integer; sname:String; begin SetCurrentDir(name_dir); //устанавливаем директорию поиска count := FindFirst(mask,faAnyFile,SR);// устанавливаем в начало поиск while(count = 0) do begin if( (SR.Name <>'.')and (SR.Name <>'..'))then // если не корневые директории begin if(SR.Attr <> faDirectory) then begin {замена строки} sname := StringReplace(SR.Name, symbol_old, symbol_new, [rfReplaceAll, rfIgnoreCase]); RenameFile(SR.Name, sname); // перименование end else if(SR.Attr = faDirectory)then//если директория - уходи в рекурсию begin FindFiles(SR.Name,mask,symbol_old,symbol_new,recurs); SetCurrentDir(name_dir); end; end; count := FindNext(SR);// продолжаем поиск end; FindClose(SR); // закрываем поиск end; //---------------------------------------------- procedure TForm1.btnOpenFileClick(Sender: TObject); var dir, mask,symbol_old,symbol_new :String; recur:bool; begin mask := '*.*'; // Можно присваивать из TEdit symbol_old := '_'; // Можно присваивать из TEdit symbol_new := #32; // Можно присваивать из TEdit или еще как... recur := true; // Можно, например, присвоить значение CheckBox.Checked if(SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],100)) then //выбор каталога поиска FindFiles( dir,mask,symbol_old,symbol_new,CheckAll.Checked); // вызов функции замены end; --------- Если ничего не помогло - надо читать инструкцию

Ответ отправил: Виктор Пырлик (статус: 9-ый класс) Ответ отправлен: 15.07.2007, 13:11 Оценка за ответ: 5

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.53 beta от 09.07.2007
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru