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
Programmierung allgemein
Zitat
Baum-Darstellung
