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;