Hilfe zu Turbo Pascal (Delphi)

Hallo zusammen....

Ich bin ein absoluter Neuling in der Entwicklungsumgebung. Bin eigentlich gelernter Systemtechniker und kein Appli. Ich sollte nun jedoch (Für meinen Arbeitgeber) ein kleines Programm schreiben, welches eine Abfrage für eine Installation macht. Und zwar sollte beim auswählen von "CD jetzt installieren" einfach nur eine Batch (.bat) Datei ausgefüht werden. Diese Datei habe ich bereits geschrieben und funktioniert auch einwandfrei. Mein Problem ist also nur der Befehl in Turbo Pascal um dieses Bacth-File beim Klick auf den "Weiter" Button (Grafische Oberfläche) aufzurufen bzw. auszuführen.

Folgender Code ist mein Anfang. (Die Form1 und einen Button)

-----------------------------------------------------------------------------------------

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation



{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

end.

-----------------------------------------------------------------------------------------



Wie kann ich nun beim Klicken auf den Button die Datei autorun.bat ausführen? Wo bzw. muss ich diese Datei angeben? Deklarieren als Variable? Nur den Code zum Öffnen eingeben?

Habe gestern den ganzen Tag im Internet Hilfe gesucht, bin jedoch nicht auf meine Antwort gestossen. Wäre wirklich super froh um eure Hilfe.

Vielen Dank im Voraus...

Gruss Reeng

 

Code:

PROCEDURE TForm1.Button1Click(Sender: TObject);
VAR e: INTEGER;
begin
  e := ShellExecute
         (Handle,
          NIL,
          PCHAR('ExtractPath(Application.Name)+'datei.bat'),
          PCHAR(''),
          NIL,
          SW_SHOW);
  IF (e<=32) THEN
    begin
      ShowMessage('fehler beim ausführen')
    end
end;

um die funktion ShellExecute verfügbar machen, musst du die uses -direktive um den eintrag ShellAPI erweitern.

 

Hallo Da_Ferdi..

Vielen Dank für deine rasche Antwort. ...Bin nun ein Stücklein weiter gekommen. Mein Code sieht nun wie folgt aus:

--------------------------------------------------------------------------------------------

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, ShellAPI, Forms,
Dialogs, StdCtrls;

type
TForm2 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
VAR e: INTEGER;
begin

e := ShellExecute
(Handle,
NIL,
PCHAR('ExtractPath(Application.Name)'+'autorun.bat'),
PCHAR(''),
NIL,
SW_SHOW);
IF (e<=32) THEN

ShowMessage('fehler beim ausführen')

end;



end.

--------------------------------------------------------------------------------------------
Die Exe kann mit F9 auch ausgeführt werden (also kein Fehler). Jedoch gibt mir die EXE nun immer an: Fehler beim Ausführen. An was kann das liegen? Wie kann ich mein Batch.File also starten? Es wäre super nett von dir, wenn du rasch zu jeder Zeile einen Kommentar hinschreiben würdest, für was die einzelnen Befehle stehen. Ich weiss, ist ein bisschen viel verlangt, stehe aber im Zeitdruck.

Vielen Dank und ein freundlicher Gruss

Reeng

 

So ist's richtig:

PCHAR('ExtractFilePath(Application.Exename)'+'\autorun.bat'),

und so, wenn sich das Ganze im Hauptverzeichnis befindet:

PCHAR('ExtractFilePath(Application.Exename)'+'autorun.bat'),

 

Vielen Dank für deine Antwort. Das EXE gibt mir jedoch noch immer aus: Fehler beim Ausführen. Muss ich bei:
PCHAR('ExtractFilePath(Application.Exename)'+'autorun.bat'),

Application oder .Exename durch etwas ersetzen damits funktioniert? Muss ich oben im Code (Also nicht in der Button Funktion) noch etwas ergänzen?

Gruss

Reeng

 

In welchem Verzeichnis befindet sich die Applikation und in welchem die bat-Datei?

 

Ich habe die autorun.bat Datei in das gleichi Verzeichnis kopiert wo sich auch das Projekt zw. die Exe befindet. Also sollte der Code doch funktionieren? Vielen Dank dass du dich für mein Problem interessierst.

Gruss

reeng

 

Das hier sollte dann funktionieren (nicht den Backslash und den Rest der Anweisung vergessen):

PCHAR(ExtractFilePath(Application.Exename)+'\autorun.bat')

Habe vorher leider deine Hochkommas übersehen!

 

Generell würde ich zu diesem Konstrukt raten:

Code:

PROCEDURE StartExternalApplication(VAR StartString : STRING);
VAR Startupinfo : TStartupinfo;
  ProcessInfo : TProcessInformation;
BEGIN
  FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
  startupinfo.cb := SizeOf(Tstartupinfo);
  CreateProcess(NIL,
  PChar(StartString), // Startstring=Applikation die gestartet werden soll
  NIL,
  NIL,
  FALSE,
  Normal_Priority_Class,
  NIL,
  NIL,
  startupinfo,
  processinfo);
END;

 

oh, sorry, ich hatte vergessen anzumerken, dass die pfadangabe in meinem code relativ ist, ausserdem vergaß ich einen slash.

also nochmal lauffähiger code mit RELATIVER pfadangabe:

Code:

procedure TForm1.Button2Click(Sender: TObject);
var e: Integer;
begin
  e := ShellExecute
    (Handle,
    NIL,
    PCHAR(PCHAR(ExtractFilePath(Application.Exename)+'\batchfile.bat')),
    PCHAR(''),
    NIL,
    SW_SHOW);
  if (e<=32) then
    begin
      ShowMessage('Fehler beim Ausführen der Datei')
    end
end;

und hier mit STATISCHER pfadangabe:

Code:

procedure TForm1.Button2Click(Sender: TObject);
var e: Integer;
begin
  e := ShellExecute
    (Handle,
    NIL,
    PCHAR('C:\Batchfiles\batchfile.bat'),
    PCHAR(''),
    NIL,
    SW_SHOW);
  if (e<=32) then
    begin
      ShowMessage('Fehler beim Ausführen der Datei')
    end
end;

anmerkung: da keine pauschale aussage für die laufwerksbuchstaben getroffen werden kann:

wenn du dein programm auf wechselbaren datenträgern wie einer cd oder einem usb-stick verwenden willst, solltest du relative pfadangaben verwenden. ansonsten besteht das risiko, dass das programm die datei nicht findet, da auf dem system die laufwerksbuchstaben nicht mit jenen im code angegebenen übereinstimmen könnten.

 

@ da_ferdi

Na ja, da lag schon noch mehr im Argen
Außerdem ist shellexecute veraltet und wurde durch createprocess ersetzt.