Serial do HD
FUNCTION GetHardDiskSerieNummer : STRING;
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;
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
Curtidas 0
Respostas
Icheuk
13/01/2004
Como devo declarar (SerieNummer), pois esta apresentando um erro de declaracao.
GOSTEI 0
Nigro
13/01/2004
Desculpe...
Como pública
SerieNummer : CharArray;
Como pública
SerieNummer : CharArray;
GOSTEI 0
Baliza
13/01/2004
Desculpe...
Como pública
SerieNummer : CharArray;
assim :
private
{ Private declarations }
public
{ Public declarations }
SerieNummer : CharArray;
end;
var
Form1: TForm1;
implementation
deu errado! Undeclared identifier CharArray!!???? :(
GOSTEI 0
Marco Salles
13/01/2004
Sobe
GOSTEI 0