|
(CodeLib-Manager)
Registriert seit: 27. Nov 2008
Ort: Delmenhorst
2.379 Beiträge
|
Re: Betriebssystem auslesen
9. Jan 2010, 19:16
15 Jahre und ein D2010 Enterprise... Wahnsinn...  
Delphi-Quellcode:
var
OsInfo: TOSVERSIONINFO;
//[..]
begin
(* Init and get version info *)
OsInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
GetVersionEx(OsInfo);
Rest sollte eigentlich alleine zu finden sein.
米斯蘭迪爾
"In einer Zeit universellen Betruges wird das Aussprechen der Wahrheit zu einem revolutionären Akt." -- 1984, George Orwell
|