Текущий архив: 2004.03.05;
Скачать: CL | DM;

Вниз

Файлы в Popupmenu   Найти похожие ветки 

← →
Ivolg ©   (2004-02-23 10:58) [0]

Хелп плиз!как можно найти впапке файлы определённого типа например
*.exe потом название этих файлов поместить в Popupmenu(нужно создать item"ы) и чтобы при клике на popupmunu(название файла)открывался файл под названием котарое кликнули в popupmenu? БОЛЬШОЕ СПАСИБО!

---

← →
Defunct ©   (2004-02-23 13:57) [1]

Поиск файлов:
FindFirst/FindNext

Добавление пункта меню:
PopupMenu.Items.Add();

Запуск файла:
ShellExecute(Handle, nil,
PChar("Имя файла"),
PChar("Каталог запуска"),
nil,
SW_SHOWNORMAL);

---

← →
Defunct ©   (2004-02-23 14:13) [2]

Там у Вас, на мой взгляд, единственная трудность будет с запуском файла по клику на пункт меню. Опишите процедуру запуска файла:

Procedure Form1.RunExeFile(Sender:TObject);
Var Dir : String;
Begin
If Sender is TMenuItem Then
With Sender as TMenuItem Do
Begin
If FileExists(Caption) Then
Begin
Dir := ExtractFilePath(Caption);
ShellExecute(Handle, nil,
PChar(Caption),
PChar(Dir),
nil,
SW_SHOWNORMAL);
End;
End;
End;

И назначайте ее при создании пукта меню:
..
With MenuItem.Create(PopupMenu) Do
Begin
OnClick := RunExeFile;
Caption := FileName;
..
End;

---

← →
Wizard_Ex ©   (2004-02-23 14:37) [3]

Поищите на http://www.podgoretsky.com/
информацию про рекурсивный поиск/ или просто поиск
тут делать просто нечего

---

Страницы: 1 вся ветка

Текущий архив: 2004.03.05;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.012 c