Fenster von anderem User auf TerminalServer finden

[fajac]

Hallo zusammen,
ich habe folgendes Problem:
Auf einem Terminalserver laufen etliche Instanzen meines Programms, und das eigentlich 24 Stunden pro Tag. Wenn ich eine neue Version einspielen will, muss ich zunächst über einen administrativen Zugang alle diese Instanzen "abschießen". Das kann man natürlich per Taskmanager erledigen, aber schöner fände ich es, allen Instanzen eine Nachricht schicken zu können, um damit den gerade aktiven Anwender zu warnen.

Leider funktionieren FindWindow und GetTopWindow/GetNextWindow anscheinend nicht zwischen Terminal-Sessions. Hat jemand eine Idee, wie ich trotzdem an die FensterHandles der aktiven Instanzen komme?

[Apollonius]

Verwende nicht die Fensterhandles. Kernel-Objekte, insbesondere MMFs und Events, kannst du im sog. globalen Namespace erstellen, d.h. für alle TS-Sessions sichtbar. Du kannst dann in jeder Instanz auf das Event warten oder in regelmäßigen Abständen die MMF auslesen und, wenn ein festgelegtes Signal kommt, terminieren.

[shmia]

Wenn du die JCL einsetzen kannst könnte ich Dir eine Lösung zeigen.
Die JCL enthält die Klasse TJclAppInstances; mit der kann man Botschaften zwischen allen Instanzen austauschen.
Intern werden über Memory-Maped-Files die Fenster Handles ausgetauscht.

Das sieht dann so aus:

Delphi-Quellcode:

unit ...,JclAppInst;  

const
   AI_SHUTDOWN_LPARAM = 446;  // LParam-Wert, der beim Senden der Shutdown-Message benützt wird

class procedure TMainForm.SendShutdownMessage;  // Meldung an alle Instanzen schicken
begin
   JclAppInstances.UserNotify(AI_SHUTDOWN_LPARAM);
end;

procedure TMainForm.HandleOnMessage(var Msg: TMsg; var Handled: Boolean);  // Eventhandler für Application.OnMessage
begin
   if Msg.message = JclAppInstances.MessageID then
   begin
     if (Msg.wParam=AI_USERMSG) and (Msg.lParam=AI_SHUTDOWN_LPARAM) then
        ShowMessage('Bitte speichern Sie Ihre Änderungen und beenden Sie dieses Programm!');
   end;
end;

[Apollonius]

Meines Wissens funktionieren Fensternachrichten nicht über TS-Session-Grenzen hinweg; schlicht und einfach deshalb, weil Fensterhandles Session-lokal sind.

[shmia]

Zitat:

Zitat von Apollonius

Meines Wissens funktionieren Fensternachrichten nicht über TS-Session-Grenzen hinweg; schlicht und einfach deshalb, weil Fensterhandles Session-lokal sind.

Stimmt. :roll:
Hab's gerade getestet auf Windows 2003 Server:
Zwei Instanzen unter dem gleichen Session können sich gegenseitig Botschaften schicken.
Bei verschiedenen Sessions geht das nicht mehr.
Auch Adminrechte bewirken dann nichts.

[fajac]

Vielen Dank für alle Antworten und Anregungen!
Ich denke ich werde das Problem über einen Thread lösen, der unbegrenzt auf einen Event wartet.