Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.009 c
1-12422
Вованчик
2004-02-24 15:52
2004.03.05
Рекурсивная функция


14-12535
syte_ser78
2004-02-12 11:35
2004.03.05
Определение даты


7-12565
bvn123
2003-12-17 14:46
2004.03.05
Как организовать автозапуск приложения при подключении к USB


7-12552
KSergey
2003-11-02 08:07
2004.03.05
Буфер обмена


14-12517
syte_ser78
2004-02-12 17:43
2004.03.05
DVD+/-RW