WindowsNT prüfen ob ausführbar

[Privateer3000]

Hallo Leute,

funktionen wie LastInputInfo ersfordern
WinNT als Plattform. Wenn nun eine App
aber auf Me/98 o.ä. gestartet wird bricht
alles mit einer Fehlermeldung ab.
Geht das irgendwie das dies abgefangen wird
die App trotzdem startet und nur die funktion
deaktiviert wird?
Ich hab grad kein Me/98 zur Hand und kanns nicht testen:

Delphi-Quellcode:

function IsWindowsNT: Boolean;
begin
  Result:=Win32Platform = VER_PLATFORM_WIN32_NT;
end;

...

var 
   liInfo: TLastInputInfo; 
begin
   if isWindowsNT then begin
   liInfo.cbSize := SizeOf(TLastInputInfo) ; 
   GetLastInputInfo(liInfo) ;
   Result := (GetTickCount - liInfo.dwTime) DIV 1000; end else begin
   Result :=0;  end;
end;