Das könnte man auch über
COM-Objekte lösen.
Hier erst mal ein Interface.
Delphi-Quellcode:
ISharedData = interface(IDispatch)
['{EFFF2A9E-093F-45DA-B5D1-2764026B65DD}']
function Get_Value(const Name: WideString): OleVariant; safecall;
procedure Set_Value(const Name: WideString; Value: OleVariant); safecall;
property Value[const Name: WideString]: OleVariant read Get_Value write Set_Value;
end;
Jede Anwendung befragt zuerst einmal die Running Object Table (ROT) nach einem Objekt mit diesem Interface.
Falls es das Objekt in der ROT noch nicht gibt, wird ein neues anlegt (dass sich selbst in der ROT registiert).
Somit haben alle Anwendungen das gleiche Objekt am Wickel.
Natürlich gibt es eine Factoryklasse, damit die Anwendung sich nicht selbst mit der ROT beschäftigen muss.
Die Klasse, die ISharedData implementiert führt intern eine sortierte Liste von Strings und Variants.
Die Verwendung ist dann recht einfach:
Delphi-Quellcode:
var
sdata : ISharedData;
...
sdata.Value['Prog1.RunStatus'] := 1;
...
if sdata.HasValue('irgendwas') then
ShowMessage('irgendwas = '+sdata.Value['irgendwas']);