Fórum Serial do HD #206232
13/01/2004
0
VAR
Teller : INTEGER;
Lus : INTEGER;
BEGIN
GetHardDiskSerieNummer := ´´;
Teller := 1;
FOR Lus := 1 TO 8 DO
BEGIN
SerieNummer[Teller] := CHR( ( HardDiskGegevens[10+Lus] DIV 256 ));
Inc(Teller);
SerieNummer[Teller] := CHR( ( HardDiskGegevens[10+Lus] MOD 256 ));
Inc(Teller);
END;
GetHardDiskSerieNummer := SerieNummer;
END;
Nigro
Curtir tópico
+ 0Posts
13/01/2004
Icheuk
Gostei + 0
13/01/2004
Nigro
Como pública
SerieNummer : CharArray;
Gostei + 0
13/01/2004
Baliza
assim :
private
{ Private declarations }
public
{ Public declarations }
SerieNummer : CharArray;
end;
var
Form1: TForm1;
implementation
deu errado! Undeclared identifier CharArray!!???? :(
Gostei + 0
13/01/2004
Marco Salles
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)