mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-19 11:11:43 +02:00
14 lines
281 B
ObjectPascal
14 lines
281 B
ObjectPascal
{ %target=win32}
|
|
{ Source provided for Free Pascal Bug Report 3820 }
|
|
{ Submitted by "Matthias Hryniszak" on 2005-03-24 }
|
|
{ e-mail: matthias@hryniszak.de }
|
|
program Test;
|
|
|
|
uses
|
|
ActiveX;
|
|
|
|
begin
|
|
// the following imports are missing:
|
|
OleInitialize(nil);
|
|
OleUninitialize;
|
|
end. |