pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Started to isolate OLE functions

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@118 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2007-03-05 23:28:47 +00:00
parent 93fd07caa5
commit 553c1325ac
9 changed files with 855 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/virtualtreeview-unstable/lclfunctions.inc
View File

@@ -266,4 +266,12 @@ procedure OleUninitialize;stdcall;external 'ole32.dll' name 'OleUninitialize';
procedure ReleaseStgMedium(_para1:LPSTGMEDIUM);stdcall;external 'ole32.dll' name 'ReleaseStgMedium';
function OleSetClipboard(pDataObj:IDataObject):WINOLEAPI;stdcall;external 'ole32.dll' name 'OleSetClipboard';
function OleGetClipboard(out ppDataObj:IDataObject):WINOLEAPI;stdcall;external 'ole32.dll' name 'OleGetClipboard';
function OleFlushClipboard:WINOLEAPI;stdcall;external 'ole32.dll' name 'OleFlushClipboard';
function OleIsCurrentClipboard(pDataObj:IDataObject):WINOLEAPI;stdcall;external 'ole32.dll' name 'OleIsCurrentClipboard';