Wenn mein Programm eine Datei selbst nicht öffnen kann, wird diese als Parameter an eine .exe Datei im selben Ordner wie das Programm übergeben. Danach wird das Programm beendet. Dafür habe ich bisher diesen Code benutzt:

markieren

Delphi-Quellcode:

 Shellexecute(0,'open',PCHAR(ExtractFilePath(Application.Exename)+'Vid.exe'),PCHAR(FileName),nil,SW_SHOWNORMAL);
    close;

Wobei FileName das Parameter ist. Auf meinem Computer funktioniert das, auf anderen kam es immer wieder zu Zugriffsverletzungen. Was ist am Code falsch? Gibt es eine bessere Möglichkeit?

kann es sein das Filename statisch ist ?

Hallo,

Kommt die Zugriffsverletzung in dem Programm, das ShellExecute ausführt, oder in dem anderen Programm?

Gruß,
ManuMF

Der Fehler tritt in dem Programm auf, das die Datei ausführt.

Vielleicht kannst Du es mal ausprobieren, zwischen dem Shellexecute und dem Close
eine Pause/delay einzubauen.
Haben denn die Rechner, bei denen das Problem auftritt, Hyperthreading eingeschaltet?
Hyperthreading - eine CPU mit 2 cores.

Oder Du kannst mal das hier ausprobieren:

zusammenfalten · markieren

Delphi-Quellcode:

function ExecFile(filename,params:String;windowState:word):Boolean;
var
  cmdLine: String;
  SUInfo: TStartupInfo;
  ProcInfo: TProcessInformation;

begin
  CmdLine := '"' + Filename + '" ' + Params;

  FillChar(SUInfo, SizeOf(SUInfo), #0);
  with SUInfo do begin
    cb := SizeOf(SUInfo);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := WindowState;
  end;

  try
    result := CreateProcess(NIL, PChar(CmdLine), NIL, NIL, FALSE,
                            CREATE_NEW_CONSOLE or
                            NORMAL_PRIORITY_CLASS, NIL,
                            PChar(ExtractFilePath(Filename)),
                            SUInfo, ProcInfo);
  except
     on E: Exception do
      begin
        Result:=false;
      end;
  end;
end;

Aufruf:
ExecFile(ExtractFilePath(Application.Exename)+'Vid.exe',FileName,SW_SHOW); Grüße
Klaus

[edit] code hinzugefügt [/edit]

Zitat:

Vielleicht kannst Du es mal ausprobieren, zwischen dem Shellexecute und dem Close
eine Pause/delay einzubauen.

Das habe ich vorher schon versucht. sleep() mit verschidenen Werten hat nichts genützt.

Zitat:

Haben denn die Rechner, bei denen das Problem auftritt, Hypertrading eingeschaltet?

Was ist das? Der Fehler tritt jetzt auf allen Rechnern auf.


Der Aufruf mit CreateProcess hat auch nichts geändert.

Kann es sein, dass die Datei die du lesen möchtest, noch geöffnet ist ?

Was für eine Fehlermeldung/Exception bekommst Du denn?
Kannst Du mit GetlastOSError etwas mehr herausbekommen?

Grüße
Klaus

Eine Zugriffsverletzung -> EAccessViolation mit der Meldung 'Zugriffsverletzung bei Adresse 0000003C. Lesen von Adresse 0000003C

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  appl,params: String;
begin
  appl := 'firefox.exe';
  params := 'E:\development\html\homepage\index.html';
  ExecFile(ExtractFilepath(Application.exeName)+'..\..\..\tools\browser\Mozilla Firefox\'+appl,params,SW_SHOW);
  close;
end;

dieser Code funktionert bei mir ohne Probleme, ich weiß das hilft Dir jetzt nicht viel weiter.
Aber kann es sein, daß im onClose noch etwas passiert - das vielleicht so nicht passieren soll?

Grüße
Klaus