Wieso kan ich keine zwei Serials Vergleiche,...... eine klappt ohne Probleme kann mir da jemand helfen
var
SerialNum, a, b : DWord;
buff : array[0..255] of char;
Result : String;
begin
If GetVolumeInformation('c:\', buff, SizeOf (buff), @SerialNum, a, b,nil, 0) then
begin
Result:=inttostr(SerialNum);
if Result = (intToStr(2900256299)) or Result =(intToStr(275453679)) // Wieso klappt das hier nicht das Programm gibt hier den Fehler aus then
begin
showmessage(Result +' Serial Gefunden');
end
else
begin
showmessage('Programm konnte Serial nicht finden. ');
Form2.Close;
end;
end
else
begin
Result:='';
Form2.Close;
end;
end;
var
SerialNum, a, b : DWord;
buff : array[0..255] of char;
Result : String;
begin
If GetVolumeInformation('c:\', buff, SizeOf (buff), @SerialNum, a, b,nil, 0) then
begin
Result:=inttostr(SerialNum);
if Result = (intToStr(2900256299)) or Result =(intToStr(275453679)) // Wieso klappt das hier nicht das Programm gibt hier den Fehler aus then
begin
showmessage(Result +' Serial Gefunden');
end
else
begin
showmessage('Programm konnte Serial nicht finden. ');
Form2.Close;
end;
end
else
begin
Result:='';
Form2.Close;
end;
end;
Comment