External execption EEFFACE bei ShellExecuteEx

[DeddyH]

Ich weiß nicht, wie weit die Compilermagic das ausgleicht, aber mal sprichst Du Info als Pointer an und mal nicht. Ich würde das mal so abändern:

Delphi-Quellcode:

function ShellExecEx(const FileName: string; const Parameters: string; const Directory: String; const Verb: string; CmdShow: Integer): Boolean;
  var
    Info: TShellExecuteInfo;
  begin
    // Clear Info
//    New(Info);
    ZeroMemory(@Info, SizeOf(TShellExecuteInfo));

    // Fill in the SHELLEXECUTEINFO structure
//    try
      Info.cbSize :=            SizeOf(tShellExecuteInfo);
      Info.fMask :=             SEE_MASK_FLAG_NO_UI or SEE_MASK_DOENVSUBST;
      Info.wnd  :=              HWnd_Desktop;
      Info.lpVerb :=            pChar(Pointer(Verb));
      Info.lpFile :=            pChar(FileName);
      Info.lpParameters :=      pChar(Pointer(Parameters));
      Info.lpDirectory :=       pChar(Pointer(Directory));
      Info.nShow :=             CmdShow;;
      Info.hInstApp :=          0;
      Info.lpIDList :=          nil;

      {$T+}
      Result := ShellExecuteEx(@Info);
      {$T-}
      if Result = False then ShowMessage(SysErrorMessage(GetLastError));
{    finally
      Dispose(Info);
    end;}
  end;