Kod:
uses ShlObj, ActiveX; function DizinAl(Klasor: Integer): string; var PIDL: PItemIDList; Yol: LPSTR; AMalloc: IMalloc; begin Yol := StrAlloc(MAX_PATH); SHGetSpecialFolderLocation(Application.Handle, Klasor, PIDL); if SHGetPathFromIDList(PIDL, Yol) then Result := Yol; SHGetMalloc(AMalloc); AMalloc.Free(PIDL); StrDispose(Yol); end; //Kullanımı: //Forma Label Koyun ve Onclick Olayına Yazın procedure TForm1.Label1Click(Sender: TObject); begin label1.Caption:=DizinAl(CSIDL_TEMPLATES) end;
İşte kullanacağınız klasorlerin kod icindeki adları :
Kod:
//CSIDL_DESKTOP Masaustu Dizini CSIDL_DESKTOPDIRECTORY Masaustu Dizini CSIDL_FONTS Fontlar Dizini CSIDL_NETHOOD Nethood Klasoru CSIDL_PERSONAL Belgelerim Klasoru CSIDL_PROGRAMS Başlat Menusu Programlar Dizini CSIDL_RECENT Gecmişte Acılanlar Klasoru CSIDL_SENDTO Gonder Klasoru CSIDL_STARTMENU Başlat Dizini CSIDL_STARTUP Başlangıc Dizini CSIDL_TEMPLATES Yeni Oluştur Dizini

__________________