title image


Smiley Re: Win95/98 oder NT
//------------------------------------------------------------------------------//// ermitteln der Windows-Version//// Info aus der Faq von http://pics.webset.de/compon.htm// Die deutsche Faq ist als Zip-File downloadbar//------------------------------------------------------------------------------function GetWindowsVersion:string;var OsVinfo : TOSVERSIONINFO; HilfStr : array[0..50] of Char;begin ZeroMemory(@OsVinfo,sizeOf(OsVinfo)); OsVinfo.dwOSVersionInfoSize := sizeof(TOSVERSIONINFO); if GetVersionEx(OsVinfo) then begin if OsVinfo.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS then begin if (OsVinfo.dwMajorVersion = 4) and (OsVinfo.dwMinorVersion > 0) then StrFmt(HilfStr,'Windows 98 - Version %d.%.2d.%d', [OsVinfo.dwMajorVersion, OsVinfo.dwMinorVersion, OsVinfo.dwBuildNumber AND $FFFF]) else StrFmt(HilfStr,'Windows 95 - Version %d.%d Build %d', [OsVinfo.dwMajorVersion, OsVinfo.dwMinorVersion, OsVinfo.dwBuildNumber AND $FFFF]); end; if OsVinfo.dwPlatformId = VER_PLATFORM_WIN32_NT then StrFmt(HilfStr,'Microsoft Windows NT Version %d.%.2d.%d', [OsVinfo.dwMajorVersion, OsVinfo.dwMinorVersion, OsVinfo.dwBuildNumber AND $FFFF]); end else StrCopy(HilfStr,'Fehler bei GetversionEx()!'); Result:=string(HilfStr);end;
Beste Grüsse von Coyote !

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: