Hallo,
Ich habe bereits mehrfach die Hilfe in diesem Forum benutzt jedoch hilft mir bisher kein Post wirklich weiter.
Mein Programm startet nacheinander unterschiedliche "Dienste" via CreateProcess:
Delphi-Quellcode:
GetStartupInfo(StartupInfo);
StartupInfo.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := SW_HIDE; // SW_SHOWNORMAL;
StartupInfo.hStdOutput := NewStdOut;
StartupInfo.hStdError := NewStdOut;
StartupInfo.hStdInput := NewStdIn;
Delphi-Quellcode:
if not CreateProcess(
nil,
//PChar(CommandLine),
PChar(strDummy),
nil,
nil,
True,
ProPri,
// and CREATE_NEW_CONSOLE,
nil,
nil,
StartupInfo,
ProcessInfo)
then begin
LogDlg.AddToKonsoleLog('
nach CreateProcess Close Handle');
// CloseHandle(NewStdIn);
// CloseHandle(NewStdOut);
// CloseHandle(ReadStdOut);
// CloseHandle(WriteStdIn);
LogDlg.AddToKonsoleLog('
Win32 Error recieved'+ SysErrorMessage(GetLastError));
in strDummy steht die auszuführende Zeile einer Batchdatei. Das kann z.B. sein:
Delphi-Quellcode:
del C:\Software\sw\report_detail.pdf
copy C:\Software\sw\report.xml C:\Software\sw\protocol.xml
C:\Software\sw\help_program.exe
Jetzt kommt bei der Ausführung des del-Befehls immer Zugriff verweigert(sehe ich durch GetLastError) und ich weiß nicht warum?!
Führe ich den del Befehl in der Console aus dann funktioniert er einwandfrei. Die zu löschende Datei wird dann auch gelöscht, wenn ich es über createprocess starte dann tut der "DEL" nichts
Ich nutze deshalb createprocess weil ein eigener Prozess erzeugt wird und meine
GUI weiterhin bedienbar ist. Außerdem soll der Ablauf auch ohne
GUI funktionieren (also das reine Ausführen der Batch Datei).
Ich hoffe ich habe euch alle relevanten Daten gegeben und ihr könnt mir weiterhelfen.
Verwandte Themen habe ich bereits durchsucht:
http://www.delphipraxis.net/internal...=createprocess
http://www.delphipraxis.net/internal...igert&start=30
Danke und schöne Grüße
Andi