Главная страница
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.019 c
3-12241
АМБ
2004-02-09 16:35
2004.03.05
Индексация по Calculated Field


14-12539
stone
2004-02-13 10:17
2004.03.05
Пользователям Интернета придется


14-12512
Style
2004-02-11 13:00
2004.03.05
Вопрос по TWinControl


3-12299
Relaxxx
2004-02-09 14:23
2004.03.05
Возможно ли как-то связать два датаСета и отображать их...


3-12292
denis24
2004-02-06 17:22
2004.03.05
dbedit