Obtener el directorio de Windows  

Enviado Por: Q3 Team
Web : http://www.q3.nu
Email: dlib@q3.nu
Fecha: 15/07/99

Truco accedido 101 veces

 


Pon un Tlabel (Label1) y pon esthe código dentro del onClick de un boton:


 procedure TForm1.Button5Click(Sender: TObject);
   function GetWindowsDirectory : String;
   var
      pcWindowsDirectory : PChar;
      dwWDSize           : DWORD;
   begin
      dwWDSize := MAX_PATH + 1;
      GetMem( pcWindowsDirectory, dwWDSize );
      try
         if Windows.GetWindowsDirectory( pcWindowsDirectory, dwWDSize ) <> 0 then
            Result := pcWindowsDirectory;
      finally
         FreeMem( pcWindowsDirectory );
      end;
   end;
 begin
    Label1.Caption:=GetWindowsDirectory;
 end;