kısayol oluşturma

[delphikursu]

benim yaptıgım program CDden çalışıyor autorun koydum CD takdığında program otomatik çalışıyor ama masaüstünede kısayol koymak istiyorum installshet programıyla DBE programını kurmak için kullandım programı kopyalamadığımdan kısayolda ekleyemdim exe dosyayındada çalıştıgında kısayol eklesem benim için olur

[salvation]

Kod: Tümünü seç

uses
  ShlObj, ActiveX, ComObj, Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyObject  : IUnknown;
  MySLink   : IShellLink;
  MyPFile   : IPersistFile;
  FileName  : String;
  Directory : String;
  WFileName : WideString;
  MyReg     : TRegIniFile;
begin
  MyObject := CreateComObject(CLSID_ShellLink);
  MySLink := MyObject as IShellLink;
  MyPFile := MyObject as IPersistFile;
  FileName := 'NOTEPAD.EXE';
  with MySLink do begin
    SetArguments('C:\AUTOEXEC.BAT');
    SetPath(PChar(FileName));
    SetWorkingDirectory(PChar(ExtractFilePath(FileName)));
  end;
  MyReg := TRegIniFile.Create(
    'Software\MicroSoft\Windows\CurrentVersion\Explorer');

// Use the next line of code to put the shortcut on your desktop
  Directory := MyReg.ReadString('Shell Folders','Desktop','');

// Use the next three lines to put the shortcut on your start menu
//  Directory := MyReg.ReadString('Shell Folders','Start Menu','')+
//      '\Whoa!';
//  CreateDir(Directory);

  WFileName := Directory+'\FooBar.lnk';
  MyPFile.Save(PWChar(WFileName),False);
  MyReg.Free;
end;

[delphikursu]

teşşekürler oldu kolay gelsin

[delphikursu]

yardımlarınızdan dolayı allah razı olsun
birde şöyle bir sorum olaçak

bu oluşturduğumu kısayolun adresini komutla nasıl ögrenebiliriz
örnek c:\deneme\çalış.exe olarak

[husonet]

http://delphi.about.com/od/windowsshell ... 72704a.htm

Kolay Gelsin...