Ярлыки

← →
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;

Место моего Фара пишешь путь к программе которую нужно запустить.

Ярлыки Найти похожие ветки