Çalışılan işletim sistemi

[tim]

Selam arkadaşlar,

Üzerinde çalışılan bilgisayarın işletim sistemini nasıl öğrenebilirim?

Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

[conari]

Kod: Tümünü seç

procedure ShowOSVersion;
var
OSVersion : TOSVersionInfo;
begin
OSVersion := GetOSVersion;
case OSVersion of
OSWin95: ShowMessage ('OSwin95');
OSWin98: ShowMessage ('OSWin98');
OSWinME: ShowMessage ('OSWinME');
OsWinNT4: ShowMessage ('OsWinNT4');
OSWin2K: ShowMessage ('OSWin2K');
OsWinXP: ShowMessage ('OsWinXP');
OSUnknown: ShowMessage ('OSUnknown');
OSUnknown9x: ShowMessage ('OSUnknown9x');
OSUnknownNT: ShowMessage ('OSUnknownNT');
else ShowMessage ('???');
end;
end;

Kod: Tümünü seç

Application.MessageBox(pchar('The Following Operating System was detected.' + GetOSVersion) ,
'Operating System Detected'
, MB_OK+MB_ICONEXCLAMATION+MB_DEFBUTTON1+MB_APPLMODAL);