Neler yeni
Türkiye'nin En Güncel Forum Sitesi

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

masa üstüne kısa yol oluşturma

ByOnur58

Kayıtlı Üye
MFC Üyesi
  • Üyelik Tarihi
    7 Ocak 2015
  • Mesajlar
    2,114
  • MFC Puanı
    10
  • MFC Seviyesi

if slDesktop in ********s then
begin
Directory := MyReg.ReadString('Shell Folders','Desktop','');
WFileName := Directory+ '\' + Description + '.lnk';
MyPFile.Save(PWChar(WFileName),False);
end;
//Start Menu icin
if slStartMenu in ********s 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 ********s 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;
 
Üst Alt