kıssa yol oluşturma

[murcanlat]

merhaba arkadaşlar
install programı yapmaya çalışıyorum bunu çoğu şeyini yaptım ama bir türlü kıssa yol oluşturmayı başaramadım bana yardımcı olabilirmisiniz
İlgilendiğiniz için teşekkürler

[vedatkaba]

elimde hazır vardı işine yarar belki.......

Kod: Tümünü seç

procedure gy_create_kisayol(p_kisayol,p_exe,p_caption,p_param: string);
var
  IObject : IUnknown;
  ISLink : IShellLink;
  IPFile : IPersistFile;
  PIDL : PItemIDList;
  LinkName : widestring;
begin
  IObject := CreateComObject(CLSID_ShellLink);
  ISLink := IObject as IShellLink;
  IPFile := IObject as IPersistFile;

  with ISLink do begin
    SetArguments(pchar(p_param));
    SetPath(pChar(p_exe));
    SetWorkingDirectory(pChar(ExtractFilePath(p_exe)));
  end;

  SHGetSpecialFolderLocation(0, CSIDL_DESKTOPDIRECTORY, PIDL);
  LinkName :=p_kisayol+'\'+p_caption+'.lnk';
  IPFile.Save(PWChar(LinkName), false);
end;

[murcanlat]

yaa bu koda eklenecek uses dosyası falan varmı hata veriyoda

[vedatkaba]

Kod: Tümünü seç

ShlObj,ActiveX,ComObj;[/list]

bunlar olması lazım..kolay gelsin