Nur der Klugscheißerei wegen
Das hier:
Delphi-Quellcode:
function KVideo_GetVersion: longint; stdcall;
begin
result := Ver_Major_Hi * $1000000 + Ver_Major_Lo * $10000 + Ver_Minor_Hi * $100 + Ver_Minor_Lo;
end;
Lässt sich wie folgt umkehren:
Delphi-Quellcode:
procedure ParseVersion(const Version: LongInt; out Major_Hi: Integer; out Major_Lo: Integer; out Minor_Hi: Integer; out Minor_Lo: Integer);
begin
Minor_Lo := Version mod $100;
Minor_Hi := (Version mod $10000) div $100;
Major_Lo := (Version mod $1000000) div $10000;
Major_Hi := Version div $1000000;
end;