Recuperar o Numero do HD
Olá Pessoal...
Gostaria de saber qual função para recuperar o numero do HD onde o exe está rodando...
Obrigado..
Rodrigo
Gostaria de saber qual função para recuperar o numero do HD onde o exe está rodando...
Obrigado..
Rodrigo
Kamionero
Curtidas 0
Respostas
Andre0201
25/03/2004
utiliza esta função onde o serial é o numero de serie da unidade que vc quer saber.
var
Serial: DWord;
DirLen: DWord;
Flags : DWord;
DLabel: array[0..11] of char;
Drive: String;
begin
try
// Captura o número de série
GetVolumeInformation(PChar(Drive), DLabel, 12, @Serial, DirLen, Flags, nil, 0);
a variavel serial é o numero de serie;
drive é o drive a ser analisado: C / D
[] ´s
var
Serial: DWord;
DirLen: DWord;
Flags : DWord;
DLabel: array[0..11] of char;
Drive: String;
begin
try
// Captura o número de série
GetVolumeInformation(PChar(Drive), DLabel, 12, @Serial, DirLen, Flags, nil, 0);
a variavel serial é o numero de serie;
drive é o drive a ser analisado: C / D
[] ´s
GOSTEI 0