Registriert seit: 13. Mär 2004
22 Beiträge
Delphi 6 Enterprise
|
Re: auslesen der windowsversion
23. Aug 2004, 13:05
Delphi-Quellcode:
function TMainForm.WinVer: String;
begin
Case Win32Platform of
VER_PLATFORM_WIN32s :
Result := ' Windows 3.1';
VER_PLATFORM_WIN32_WINDOWS :
begin
Result := ' Windows 95';
if Win32MajorVersion = 4 then
if Win32MinorVersion >= 90 then
Result := ' Windows ME'
else
if Win32MinorVersion >= 10 then
Result := ' Windows 98';
end;
VER_PLATFORM_WIN32_NT :
begin
Result :=' Windows NT';
if Win32MajorVersion = 5 then
if Win32MinorVersion >= 1 then
Result := ' Windows XP'
else
Result := ' Windows 2000';
end;
else
Result := ' Unknown OS';
end;
end;
{ * Aufrufen * }
procedure TMainForm.Button1Click(Sender: TObject);
begin
ShowMessage(WinVer);
end;
|
|
Zitat
|