AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Wie wirsam Exception abfangen

Ein Thema von marcos · begonnen am 16. Jan 2010 · letzter Beitrag vom 16. Jan 2010
Antwort Antwort
marcos

Registriert seit: 6. Mai 2006
50 Beiträge
 
#1

Wie wirsam Exception abfangen

  Alt 16. Jan 2010, 13:06
Hallo,

ich habe ein Problem, dass meine Exe einfach verschwindet ohne irgendwelche Fehlermeldung.
Das merkwürdige daran: das habe ich nur auf einem PC bis jetzt festgestellt und nur bei einer Datei C:\WINDOWS\system32\userinit.exe.
Gibt es eine Möglichkeit den Fehler wirksam abzufangen? Kann jemand das Problem nachvollziehen?

Gruß
marcos

P.S.
MadExcept hilft nichts.


Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellApi;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure ShowShellPropertiesDlg(const APath: string);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   Edit1.Text := 'C:\WINDOWS\system32\userinit.exe';
   try
     ShowShellPropertiesDlg(Edit1.Text);
   except
      MessageBox(Handle, 'Exception', 'Test', 0);
   end;
end;


procedure TForm1.ShowShellPropertiesDlg(const APath: string);
var
  AExecInfo: ShellAPI.TShellExecuteinfo; // info passed to ShellExecuteEx
begin
  FillChar(AExecInfo, SizeOf(AExecInfo), 0);
  AExecInfo.cbSize := SizeOf(AExecInfo);
  AExecInfo.lpFile := PChar(APath);
  AExecInfo.lpVerb := 'properties';
  AExecInfo.fMask := ShellAPI.SEE_MASK_INVOKEIDLIST;
  ShellAPI.ShellExecuteEx(@AExecInfo); //<----------------- EXE weg!!!!
end;


end.
  Mit Zitat antworten Zitat
Benutzerbild von sx2008
sx2008

Registriert seit: 16. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#2

Re: Wie wirsam Exception abfangen

  Alt 16. Jan 2010, 15:26
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;
fork me on Github
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:43 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz