Test-Programm

[TJDD]

der Code ist mein Projekt ich wollte nur dies ereichen ich werde mal genau den Genauen Pfad angeben und auf groß und klien schreibung achten

[TJDD]

sry für den Doppelpost wollte das man das aktualisierte besser sieht


Also ich habe mir mal gedanken gemacht und ich denke das Problem ist gelöst

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var 
  hProcess: THandle;
  wf: DWORD;
begin
  bClose := False;
  while bClose = False do
  begin
    hProcess := GetProcessHandleFromID(GetProcessID('C:\Programme\TightVNC\WinVNC.exe'));
    if hProcess = 0 then
      begin
        [b]Timer1.enabled := false;[/b]
        winexec(pchar('C:\Programme\TightVNC\WinVNC.exe'),sw_shownormal);
      end
    else
     [b] Timer1.enabled := true;[/b]
    Application.HandleMessage;
  end;

habe mal den Timmer deaktiviert wenn das programm an ist erst wenn es aus ist wird er wieder akriv

[TJDD]

So habe dann noch ne frgae wie bekomme ich das Programm in die Regetry so dass es automatisch bei Windowsstart geladen wird??

[Matze]

Siehe: Autostart

[TJDD]

Zitat:

original von Dieser Code stammt von Daniel B.:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  Reg: TRegistry; 
begin 
  Reg := TRegistry.Create; 
  try 
    Reg.RootKey := HKEY_CURRENT_USER; 
    Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True); 
    Reg.WriteString('NameDerAnwendung', ParamStr(0)); 
    Reg.CloseKey; 
  finally 
    Reg.Free; 
  end; 
end;

Muss nun unter namen der anwendung nur der name oder der komplette pfad

Z.B

Project1.exe

oder

c:\Projekt1.exe

[Mr_G]

Soweit ich das sehe ist das nur eine Beschreibung da der Komplette Pfad ja mit ParamStr(0) als Wert eingetragen wird.
Project1.exe würde also reichen.

P.S.: Wie war das noch gleich mit: "Neue Frage - neuer Thread"?

[TJDD]

gehört aber noch zu dem obigen Programm daher nix neues wollen aufmachen

Also nur Programmname

DANKE

[Olli]

Wäre es nicht am einfachsten, wenn dein "Watchdog" auch den überwachten Prozeß direkt startet? Somit wäre ein Handle vorhanden und der Watchdog könnte über eine der Wait*-Funktionen warten. Wenn du das in einer Schleife machst, wird der Prozeß immer wieder neu gestartet.

Abgesehen davon ist WinExec() "deprecated" und deine Timer1-Methode hoch ineffektiv. Aber jedem das seine

Desweiteren ist die Funktion GetProcessID() abgesehen von der Inkompatibilität zu Windows NT 4 nicht generisch funktionsfähig! Leider ist der Puffer nicht groß genug um beliebige EXE-Namen zu halten. Wenn also ein zu langer Name gesucht wird, so wird er nicht gefunden, weil der Puffer zB schon bei ".e" statt ".exe" aufhört.

[TJDD]

Sehr schon das mir das jmd sagt Dsnke dir Olli

Kann man das irgendwie verbessern so das es effektiver ist??

Und gibt es eine besser Fucntcion als GetProcessID() ??

Danke für diese gute Hilfe

[Olli]

Zitat von TJDD:

Kann man das irgendwie verbessern so das es effektiver ist??

Jupp, zB so wie ich das gesagt habe und dann das Ganze in einen Thread auslagern. Da können dir hier andere aber auch weiterhelfen. Ich bin nämlich ab heute Nachmittag bis Freitag nicht verfügbar.

Statt WinExec kannst du dann zB ShellExecuteAndWait (Direktlink) benutzen und in eine Schleife innerhalb eines Threads packen. Dann der Waitfunktion ist das allein schon effektiver, weil eben nicht ein Timer ewig pollt, sondern du quasi benachrichtigt wirst.

Zitat von TJDD:

Und gibt es eine besser Fucntcion als GetProcessID() ??

Nein. Mir wäre da nichts bekannt. Auf NT/2000 usw. steckt das Problem bereits in der Native API, auf der die Toolhelp-API aufsetzt. Da kann man wohl bloß pragmatisch herangehen