diff options
| author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-01-14 20:24:26 +0000 |
|---|---|---|
| committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-01-14 20:24:26 +0000 |
| commit | f45dc3d1515c9f46b13a88dceff32c7fe96447d9 (patch) | |
| tree | dbb1fac1653c49ad055c6e92cae8bbba9d3eefda | |
| parent | 8240f0203c6ae101dda276c7a6540e94f545dce2 (diff) | |
| download | fpc-f45dc3d1515c9f46b13a88dceff32c7fe96447d9.tar.gz | |
* Delphi compat overload releasestgmedium
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@14645 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | packages/winunits-base/src/activex.pp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/packages/winunits-base/src/activex.pp b/packages/winunits-base/src/activex.pp index 2b8161c4fc..ce62e1b36f 100644 --- a/packages/winunits-base/src/activex.pp +++ b/packages/winunits-base/src/activex.pp @@ -3566,6 +3566,8 @@ type function OleDraw(pUnknown:IUnknown; dwAspect:DWORD; hdcDraw:HDC;const lprcBounds:TRect):WINOLEAPI;stdcall;external 'ole32.dll' name 'OleDraw'; function OleRun(pUnknown:IUnknown):WINOLEAPI;stdcall;external 'ole32.dll' name 'OleRun'; function OleIsRunning(pObject:IOleObject):BOOL;stdcall;external 'ole32.dll' name 'OleIsRunning'; + + procedure ReleaseStgMedium(var _para1:STGMEDIUM);stdcall;external 'ole32.dll' name 'ReleaseStgMedium'; procedure ReleaseStgMedium(_para1:LPSTGMEDIUM);stdcall;external 'ole32.dll' name 'ReleaseStgMedium'; function CreateOleAdviseHolder(out ppOAHolder:IOleAdviseHolder):WINOLEAPI;stdcall;external 'ole32.dll' name 'CreateOleAdviseHolder'; |