| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как создать ярлык на форме? [D6, WinXP]
ShadoWFM © (2003-08-24 21:29:00)
Как создать ярлык какой-нибудь проги на форме?????
ShadoWFM (2003-08-27 21:25:00) [1]
DVM ......... nu tak ti napishi pogaluista
KosilkA (2003-08-27 11:38:00) [2]
> Snap © (26.08.03 20:27) [4]
> Это имелось ввиду на HTML форме ;)
да поможет нам тэг<script language="Delphi 6.0">
Snap (2003-08-26 20:27:00) [3]
Это имелось ввиду на HTML форме ;)
DVM (2003-08-26 20:25:00) [4]
Никак. Именно ярлык и именно на форме никак.
А вот разместить на форме ListView и добавить в него итем со значком, и сделать так, чтобы при щелчке по нему что-то запускалось - это можно. Можно даже перетаскивание сделать. Но про это не спрашивали.
> default © (24.08.03 22:04) [2]
это не на форме это на диске:)))
default (2003-08-24 22:04:00) [5]
Автор: Gavrilo
uses ShlObj, ComObj, ActiveX;
procedure CreateLink(const PathObj, PathLink, Desc, Param: string);
var
IObject: IUnknown;
SLink: IShellLink;
PFile: IPersistFile;
begin
IObject := CreateComObject(CLSID_ShellLink);
SLink := IObject as IShellLink;
PFile := IObject as IPersistFile;
with SLink do begin
SetArguments(PChar(Param));
SetDescription(PChar(Desc));
SetPath(PChar(PathObj));
end;
PFile.Save(PWChar(WideString(PathLink)), FALSE);
end;
http://forum.vingrad.ru
Anatoly Podgoretsky (2003-08-24 21:52:00) [6]
ShellExecute
| |
