Hallo glkbkk,
so kannst du prüfen ob das BS Windows XP ist.
Delphi-Quellcode:
var Version:TOSVersionInfo;
begin
Version.dwOSVersionInfoSize:=SizeOf(OSVersionInfo);
GetVersionEx(Version);
if Version.dwPlatformId=VER_PLATFORM_WIN32_NT
then if ((Version.dwMajorVersion=5)and(Version.dwMinorVersion>=1))
then ShowMessage('Windows XP');
Tschüß Markus