programmstart überwachen

[PhilmacFlLy]

Nunja ich hab ein Programm programmiert (glaub man kaum ) das installer in verschiedenen Sprachen startet.
Jetzt möchte ich aber überprüfen ob die Datei wirklich gestaret wurde bzw. ob sie beschädigt is wie kann ich das machen?

achja ich starte das ganze so
ShellExecute(Handle, 'open', PChar(pfads), nil, nil, SW_NORMAL); vorher wird der Pfad aus einer Ini Datei ausgelesen

[Matze]

Hallo, herzlich Willkommen!

Einen erfolgreichen Start kannst du so überprüfen:

Delphi-Quellcode:

if ShellExecute(...) > 32 then
  // erfolgreich
else
  // nicht erfolgreich

Die genauen Rückgabewerte findest du beispielsweise hier oder im MSDN: ShellExecute.

Grüße

[PhilmacFlLy]

ok danke

[PhilmacFlLy]

noch eine frage muss ich das so schreiben

Delphi-Quellcode:

    begin ShellExecute(Handle, 'open', PChar(pfade), nil, nil, SW_NORMAL);
          if
            ShellExecute(Handle, 'open', PChar(pfads), nil, nil, SW_NORMAL) < 33
          then
            Application.MessageBox('File is not avaliable or destoryed', 'Error', MB_OK)
          else
            application.Terminate
        end

oder so

Delphi-Quellcode:

if
            ShellExecute(Handle, 'open', PChar(pfads), nil, nil, SW_NORMAL) < 33
          then
            Application.MessageBox('File is not avaliable or destoryed', 'Error', MB_OK)
          else
            application.Terminate
        end

[DeddyH]

Nimm die 2. Variante, sonst wird das Programm ja 2 mal gestartet

[PhilmacFlLy]

Das problem is nur er startet die datei dann nicht soner bringt nur ne fehler meldung

[DeddyH]

Versuch es mal so:

Delphi-Quellcode:

procedure TForm1.btnStartClick(Sender: TObject);
var iSuccess: Integer;
begin
  iSuccess := ShellExecute(Handle,'open',PChar('C:\windows\dideldum.exe'),nil,nil,SW_SHOWDEFAULT);
  if iSuccess < 33 then
    MessageBox(Handle,PChar(SysErrorMessage(iSuccess)),'Fehler',MB_OK or MB_ICONERROR);
end;

[PhilmacFlLy]

Mir is grad auf gefallen es geht trotzdem so

Delphi-Quellcode:

          begin ShellExecute(Handle, 'open', PChar(pfadg), nil, nil, SW_NORMAL);
            if
              ShellExecute(Handle, 'open', PChar(pfads), nil, nil, SW_NORMAL) > 32
            then
              Application.MessageBox('Datei ist nicht vorhanden oder beschädigt', 'Fehler', MB_OK)
            else
              Application.Terminate
            end

ich hatte nur Apllication.Terminate und Mesage Box verdreht

sry

[PhilmacFlLy]

ich weiss nicht was heute los is es geht trotzdem nicht jetzt probier ichs mal nach deddy
edit: geht auch nicht ermacht einfach weiter
edit2: Da hat was mit der zahl nicht gestimmt ich hab jetzt iSuccess < 34 und jetzt gehts