Текущий архив: 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.013 c
