Wstawaianie skrótów do instalatora

0

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
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!!!!

1 użytkowników online, w tym zalogowanych: 0, gości: 1