Delphi ile masaüstü yolunu alma

[Administrator]

Merhaba arkadaşlar,

Delphi xe* sürümleriyle masaüstü yolunu nasıl alabileceğimize ilişkin örnek kod...

Öncelikle gerekli tanımlamaları yapıyoruz;

Kod:

uses      ShlObj, ComObj, ActiveX,

Masasüstü yolunu almak için;

Kod:

procedure TForm1.Button1Click(Sender: TObject);
var
 PIDL: PItemIDList;
 Path: array[0..MAX_PATH] of Char;
begin
SHGetSpecialFolderLocation(Handle, CSIDL_DESKTOP, PIDL);
 SHGetPathFromIDList(PIDL, Path);
 showmessage('Masaüstü yolu : ' + StrPas(Path));
end;