You've already forked lazarus-ccr
14 lines
139 B
ObjectPascal
14 lines
139 B
ObjectPascal
|
unit delphi_init_com;
|
||
|
|
|
||
|
|
interface
|
||
|
|
uses ActiveX;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
initialization
|
||
|
|
CoInitialize(nil);
|
||
|
|
|
||
|
|
finalization
|
||
|
|
CoUninitialize();
|
||
|
|
end.
|