Så kan du vel bare nøjes med en function som tjekker om det er XP.
function IsXP: Boolean;
var
OS: TOSVERSIONINFO;
begin
OS.dwOSVersionInfoSize := SizeOf(TOSVERSIONINFO);
GetVersionEx(os);
Result := (OS.dwPlatformId = VER_PLATFORM_WIN32_NT) and
(OS.dwMajorVersion = 5) and (OS.dwMinorVersion = 1);
end;
torry.net er din ven
-------------------------------------------------------
Jonas (Decko)
-------------------------------------------------------