1 - Essa função está funcionando perfeitamente para HDs IDE e SATA, já
testei em varias maquinas só não testei ainda com o SO 64bits.
2-
procedure ChangeByteOrder( var Data; Size : Integer );
var
ptr : PChar;
i : Integer;
c : Char;
begin
ptr := @Data;
for i := 0 to (Size shr 1)-1 do
begin
c := ptr^;
ptr^ := (ptr+1)^;
(ptr+1)^ := c;
Inc(ptr,2);
end;
end;
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Rocha
Enviada em: terça-feira, 26 de janeiro de 2010 18:50
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Pegar Serial Fisico de HD no Delphi 2010
Prioridade: Alta
Outras coisas:
1) Vc quer pegar o serial de um HD SCSI ou IDE? Essa daí só funciona
pra SCSI. Do mesmo jeito q vc conseguiu essa pra SCSI, vc tb vai conseguir a
função pra IDE.
2) Cadê o código dessa rotina ChangeByteOrder?
Sds.
[As partes desta mensagem que não continham texto foram removidas]
