Форум: "Основная";
Текущий архив: 2002.07.18;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.006 c