anderes Programm beenden

[peterbelow]

Zitat von Moombas:

Hallo zusammen,

ich hatte ein ähnliches Problem und mir den Codes aus Beitrag 7 (https://www.delphipraxis.net/272652-post7.html) "geklaut". Dieser hatte auch funktioniert, allerdings bekomme ich neuerdings eine Zugriffsverletzung im laufenden Programm bei
EnumWindows(@EnumWindowsProc, LPARAM(List));

Das Problem ist das hier:

Delphi-Quellcode:

procedure TTools.EscapeClick(Sender: TObject);
  function EnumWindowsProc(hWnd: HWND; lParam: LPARAM): BOOL; stdcall;
  begin
    TList(lParam).Add(Pointer(hWnd));
    Result := True;
  end;

Du kannst keine nested procedure als callback für eine API-Funktion verwenden, Du mußt die EnumWindowsProc aus der Methode herausnehmen und als eigenständige Funktion implementieren. Nested procedures erfordern einen besondere struktur des callstacks, damit sie auf die parameter und lokalen variabled der umgebenden Procedure zugreifen können. Damit sind sie nicht kompatibel mit einem API callback.

[Moombas]

Ok, habs.

Aber warum macht er das in 64-Bit anders? Ist das etwas was man generell wissen sollte oder einfach Willkür?

[peterbelow]

Zitat von Moombas:

Ok, habs.

Aber warum macht er das in 64-Bit anders? Ist das etwas was man generell wissen sollte oder einfach Willkür?

Das der Kode überhaupt jemals funktioniert hat ist blanker Zufall. Vermutlich ist der Stackaufbau und die Parameterübergabe bei 64-bit anders als bei 32 bit, daher knallt es da direkt.