Hallo,

ich schreibe gerade ein kleines Programm um diese ShutdownBlockReason Methode für Vista zu testen.
Wie mache ich das denn nur genau, also ich habe die nötigen Funktionen eingebunden und bekomme unter Vista auch die Nachricht wenn das System runtergefahren wird.

Aber wenn ich das gleiche Programm unter Windows XP ausführe kommt die Meldung das der Prozedureinsprungpunkt nicht gefunden wurde.
Klar, die Prozedur gibts dort nochnicht.
Aber wie mach ich das denn, dass das selbe Programm auf beiden läuft ohne es mehrfach kompilieren zu müssen?

Der Fehler kommt denk ich direkt bei der Deklaration der Funktion oder?
Ne Compilerdirektive bringt ja nichts, da müst ichs für jedes System seperat kompilieren.

Naja, der Weg führt doch zu den Compilerschaltern. Du musst für bestimmte Sachen, die du in Vista nutzt, es aber in XP nicht gibt, diese mit Schaltern belegen und für XP dann einen anderen Weg nutzen.

Zitat von Angel4585:

Der Fehler kommt denk ich direkt bei der Deklaration der Funktion oder?

Müsstest du vielleicht mal debuggen. Von MagicAndre gibt ja ne super Unit, um während der Laufzeit die Windowsversion auszulesen. Es würde also einfach reichen, auf Version > Windows XP zu testen, und erst dann die Funktion auszuführen. Oder habe ich da was falsch verstanden.

Meinst du so? Mach ich ja, aber das hilft nix. Auf dem Testsystem hab ich leider kein Delphi installiert

zusammenfalten · markieren

Delphi-Quellcode:

var LVersion : TWindowsVersionInfo;
begin
LVersion := TWindowsVersionInfo.Create(self);
try
if LVersion.MajorVersion >= 6 then
  begin
  if ShutdownBlockReasonCreate(self.Handle,'Testprogramm für ShutdownBlockReason')then SNLogger.log('Shutdown wird geblockt')
  else SNLogger.log('Blocken nicht möglich'+SysErrorMessage(GetLastError));
  end;
finally
  LVersion.Free;
end;

Hallo,

oder du Methode dynamisch binden und aufrufen (LoadLibrary / GetProcAddress),


Heiko

Hmm...

Vielleicht findet sich ja wer in der DP, der ne Delphi-Version unter Vista laufen hat. Ansonsten müsstest du mal madExcept in deine Anwendung anbauen. Dann könntest du wenigstens schonmal die Codezeile lokalisieren.

Oder so machen, wie hoika das vorgeschlagen hat.

Naja mir isses im Endeffekt klar wo das auftritt:

markieren

Delphi-Quellcode:

function ShutdownBlockReasonCreate(hWnd:HWND;pwszReason:LPCWSTR):BOOL;stdcall;external user32 name 'ShutdownBlockReasonCreate';
function ShutdownBlockReasonDestroy(hWnd:HWND):BOOL;stdcall;external user32 name 'ShutdownBlockReasonDestroy';
function ShutdownBlockReasonQuery(hWnd:HWND;pwszBuff:LPWSTR;pcchBuff:DWORD):BOOL;stdcall;external user32 name 'ShutdownBlockReasonQuery';

Die werden global deklariert(Query brauch ich iwie garnich ) und da wird auch der Fehler auftreten.
Ich probier das mal mit LoadLibrary, ma schaun wie das geht

Wie das geht, kannst Du z.B. bei Olli nachlesen.

Also, läd man DLLs und exportierte Funktionen aus DLLs überprüft der Loader von Windows beim direkt beim Starten der Anwendung, ob alle Referenzen aufgelöst werden können. Ist dies nicht der Fall, bricht der Loader den Startvorgang mit einer Fehlermeldung ab.

Es gibt zwei Möglichkeiten das Problem zu lösen:
1. Man erstell zwei Anwendungen, für jedes Zielsystem eine. Dies lässt sich unter Delphi relativ leicht mit Compiler-Schalteren erreichen oder
2. Man ermittelt das Betriebssystem zu Laufzeit und läd die DLL und die Funktion, dann abhängig vom Betriebssystem dynamisch.

Nur dynamisch. Die Funktionen gibt es nur unter Wista. Wenn du die statisch einbindest, werden sie in die Importtabelle der Exe compiliert. Ja und da gibt es bereits beim Laden der Exe Probleme und das bevor du irgendwelchen Code ausführen kann.

Und versionsabhängige Compilierung mittels Compilerschalter bringt auch nix. Denn das Problem hängt ja nicht davon ab, auf welcher Maschine du den Code compilierst, sondern auf welcher du ihn ausführst.