Kısayol Dosyası

[akgun83]

Merhabalar,
Program içinden herhangi bir dosyanın kısayolunu istediğimiz bir dizinde oluşturabilirmiyiz?

[mussimsek]

viewtopic.php?t=315

NOT : Arama size zaman kazandırır

Kolay gelsin.

[mege]

bende merak edip baktım.
TStShortcut componenti ile (Turbopowerin) kolaylıkla yapabiliyormuşşsun.
Example klasöründe
...Delphi7\tpshellshock_1_02\examples\Delphi\ExsCut.dpr
'den alıtnı:

Kod: Tümünü seç

// Kısa yolu oluşturulacak olan dosyayı seçiyorsun
procedure TForm1.OpenBtnClick(Sender: TObject);
begin
  if OpenDialog.Execute then
    if UpperCase(ExtractFileExt(OpenDialog.FileName)) = UpperCase('.LNK') then begin
      StShortCut1.ShortcutFileName := OpenDialog.FileName;
      CreateBtn.Enabled := False;
      Resolve;
    end else begin
      StShortcut1.FileName := OpenDialog.FileName;
      CreateBtn.Enabled := True;
    end;
end;

// sonra oluştur..
procedure TForm1.CreateBtnClick(Sender: TObject);
begin
  if not StShortcut1.CreateShortcut then
    MessageDlg('Hoppala abi problem var.', mtError, [mbOk], 0)
  else
    MessageDlg('Yaptım yaptım yaptım işte!', mtinformation, [mbOk], 0);
end;

[akgun83]

teşekkürler hallettim.
yalnız bide StShortcut1.StartInDir ında atanması lazım yoksa kısayol oluşuyor ama çalışmıyor.