ShortCut oluşturma #KAYNAK#

[hmustak]

procedure desktopShortcut(ffilename:string; fcaption: widestring);
var
IObject : IUnknown;
ISLink : IShellLink;
IPFile : IPersistFile;
PIDL : PItemIDList;
InFolder : array[0..MAX_PATH] of Char;
TargetName : String;
LinkName : WideString;
FLinkName : String;
begin
TargetName := ffilename;

IObject := CreateComObject(CLSID_ShellLink);
ISLink := IObject as IShellLink;
IPFile := IObject as IPersistFile;

with ISLink do begin
SetPath(pChar(TargetName));
SetWorkingDirectory
(pChar(ExtractFilePath(TargetName)));
end;

SHGetSpecialFolderLocation
(0, CSIDL_DESKTOPDIRECTORY, PIDL);
SHGetPathFromIDList
(PIDL, InFolder);
FlinkName := '\'+ FCaption + '.lnk';
LinkName := InFolder + FlinkName;
IPFile.Save(PWChar(LinkName), false);
end;

//Kullanımı:
DesktopShortcut('C:/sedatatif/hmustak.exe','Notepad');





@sedat
Senin şu topikdeki soru için modifiye edilebilir gibi :)

[hmustak]

@sedat
denedin mi?

[Sedat Atif]

Bunu denemedim ama deneyeceğim.

Yalnız bir gelişme var. İşte burda : http://forum.ceviz.net/showthread.php?s=&threadid=1549

[hmustak]

bakdım ama biraz hayal kırıklığı yaşadım...

[Sedat Atif]

Bir daha bak: http://forum.ceviz.net/showthread.php?s=&threadid=1549

[hmustak]

:cool:

:super:

[xxlxxl]

slm.. BU LNK komutunu jpg uzantılı yapıp programı jpg olarak nasıl çalıştırırız olmz demeyin elimde hazır program var ama mantını çözemedim.. adam exe dosyasını jpg olarak değiştirmiş ve tıklayınca exe olarak çalışıyor.
msn den ulaşmak için milk.inc@mynet.com