// Desktop'a kisa yol olusturmak icin }
//ozgurfidan@email.com tüm sorunlarınız için e mail atabilirsiniz
//www.sevgi.get.to
if slDesktop in Locations then
begin
Directory := MyReg.ReadString('Shell Folders','Desktop','');
WFileName := Directory+ '\' + Description + '.lnk';
MyPFile.Save(PWChar(WFileName),False);
end;
//Start Menu icin
if slStartMenu in Locations then
begin
Directory := MyReg.ReadString('Shell Folders','Programs','');
{ Alt Klasörde olusturmak icin:
Directory = Directory + '\KlasorAdi';
CreateDir(Directory);
}
WFileName := Directory+ '\' + Description + '.lnk';
MyPFile.Save(PWChar(WFileName),False);
end;
// QuickLaunch icin
if slQuickLaunch in Locations then
begin
Directory := MyReg.ReadString('Shell Folders','Appdata','');
WFileName := Directory +
'\Microsoft\Internet Explorer\Quick Launch\' +
Description + '.lnk';
MyPFile.Save(PWChar(WFileName),False);
end;
MyReg.Free;
end;
// Kullanimi:
procedure TForm1.Button1Click(Sender: TObject);
begin
// Desktop, Start Menu ve Quick Launch'da olustur
CreateShortCut('Not defteri', 'c:\windows\notepad.exe', 'c:\windows\',
[slDesktop, slStartMenu, slQuickLaunch]);
// Sadece Desktop ve Quick Launch'da olustur
CreateShortCut('Not defteri', 'c:\windows\notepad.exe', 'c:\windows\',
[slDesktop, slQuickLaunch]);
end;
//ozgurfidan@email.com tüm sorunlarınız için e mail atabilirsiniz
//www.sevgi.get.to