Być może dla Was to błachy problem, ale nie znam budowy skrótów w systemie Windows. Otóż pytanie: jak mogę programowo stworzyć skrót do jakiegoś pliku (chcę zrobić instalator). Proszę o mądre wypowiedzi.
0
0
Jest w FAQ...http://4programmers.net/view_faq.php?id=44
0
procedure TForm1.Button1Click(Sender: TObject);
var
IObject : IUnknown;
ISLink : IShellLink;
IPFile : IPersistFile;
PIDL : PItemIDList;
InFolder : array[0..MAX_PATH] of Char;
TargetName : String;
LinkName : WideString;
begin
TargetName := sciezka_do_programu;
IObject := CreateComObject(CLSID_ShellLink);
ISLink := IObject as IShellLink;
IPFile := IObject as IPersistFile;
with ISLink do
begin
SetPath(pChar(TargetName));
SetWorkingDirectory
(pChar(ExtractFilePath(TargetName)));
end;
if skrot.Checked then
begin
LinkName := sciezka +plik.lnk;
IPFile.Save(PWChar(LinkName), false);
end;
IPFile.Save(PWChar(LinkName), false);
end;
0
Wielkie Thanx chłopaki! Miałem podobny kod jak próbowałem to zrobić, tylko źle wykorzystywałem objekty OLE! Jeszcze raz ThanX!!!!