Kısayol Oluşturma

[morphine39]

Arkadaşlar Merhaba

Herkeze kolay gelsin

Yapmak istediğim olay şu

Bir lnk dosyası oluşturmak istiyorum. Parametre olarak bir klasörü göndericem
Daha sonra bu kısayolu çalıştırdığımda bazı dosyaları parametre olarak göndereceğim klasöre kopyalıcak

Ama şöle bi durum var
Parametre olarak dizini gönderiyorum. Kopyalamayı da yapıyorum
Fakat ben otomatik olarak lnk dosyası oluşturmak istiyorum.
Yani şu dizin için kısayol oluştur seçeneği koyduğumda otomatik olarak masaüstüne kısayol oluşturmak istiyorum

Bunu nasıl yapabilirim..

Yardımlarınız için şimdiden teşekkürler

[CiTiZEN]

şöyle bir kod buldum ama dosyada başarılı, klasör denemedim hiç

Kod: Tümünü seç

Uses ShlObj,ActiveX,ComObj;

procedure CreateLink(Target, Args, WorkDir, ShortCutName: string);
var
IObj: IUnknown;
Link: IShellLink;
IPFile: IPersistFile;
TargetW: WideString;
begin
IObj := CreateComObject(CLSID_ShellLink);
Link := IObj as IShellLink;
IPFile := IObj as IPersistFile;

with Link do
begin
SetPath(PChar(Target));
SetArguments(PChar(Args));
SetShowCmd(SW_SHOWMINIMIZED);
SetWorkingDirectory(PChar(WorkDir));
end;
TargetW := ShortCutName;
IPFile.Save(PWChar(TargetW), False);
end;
Örnek Kullanım:

CreateLink('C:\program\prg.exe','','', 'C:\program.lnk');

[morphine39]

eywallah hocam

Çok makbule geçti. Teşekkürler

Test Ettim İstediğim gibi çalışıyor