ShellApiEx funzt aber Hauptprogramm stürzt ab (Einzeiler)

[Ajin]

Tach Jungs!

Hat jemand eine Idee was ich bei der Benutzung dieser routine falsch mache?

[zeras]

Ist zwar schon einige Tage alt, aber ich habe auch das Problem, dass die Funktion nicht geht. Auch bei mir stürzt mein Programm ab. Wenn ich nur ShellExecute nutze, stürzt das Programm nicht ab.

Hier mein Aufruf.
ShellExecuteAndWaitW(Application.Handle, 'open', PChar('notepad.exe'), PChar(fname), Nil, SW_SHOW, True);

[himitsu]

Was heißt "stürzt ab" ?

Und in welcher Zeile, bzw. bei welchem Befehl?

[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;

[himitsu]

Hmmm, dann ist es wohl eher ein Problem bei ADV?

Versuch es mal probehalber mit einer 0, statt dem Application.Handle.

[zeras]

Zitat von himitsu:

Versuch es mal probehalber mit einer 0, statt dem Application.Handle.

So kommt auch die Windowsmeldung. Vielleicht sollte ich mal TMS auf den letzten Stand bringen?
ShellExecuteAndWait(0, 'open', PChar('notepad.exe'), PChar(fname), Nil, SW_SHOW, True);

[zeras]

Zitat von zeras:

So kommt auch die Windowsmeldung. Vielleicht sollte ich mal TMS auf den letzten Stand bringen?
ShellExecuteAndWait(0, 'open', PChar('notepad.exe'), PChar(fname), Nil, SW_SHOW, True);

Nun bin ich weiter. Wenn ich das Programm nicht in der IDE starte, sondern die Exe, dann geht es. Ist doch komisch oder?
TMS habe ich noch nicht aktualisiert.