Текущий архив: 2002.07.18;
Скачать: CL | DM;
Вниз
Ярлыки Найти похожие ветки
← →
nexus © (2002-07-08 16:32) [0]Как загрузить на форму ярлыки. Клик на которого призводит
до запуска етого ярлыка.
← →
delta © (2002-07-08 17:48) [1]Насчёт ярлыков не знаю но есть идейка: помещаешь на форму компонент Image или ImageList, подключаешь иконку, для обработчика OnClick пишеш:
procedure TForm1.Image1Click(Sender: TObject);
var TSI:TStartupInfo;
TPI:TProcessInformation;
begin
CreateProcess (nil,PChar("C:\Program Files\Far\Far.exe"), nil, nil, false,
normal_priority_class, nil, nil, TSI, TPI);
end;
Место моего Фара пишешь путь к программе которую нужно запустить.
Страницы: 1 вся ветка
Текущий архив: 2002.07.18;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.011 c
