[Delphi] programm pausieren

naz · 25. März 2007

programm pausieren

hi..
durch ein buttonklick öffne ich bei meinem programm C:\test.exe
kann ich mein programm solange pausieren lassen biss C:\test.exe sich geschlossen hat??
wenn ja wie?
komme nicht drauf

Anzeige

Hachi · 25. März 2007

AW: programm pausieren

Hmm, vielleicht hilft dir eine Schleife und eine If Abfrage weiter. Die If Abfrage prüft ob die Datei noch offen ist, und solange die Datei noch offen ist läuft die Schleife weiter.

naz · 26. März 2007

AW: programm pausieren

hmm das ist eigendlich logisch aber.. is das nicht ein wenig ressorcefressend
ich mein mein programm das sich öffnet spielt ein film ab ^^.. und dauert schon so 1-2 stunden biss der sich schließt

~Br4inP4in~ · 26. März 2007

AW: programm pausieren

Ich kann kein Delphi, aber das würd ich auch sagen... wenn das programm 2h lang im zehntel-sekunden-takt fragt ob die .exe noch an is, dann wird die cpu Auslastung drastisch erhöht werden...
Gibts bei Delphi vlt ne art call-funktion auf Batch-art?! Ansonsten würde mir auch nichts sinnvolles einfallen..

GreetZ, ~Br4inP4in~

MArc · 26. März 2007

AW: programm pausieren

Hi,

entweder der Thread hilft dir weiter oder die Funktion `Delay´.

Gruss,
MArc

razor90 · 26. März 2007

AW: programm pausieren

Ich kann zwar kein Delphi, aber so würde ich es machen:

1. Prozess mit CreateThread API oder was auch immer Starten (hauptsache du bekommst die Process ID)
2. Dann einfach immer in einer Schleife den ExitCode mit der GetExitCodeProcess API abfragen, und solange STILL_ACTIVE (is ne Konstante, glaub 0x103) bei rauskommt läuft das Prog noch.

mfg r90

alter.ego · 26. März 2007

AW: programm pausieren

Hi,

aber ist das nicht dasselbe wie schon in den ersten Postings vorgeschlagen? Und wegen der CPU Auslastung scheinbar nicht die beste Methode?

@naz
Hast du dir das mit der Delay Funktion schon angesehen, würde mich mal interessieren?

Ktm123 · 26. März 2007

AW: programm pausieren

du kannst ganz einfach einen Thread starten, der alle 5 sekunden über das WinApi überprüft, ob dein Programm noch gestartet ist.

Ratsplayer · 26. März 2007

AW: programm pausieren

Home - Delphi-Treff

Hab ich hier irgendwo ma auf der seite unter tipps gefunden!!!
war relativ einfach...

naz · 26. März 2007

AW: programm pausieren

thx für eure antowrten.. hab aber leider grad keine zeit das auszuprobieren.. melde mich sobald ich es getestet hab

Unplugged · 26. März 2007

AW: programm pausieren

die Delay-Funktion macht nichts anderes.
Die Schleifen-Lösung ist nicht Prozesslastig, wenn du ein Sleep einbaust und zwischendurch auch regelmäßig Application.ProcessMessages einbaust.
Das Sleep muss dabei nicht lange sein, 100 Millisekunden sollten reichen.

Noch sauberer wäre es, dass ganze in einen Thread auszulagern und diesen zusätzlich eine geringe Priorität zuzuordnen. Weiterhin "hängt" dann auch das Hauptfenster nicht mehr.

In diesem Falle kommt die Schleife dann direkt in den Thread. Dann brauchste nur noch eine Callback-Funktion sobald der Thread fertig ist und hast es sauber gelöst. Also nicht sowas anfangen wie das Prüfen im Hauptprogramm, ob der Thread noch läuft oder ähnliches.

asdrexit · 27. März 2007

AW: programm pausieren

War mir jetzt zu faul den Link rauszusuchen

Verwendung von CreateProcess
Autoren: Keine Autoren angegeben
Letzte Änderung: 2005-04-27

Um ein anderes Programm zu starten sollte man CreateProcess benutzen, da diese Funktion sehr viele Parameter kennt. Hier eine Funktion, die den Umgang damit erleichtert. In AFilename wird der Dateiname des Programms übergeben, in AParameter kann die Parameterzeile angegeben werden, in ACurrentDir übergibt man ein alternatives Startverzeichnis, bei einem leeren String wird das Verzeichnis der Exe benutzt. Setzt man ACurrentDir auf ein nicht vorhandenes Verzeichnis, startet die Anwendung nicht. Wenn AWait True ist, wartet das Programm darauf, dass das aufgerufene Programm beendet wird.
Übergibt man den optionalen Parameter AOnWaitProc, so wird diese Funktion etwa alle 50 ms aufgerufen, bis das gestartete Programm wieder geschlossen wird. Über die Parameter, die AOnWaitProc übergeben werden, kann man auf den Prozess zugreifen und ihn ggf. beenden.

type
TExecuteWaitEvent = procedure(const ProcessInfo: TProcessInformation;
var ATerminate: Boolean) of object;

procedure ExecuteFile(const AFilename: String;
AParameter, ACurrentDir: String; AWait: Boolean;
AOnWaitProc: TExecuteWaitEvent=nil);
var
si: TStartupInfo;
pi: TProcessInformation;
bTerminate: Boolean;
begin
bTerminate := False;

if Length(ACurrentDir) = 0 then
ACurrentDir := ExtractFilePath(AFilename);

if AnsiLastChar(ACurrentDir) = '\' then
Delete(ACurrentDir, Length(ACurrentDir), 1);

FillChar(si, SizeOf(si), 0);
with si do begin
cb := SizeOf(si);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := SW_NORMAL;
end;

FillChar(pi, SizeOf(pi), 0);
AParameter := Format('"%s" %s', [AFilename, TrimRight(AParameter)]);

if CreateProcess(Nil, PChar(AParameter), Nil, Nil, False,
CREATE_DEFAULT_ERROR_MODE or CREATE_NEW_CONSOLE or
NORMAL_PRIORITY_CLASS, Nil, PChar(ACurrentDir), si, pi) then
try
if AWait then
while WaitForSingleObject(pi.hProcess, 50) <> Wait_Object_0 do
begin
if Assigned(AOnWaitProc) then
begin
AOnWaitProc(pi, bTerminate);
if bTerminate then
TerminateProcess(pi.hProcess, Cardinal(-1));
end;

Application.ProcessMessages;
end;
finally
CloseHandle(pi.hProcess);
CloseHandle(pi.hThread);
end;
end;

Beispielaufruf (kein Warten)

procedure TForm1.Button1Click(Sender: TObject);
begin
ExecuteFile('c:\windows\notepad.exe', '', '', false);
end;

Beispielaufruf (mit Warten)

Die Anwendung wird mit Button1 gestartet und kann mit Button2 beendet werden.

type
TForm1 = class(TForm)
...
private
FTerminate: Boolean;
procedure DoOnExecuteWait(const ProcessInfo: TProcessInformation;
var ATerminate: Boolean);
end;

procedure TForm1.DoOnExecuteWait(const ProcessInfo: TProcessInformation;
var ATerminate: Boolean);
begin
ATerminate := FTerminate;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
FTerminate := False;
ExecuteFile('C:\Windows\notepad.exe', '', '', True, DoOnExecuteWait);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
FTerminate := True;
end;

Im Gegensatz zu Shellexecute können so wirklich nur ausführbare Programme gestartet werden.

Nähere Informationen sind im PSDK unter dem Stichwort Process_Information zu finden.

Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nützliche Suchen

[Delphi] programm pausieren

Videos zum Themenbereich