"CoInitialize wurde nicht aufgerufen" in NonVCL-Anwendung

[Aljoscha]

Hi.
Ich habe hier einen Code und der hat auch beim testen in einer anderen Anwendung super geklappt.
Das problem scheint zu sein das es sich jetzt hier im "finalen Einsatz" um eine NonVCL-Anwendung handelt.
Jetzt kriege ich immer folgenden Fehler:

Zitat:

---------------------------
Debugger Exception Notification
---------------------------
Project bot.exe raised exception class EOleSysError with message 'CoInitialize wurde nicht aufgerufen'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Ich habe schon in einem anderen Thread gelesen ich solle das hier schreiben:

Zitat:

unit Form1;

{ ... }

initialization
CoInitialize(nil);
finalization
CoUninitialize;
end.

Aber ich weiß nicht wo ich den Code einfügen soll.
Ich habe es in meinem Projektquelltext nach dem "end." eingefügt, aber dort ist es ja schon zu spät.
An allen anderen Stellen erhalte ich einen Syntaxfehler.
Kann mir jemand sagen was ich tun kann?

[lbccaleb]

füge den code hinter den code hinter der nachrichtenschleife ein!!! dann sollte es gehen, oder wenn du mit messages arbeitest, kannst du es auch mit der message WM_DESTROY verknüpfen... das würde ebenfalls gehen, so wird es beim schliessen des progs aufgerufen...

[dominikkv]

das muss direkt über das end. (mit punkt) (nicht zweimal end.)

[JasonDX]

CoInitialize hinterm Begin deines Programms, CoUninitialize vors End deines Programms... ;)

auf Delphisch:

Delphi-Quellcode:

program blubb;

begin
  CoInitialize()
  //Code
  CoUninitialize();
end.

(der Initialization-Teil einer Unit wird zu Beginn des Programms ausgeführt, der Finalization-Teil am Ende.)

greetz
Mike

[Aljoscha]

Oh das scheint zu klappen, da bin ich erleichter :P
Vielen Dank an alle!