Zitat von
gernotmann:
Hallo,
ich bin relativer Delphi Neuling und suche nach einer Möglichkeit das Betriebsystem zu erkennen.
Z.B. um zu erkennen ob jmd. Windows XP oder Windows Vista benutzt.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
ver: TOSVersionInfoA;
begin
ver.dwOSVersionInfoSize := sizeof(TOSVERSIONINFOA);
if GetVersionEx(ver) then
showmessage(inttostr(ver.dwMajorVersion)+'.'+inttostr(ver.dwMinorVersion)+'.'+inttostr(ver.dwBuildNumber));
end;