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;

[DeddyH]

Prüf doch ab, ob Du per GetProcAddress auf die user32.dll die Funktion laden kannst.

[Privateer3000]

Danke,
hab keinen Plan wie ich das anstellen könnte
und vor allem wo genau?

[DeddyH]

Lies Dir mal dies Tut durch.

[edit] Alternativ kannst Du auch mal die Forensuche bemühen, es gab hier irgendwo ein Klasse, die die Windows-Version sehr genau ausliest. Damit könntest Du auf Minimalversion Windows 2000 prüfen. [/edit]

[Klaus01]

Guten Abend,

vielleicht schaust Du mal bei den Kollegen von dsdt nach -> http://forum.dsdt.info/viewtopic.php...0d492686a4e76e

Grüße
Klaus

[Privateer3000]

Hallo,
danke an alle!
Ich hätte trotzdem gern gewußt wie
GetProcAdress eingesetzt wird um
bsp. zu überprüfen ob die dll vorhanden ist.
Die OH kennt diese funktion nicht.

[Luckie]

Bei GetProcAddress ist es schon zu spät. Du musst erst die DLL dynamisch mit LoadLibrary laden. Da kannst du prüfen, ob sie vorhanden ist.

[RWarnecke]

Hallo,

DeddyH und Klaus01 haben Dir im Beitrag 4 und 5 schon Links gegegeben. Hast Du Dir das ganze auch mal angeschaut ? :twisted:

Der Befehl GetProcAddress ist ein Windowsinterner Befehl und Du kannst das in der MSDN nachlesen. Einfach nur auf den Link in meinem letzten Satz klicken. In dem Suchergebnis gleich der erste Eintrag. Da steht alles zu dem Befehl drin.

P.S. So ein Mist Luckie war wieder schneller

[DeddyH]

Etwas anders ausgedrückt heißt das:

Versuch, mit LoadLibrary die DLL zu laden. Wenn das klappt, versuchst Du mit GetProcAddress die Adresse der Funktion zu ermitteln. Bekommst Du hier eine gültige Adresse zurück, ist alles klar.

Delphi-Quellcode:

function FunktionVorhanden: Boolean;
var DLLHandle: THandle;
begin
  Result := false;
  DLLHandle := LoadLibrary('user32.dll');
  if DLLHandle <> 0 then
    begin
      Result := GetProcAddress(DLLHandle,'GetLastInputInfo') <> nil;
      FreeLibrary(DLLHandle);
    end;
end;

Ungetestet, probier' s mal aus (und schön in der Hilfe nachlesen ;) )