fehler bei shellexecute (unit shellapi vorhanden)

[Stadtfuchs]

hi leute,

ich habe ein problem bei einer shellexecute anweisung und stehe grad voll aufn schlauch wie ich das behebe
es wird wohl nur ein simpler tippfehler sein aber ich komme grad nicht drauf und deswegen würde ich euch bitten, euch das mal anzusehn.

Delphi-Quellcode:

// Wird ausgeführt, wenn Timer1 nach 60sec abläuft
procedure TOracle_Sicherung.Timer1Timer(Sender: TObject);
begin
  // Diese Variablen beeinflussen Teile des Sicherungsbefehls
  User := 'system';                      // User auf der Datenbank, der Exports machen darf (Standart User von Oracle)
  Passwort := 'XXXXXXX';                 // Passwort vom System User
  TNS := 'XXXXXX';                       // TNS Name der zu exportierenden Datenbank
  DatenbankUser := 'XXXXXXXXX';          // Der Datenbank User
  Datei := 'C:\BackUp_'+DateToStr(Date); // Ort und Name des Exportfilters der erstellt wird
  // .bat Datei erstellen
  List:=tstringlist.create;
  List.add('exp '+User+'/'+Passwort+'@'+TNS+' owner='+DatenbankUser+' file='+Datei);
  List.savetofile('C:\' + 'Oracle_Sicherung.bat');
  // .bat Datei ausführen
  ShellExecute(Application.Handle, //Hier wird Handle nicht gefunden...
                 'open',
                 PChar('C:\' + 'Oracle_Sicherung.bat'),
                 Nil, Nil, SW_NORMAL);
  // Stringlist free, .bat Datei löschen & Sicherungsdatei komprimieren
  List.free;
  deletefile('C:\' + 'Oracle_Sicherung.bat');
  CompressFile('C:\'+Datei);
end;

bei dem Punkt application.handle findet der des einfach net und ich such mich grad tot woran des nu wieder hapern könnte...

wäre echt genial wenn mir da einer mal nen tritt in die richtige richtung geben könnte

besten dank im voraus

stadtfuchs

[3_of_8]

Hast du auch Forms eingebunden, in dieser Unit ist Application und TApplication nämlich deklariert?

Außerdem kannst du statt Application.Handle auch einfach 0 schreiben.

[Stadtfuchs]

ich bin ja sooooo.... :wall:

allerbesten dank :mrgreen:
manchmal seh ich den wald vor lauter bäumen nicht :-D

[3_of_8]

Die einfachste Lösung wäre übrigens tatsächlich, einfach 0 hinzuschreiben, weil du durch das einbinden von Forms nur ne Menge Overhead mit rein kriegst und deine EXE aufblähst.

[Stadtfuchs]

danke für den hinweis, dann werd ich die 0 nehmen