ShellApiEx funzt aber Hauptprogramm stürzt ab (Einzeiler)

[zeras]

Zitat von himitsu:

Was heißt "stürzt ab" ?

Und in welcher Zeile, bzw. bei welchem Befehl?

Ich nutze TMS Grids und dort passiert offensichtlich der Absturz. Windows meldet nur einen Fehler und will nach der Ursache suchen.
Quelltext wie folgt:

Delphi-Quellcode:

function ShellExecuteAndWaitW(hWnd: HWND; Operation, FileName, Parameters, Directory: PWideChar; ShowCmd: Integer; bWait: BOOL): HINST; stdcall;
var
  sei: TShellExecuteInfoW;
begin
// Delete any contents of this variable (undetermined for complex types)
  ZeroMemory(@sei, sizeof(sei));
// Fill the information structure with all ShellExecute standard parameters
  with sei do
  begin
    cbSize := sizeof(sei);
    fMask := SEE_MASK_NOCLOSEPROCESS; // we want a process handle returned!
    Wnd := hWnd;
    lpVerb := Operation; // Pre-defined: edit, explore, find, open, print, nil
    lpFile := FileName;
    lpParameters := Parameters;
    lpDirectory := Directory;
    nShow := ShowCmd;
  end;
// Call ShellExecuteEx()
  if ShellExecuteExW(@sei) then  <<<<<<<<<<<<<hier kommt Aufruf von MsgHookProc ins AdvGrid


function MsgHookProc(Code: Integer; CurrentProcess: Cardinal; HookStruct: PCWPStruct): integer; stdcall;
begin
  ...

  Result := CallNextHookEx(MsgHook, Code, CurrentProcess, Integer(HookStruct)) <<< bei Aufruf der Funktion kommt dann die Windows Meldung
end;