VCL & Batch-Befehl

[1753]

Hallo zusammen!


Ich versuche im Moment aus einer VCL Anwendung einen Batch Befehl auszuführen.
Delphi 2009 mit Update1

ShellExecute funktioniert irgendwie nicht und auch WinExec verwigert mir den Dienst.
Bei WinExec bekomme ich wenigstens den Fehler 1049 (Datenbank nicht gefunden - läuft aber bei mir).

Delphi-Quellcode:

interface
  {$APPTYPE CONSOLE}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(0, 'open', PChar('C:\Windows\System32\cmd.exe'),
              'mysqldump -uuser -ppasswort --databases mysql > /mysql.sql',
              nil, SW_SHOWNORMAL);

  //WinExec('mysqldump -uuser -ppasswort --opt --databases .ysql > /mysql.sql',sw_SHOW);
end;

Hab auch schon im Forum gesucht, aber nichts hat so richtig gepasst oder gefunzt.

Für jede Hilfe bin ich sehr dankbar!


MfG

[Michael Habbe]

Hallo und Willkommen!

Du muss Deinem ShellExecute auch das Verzeichnis übergeben, wo es ausgeführt werden soll.

Delphi-Quellcode:

  shellexecute(handle,             // Handle des aufrufenden Fensters
               'open',             // open oder print
               PChar(cmd),         // Name der Anwendung
               pChar(Params),      // Programmparameter
               pChar(Pfad),        // Verzeichnis
               SW_SHOWNORMAL);     // Anzeigeoption

mfg
Michael

[1753]

Danke, aber es hat leider nicht geklappt.

Kannst du mir vielleicht etwas über "winexec" erzählen?

[jfheins]

Zitat:

Zitat von 1753

Kannst du mir vielleicht etwas über "winexec" erzählen?

Ja, es sit veraltet. Es gibt aber jede Mende Beispiele zu Shellexecute - und eine Fehlermeldung hiulft enorm beim beseitigen von Problemen ;)

[Fussball-Robby]

Gibts nen Fehler oder passiert einfach garnichts? Wenn die cmd.exe nichts macht, könnte es helfen, vor den Befehl ein /K zu sezten:

Zitat:

Zitat von 1753

Delphi-Quellcode:

interface
  {$APPTYPE CONSOLE}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(0, 'open', PChar('C:\Windows\System32\cmd.exe'),
              '/K mysqldump -uuser -ppasswort --databases mysql > /mysql.sql',
              nil, SW_SHOWNORMAL);
end;

[1753]

Danke für eure schnelle Hilfe.
Ein Kollege auf Arbeit hat mir gezeigt wie er das immer gelöst hatte.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(0, 'open', PChar('cmd.exe'),
              '/C mysqldump -uuser -ppasswort --databases mysql > /mysql.sql',
              nil, SW_SHOWNORMAL);
end;

Mit /K hab ichs jetzt nicht nochmal versucht.


Habt nochmals vielen Dank!!!

:dp: