Mega Code Archive

 

Categories / Delphi / Files

 

Windows explorer favorites klasörünün alinmasi

function TForm1.Favoritesfolder: string; var pidl: PItemIDList; buf: array[0..MAX_PATH] of Char; begin if Succeeded(ShGetSpecialFolderLocation(Handle, CSIDL_FAVORITES, pidl)) then begin ShGetPathfromIDList(pidl, buf); Result := buf; end else Result:=''; end; // Kullanimi: procedure TForm1.Button1Click(Sender: TObject); begin label1.caption := Favoritesfolder; end;