Wie wirsam Exception abfangen

[sx2008]

versuch mal die Funktion:

Delphi-Quellcode:

function DisplayPropDialog(const Handle: THandle; const FileName: string): Boolean;
var
  Info: TShellExecuteInfo;
begin
  FillChar(Info, SizeOf(Info), #0);
  with Info do
  begin
    cbSize := SizeOf(Info);
    lpFile := PChar(FileName);
    nShow := SW_SHOW;
    fMask := SEE_MASK_INVOKEIDLIST;
    Wnd := Handle;
    lpVerb := cVerbProperties;
  end;
  Result := ShellExecuteEx(@Info);
end;

Das Handle ist dein Fensterhandle:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  filename : string;
begin
   filename := 'C:\WINDOWS\system32\userinit.exe';
   if not DisplayPropDialog(Handle, filename) then
     RaiseLastWin32Error;
end;