Ver pastas do sistema(windows) - Delphi7

Hoje estarei mostrando como visualizar as pastas do sistema, isso se torna importante na hora de salvar arquivos.
Depois de muito tempo tentando isso, finalmente encontrei na internet e venho aqui disponibilizar para vocês.
Dayvid vai gostar dessa!

No uses adicione "SHFolder", sem aspas.


1°- Adicione 1 componente "Button" da aba "Standard".
2°- Adicione 17 Labels, isso mesmo, 17 Labels.
3° dê um duplo clique no Button o digite:

Label1.Caption := GetSpecialFolderPath(CSIDL_PERSONAL) ;
Label2.Caption := GetSpecialFolderPath(CSIDL_COMMON_APPDATA) ;
Label3.Caption := GetSpecialFolderPath(CSIDL_PROGRAM_FILES) ;
Label4.Caption := GetSpecialFolderPath(CSIDL_WINDOWS) ;
Label5.Caption := GetSpecialFolderPath(CSIDL_APPDATA) ;
Label6.Caption := GetSpecialFolderPath(CSIDL_LOCAL_APPDATA) ;
Label7.Caption := GetSpecialFolderPath(CSIDL_INTERNET_CACHE) ;
Label8.Caption := GetSpecialFolderPath(CSIDL_COOKIES) ;
Label9.Caption := GetSpecialFolderPath(CSIDL_HISTORY) ;
Label10.Caption := GetSpecialFolderPath(CSIDL_COMMON_APPDATA) ;
Label11.Caption := GetSpecialFolderPath(CSIDL_SYSTEM) ;
Label12.Caption := GetSpecialFolderPath(CSIDL_MYPICTURES) ;
Label13.Caption := GetSpecialFolderPath(CSIDL_PROGRAM_FILES_COMMON) ;
Label14.Caption := GetSpecialFolderPath(CSIDL_COMMON_DOCUMENTS) ;
Label15.Caption := GetSpecialFolderPath(CSIDL_FLAG_CREATE) ;
Label16.Caption := GetSpecialFolderPath(CSIDL_COMMON_ADMINTOOLS) ;
Label17.Caption := GetSpecialFolderPath(CSIDL_ADMINTOOLS) ;

4°- Agora você deve criar uma função,
ela deverá ficar acima de "procedure TForm1.Button1Click(Sender: TObject);"

function GetSpecialFolderPath(folder : integer) : string;
 const
   SHGFP_TYPE_CURRENT = 0;
 var
   path: array [0..MAX_PATH] of char;
 begin
   if SUCCEEDED(SHGetFolderPath(0,folder,0,SHGFP_TYPE_CURRENT,@path[0])) then
     Result := path
   else
     Result := '';
 end;

Pronto! Salve e ao executar deverá ficar assim: