Processharing unter Delphi 5 Ent

[Michael Grosse]

Ich habe ein Problem,
wie kann ich unter Delphi 5 Ent auf von anderen Programmen freigegebene Variablen zugreifen?

so zum Beispiel C++ -> Delphi 5

Danke schonmal für die Hilfe

gruss
Michael

[Nico Bendlin]

Exportierte Variablen werden eigentlich von Delphi nicht unterstützt.
Aber man kommt natürlich trotzdem heran, zB:

<pre>
<p>
<b>var</b>
NlsAnsiCodePage: ^Word;
<p>
<b>procedure</b> TForm1.FormCreate(Sender: TObject);
<b>begin</b>
NlsAnsiCodePage := GetProcAddress(GetModuleHandle('ntdll.dll'), 'NlsAnsiCodePage');
<b>end</b>;
<p>
<b>procedure</b> TForm1.Button1Click(Sender: TObject);
<b>begin</b>
<b>if</b> Assigned(NlsAnsiCodePage) <b>then</b>
ShowMessage('NlsAnsiCodePage: ' + IntToStr(NlsAnsiCodePage^))
<b>else</b>
ShowMessage('Variable ''NlsAnsiCodePage'' wurde nicht gefunden!');
<b>end</b>;
<p>
</pre>

(Das Beispiel geht hier von einem Windows NT/2ooo aus, wo die ntdll.dll stets geladen ist, die eine Variable "NlsAnsiCodePage" exportiert.)

Gruß Nic

[Michael Grosse]

Vielen Dank,
hat super funktioniert...