Access Violation nach zweiten Aufruf von OpenDialog

[DeddyH]

Wie sieht es so aus?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  MAX_SHELLEXECUTE_ERROR = 32;
var 
  filename, ChFilename:string;
begin
  OpenDialog1.Filter := 'Xilog Plus Datei|*.pgm|Xilog Plus ASCII Datei|*.xxl';
  if OpenDialog1.Execute then
    begin
      filename:= OpenDialog1.FileName;
      Chfilename:='"'+filename +'" -s -i';
      if ShellExecute(Application.Handle, nil, PChar('.\Winxiso.exe'), 
        PChar(Chfilename), nil, SW_SHOW) > MAX_SHELLEXECUTE_ERROR then
        begin
          filename := ChangeFileExt(filename, '.bmp');
          if FileExists(filename) then
            Image1.Picture.LoadFromFile(filename);
        end;  
    end;
end;

Sollte es immer noch knallen, müsstest Du einmal durchsteppen und uns die entsprechende Zeile nennen.