Sagt mal liegt es daran, dass ich nuicht zu Hause bin oder dass es so früh am Morgen ist? warum kapier ich heute nicht, was ihr da codet? Bei Nico wundert es mich eigentlich nicht aber bei dir, onlinehome, sthehen mir irgendwie die haare zu Berge.
Warum das:
Delphi-Quellcode:
{$IFDEF WIN32}
function GetVersionEx(lpOs : pointer) : BOOL;
stdcall;
external '
kernel32'
name '
GetVersionExA';
{$ENDIF}
Wenn du es eh nirgens benutzt?
Und das:
Delphi-Quellcode:
while getVersionEx(lpOS) = false do begin
GetMem(lpos2, lpos^.dwOSVersionInfoSize + 1);
lpOs2^.dwOSVersionInfoSize:= lpOs^.dwOSVersionInfoSize+1;
FreeMem(lpOs, lpOs^.dwOSVersionInfoSize);
lpOS := lpOs2;
end;
Sieht für mich einfach nur grausam aus. Du holst dir so lange Speicher bis es klappt? Das kann doch nicht war sein.
Alles in allem mag deine ja kürzer sein, aber erstens bekommst du so nicht die Version im Klartext und irgend was sagt mir, dass da was ganz fürchterliches im Code passiert.