Samanalevi Netkafe Anasayfa

Desktop, Quick Launch Veya Start Menu'de Kisayol

Sosyal Ağ Paylaşımı :                                

	Ekleyen : seasparrow Zaman : 27 Haziran 2005 Okunma : 1223 Yorumlar : 0 - Yorumları Oku - Yorum Yaz

Desktop, Quick Launch veya Start Menu'de kisa yol yaratmak
{
uses bolumune asagidaki unit'leri ekleyin:
ShlObj, ComObj, ActiveX, registry
}

type
TShortCutLocation = (slDesktop, slStartMenu, slQuickLaunch);
TShortCutLocations = set of TShortCutLocation;

procedure CreateShortCut(Description, ApplicationPath, StartFolder: string;
          Locations: TShortCutLocations);
var
MyObject : IUnknown;
MySLink   : IShellLink;
MyPFile   : IPersistFile;
Directory : string;
WFileName : WideString;
MyReg     : TRegIniFile;
begin
MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;

with MySLink do begin
   { Parametreler icin kullanilabilir:
     SetArguments(PChar(ApplicationPath));
   }
   MySLink.SetPath(PChar(ApplicationPath));
   SetRelativePath(PChar(StartFolder),0);
   SetWorkingDirectory(PChar(StartFolder));
   SetDescription(PChar(Description));
   SetIconLocation(PChar(ApplicationPath),0);
end;
MyReg := TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer');

// Desktop'a kisa yol olusturmak icin }
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;

Konuya Ait Yorumlar

Şu an yorum yazılmamış!..

İlginizi Çekebilecek Konular
Başlık	Ekleyen
Alt Klasörlerde Dosya Aratıp Listeletmek	seasparrow
Tüm Yazılar Küçük Harfle Nasıl Yazılır.	beykozlu
Renklerin Hex Değerini Bulmak	seasparrow
Cd Sürücüyü Kapatıp Açmak	seasparrow
Tıtle Bar Nasıl Yanıp Söner.	beykozlu
Sql Tek Tablodan Sorgulamalar	beykozlu
Vısual Basıc'de Kontrol Komutları	beykozlu
Vb 'de Verı Yapıları	beykozlu
Ip Adreslemeye Bakış	seasparrow
Programın Windowsla Birlikte Açılması	seasparrow
C# Ta Menülerı Kopyalama	onur_1518
Sql Tablolarda Değişiklik Yapmak	beykozlu
Sqlde Aritmetiksel İfade Ve Fonksiyonlar	beykozlu
Algoritmalar	seasparrow
Dikine Uzanan Label Nasıl Yazılır	beykozlu
Taskbarı Gizlemek	seasparrow
Tüm Textbox'lar Temızlensın	beykozlu
Text1 İçeriği Tex' Ye Nasıl Kopyalanır	beykozlu
Explorerda Bir Web Sitesini Açma	seasparrow
Karakter İşleme	seasparrow