| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Ярлыки [D6, Win95/98, WinME]

nexus ©   (2002-07-08 16:32:00) 

Как загрузить на форму ярлыки. Клик на которого призводит
до запуска етого ярлыка.

---

delta   (2002-07-08 17:48:00) [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;


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

---

Наверх