Announcement

Collapse
No announcement yet.

Dosbefehle aus Delphi

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Dosbefehle aus Delphi

    Wie kann man von Delphi aus <b>Dosbefehle</b> ausführen, d.h. zum Beispiel andere
    <b>Anwendungen</b> starten, <b>Parameter</b> übergeben, oder Dateien verschieben?
    Habe bisher in keinem Buch Hinweise gefunden.

    Danke für eventuelle Hilfe.

    PJK

  • #2
    Die Unit FMXUtils.pas enthält ein paar sehr gute Funktionen und Prozeduren. Andere Programme lassen sich so mit
    ExecuteFile('C:\windows\Notepad.exe','C:\Textdatei .txt','C:\',sw_normal); starten
    schau sie dir mal an..

    Comment


    • #3
      Hallo David,

      danke für den Tip.
      Leider funktioniert das immer noch nicht, denn ich bekomme einen
      Compilerfehler (Undefinierter Bezeichner: ExecuteFile).
      Funktioniert das auch bei Delphi 4 Standard?
      Ist die Unit fmxutils in meiner Version enthalten (den Eindruck habe ich nicht)?

      Wäre dankbar für Hilfe.

      PJ

      Comment


      • #4
        Hallo,
        willst du aus Delphi heraus eine Batchdatei starten die Dos-Befehle enthält? Wenn ja, ggf. mittels Execute 'call xyz.bat' ausführen.

        Gruß
        Fred Ziebel

        Comment


        • #5
          Hallo Fred,

          danke für deinen Vorschlag. Das klappt leider auch nicht, der Compiler meldet:
          <b> Undefinierter Bezeichner: Execute </b>
          ??????????????????????????????
          ??????????????????????????????
          ??????????????????????????????

          PJ

          Comment


          • #6
            Mit folgendem Code kannst Du eine Anwendung Starten und auf deren Beendigung warten, möchtest Du nicht auf das ende warten, läßt Du einfach die While Schleife weg.
            <pre>
            <font size 2>
            procedure TForm1.Button1Click(Sender: TObject);
            Var Handle : Word;
            begin
            Handle := WinExec('Notepad', SW_ShowNormal);
            While GetModuleUsage(Handle) > 0 Do
            Begin
            Enabled := False;
            Application.Processmessages;
            End;
            Enabled := True;
            end;
            </font size>
            </pre&gt

            Comment


            • #7
              Hi Karsten,

              funktioniert perfekt.
              Vielen Dank!

              Gruß

              PJ

              Comment

              Working...
              X