Prozess wird nicht beendet

[Luckie]

Wenn ich folgende Methode in einem VCL Thread habe

Delphi-Quellcode:

function TRegNotifier.WatchRegKey(ARoot: HKEY; AKey: string): DWORD;
var
  err               : DWORD;
  hEvent            : THandle;
  hndlkey           : HKEY;
begin
  // create event, that is signaled by RegNotifyChangeKeyValue
  hEvent := CreateEvent(nil, False, False, nil);
  if (hEvent <> 0) and not Terminated then
  begin
    err := RegConnectRegistry(nil, ARoot, hndlkey);
    if (err = 0) and not Terminated then
    begin
      err := RegOpenKeyEx(hndlkey, PChar(AKey), 0, KEY_NOTIFY, hndlkey);
      if (err = 0) and not Terminated then
      begin
        // start monitoring the specific key
        err := RegNotifyChangeKeyValue(hndlkey, True, REG_NOTIFY_CHANGE_LAST_SET, hEvent, False);
        if Assigned(OnRegKeyChanged) then
        begin
          FOnRegKeyChanged(self);
        end;
        if err <> ERROR_SUCCESS then
        begin
          if Assigned(OnRegNotifierError) then
            FOnRegNotifierError(self, err, SysErrorMessage(err));
          Terminate;
        end;
        RegCloseKey(hndlkey);
      end // RegOpenKey
      else
      begin
        if Assigned(OnRegNotifierError) then
          FOnRegNotifierError(self, err, SysErrorMessage(err));
        Terminate;
      end;
    end // RegConnectRegistry
    else
    begin
      if Assigned(OnRegNotifierError) then
        FOnRegNotifierError(self, err, SysErrorMessage(err));
      Terminate;
    end;
  end
  else
    err := GetLastError;
  // return last error
  result := err;
end;

...und der Thread läuft, wird der Prozess beim Schließen des Hauptfensters nicht beendet. Obwohl laut Nico in diesem Posting http://www.delphipraxis.net/internal...=514575#514575 der Prozess eigentlich terminieren müsste.

Aber warum tut er das bei mir nicht?

[NicoDE]

Kannst du bitte mal das angehängte Projekt ausprobieren und alle unnötigen Packages deaktivieren...

[Luckie]

Hier an der Arbeit hab eich kein 7zip. Könnte es also erst zu Hause heute Abend probieren.

[NicoDE]

Zitat:

Zitat von Luckie

Hier an der Arbeit hab eich kein 7zip.

Arbeitsrechner ohne 7-Zip, tztztz.
Hab's als Zip hochgeladen.

[Luckie]

Ja ja ja. Ich bin froh, dass die mir einen Rechner gegeben haben der überhaupt einigermaßen läuft. Abzüglich des Sharedmemory der Grafikkarte habe ich noch 480 MB für XP, VS, Firefox und was man sonst noch so am Laufen hat.

So, dein Code funktioniert. Was war denn jetzt mein fehler, dass der Thread nicht beendet wurde?

PS: Meine schöne Klasse total umgekrämpelt. :cry:

[NicoDE]

Zitat:

Zitat von Luckie

Was war denn jetzt mein fehler, dass der Thread nicht beendet wurde?

Keine Ahnung...
...ich kann dein Problem mit deiner Klasse auf meinem Rechner nicht nachvollziehen - vielleicht benutze ich sie einfach anders (edit: vielleicht liegt's aber auch an RegConnectRegistry).

Zitat:

Zitat von Luckie

Meine schöne Klasse total umgekrämpelt. :cry:

Tut mir leid, ich wollte doch nur die Handles bei Terminate() freigeben und dann noch dies und jenes...
OK, eigentlich habe ich nur versucht meine Klasse an deine Vorlage anzupassen :D

[Luckie]

Zitat:

Zitat von NicoDE

OK, eigentlich habe ich nur versucht meine Klasse an deine Vorlage anzupassen :D

Na ja, er gibt es wemfalls zu. :mrgreen:

Aber ich hatte sowieso vergessen die Ereignisse zu synchronisieren. ;)

Ich habe gesehen, dass du beim Beenden das Objekt gar nicht frei gibst.

Und wenn ich das jetzt so mache:

Delphi-Quellcode:

{*
 *  Procedure: TForm1.Button1Click
 *  Start monitoring
 *  Author    : michael.puff
 *  Date      : 2006-03-10
 *}
procedure TForm1.Button1Click(Sender: TObject);
begin
  RegNotifier := TRegNotifier.Create(HKEY_LOCAL_MACHINE, LMKEY);
  with RegNotifier do
  begin
    OnRegKeyChanged := Self.OnRegKeyChanged;
    OnRegKeyFailure := Self.OnRegKeyFailure;
    Resume();
  end;
end;

{*
 *  Procedure: TForm1.Button2Click
 *  Stop monitoring
 *  Author    : michael.puff
 *  Date      : 2006-03-10
 *}
procedure TForm1.Button2Click(Sender: TObject);
begin
  if Assigned(RegNotifier) then
  begin
    FreeAndNil(RegNotifier);
  end;
end;

Dann reagiert das Fenster auf einmal nicht mehr. :gruebel:

Neue Erkenntnis:
Und wenn ich den Code von Button2Click im OnDestroy des Formulares habe, dann wird der Prozess auch nicht beendet.

[NicoDE]

Zitat:

Zitat von Luckie

Ich habe gesehen, dass du beim Beenden das Objekt gar nicht frei gibst.

FreeOnTerminate ist True.

ps: warum sollte man die Klasse im Destroy nutzen...

[Luckie]

Hm, OK auch wieder war. Aber was mache ich, wenn ich die Überwachung unterbrechen will mit einem Button Klick?

[NicoDE]

Zitat:

Zitat von Luckie

Aber was mache ich, wenn ich die Überwachung unterbrechen will mit einem Button Klick?

Die saubere Lösung implementieren: TObjectList mit alle Threads, natürlich mit FreeOnTerminate = False.