Fórum Hd Principal #268356

13/02/2005

0

Delphi

Olá pessoal do clube Delphi, eu estou procurando algum código que diga qual o hd principal, onde está instalado o Windows, será que alguem pode me ajudar?


Ipod I

Ipod I

Responder

Posts

13/02/2005

Beppe 

procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: array[0..MAX_PATH] of Char;
begin
  Dir := 0;
  GetWindowsDirectory(@Dir, Length(Dir));
  Caption := Dir[0];
end;


O caminho até o diretório do Windows é copiado para o array Dir. Dir[0] representa o drive.


Responder

Gostei + 0

13/02/2005

Ipod I

Valeu! :D


Responder

Gostei + 0

13/02/2005

Beppe

O código funcionará perfeitamente nas versões atuais do Windows, mas se um dia a MS ampliar o número de caracteres num nome de caminho, pode dar um ´buffer overrun´ aí.

O correto é:
procedure TForm1.Button1Click(Sender: TObject); 
var 
  Dir: array[0..MAX_PATH] of Char; 
begin 
  Dir := 0; 
  GetWindowsDirectory(@Dir, Length(Dir) - 1); 
  Caption := Dir[0]; 
end;



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar