, , ( ). , , .
. , , :
1. ;
2. .
!!
, .
. , , , , - , . .
. , . , , RegisterClipboardFormat (). . . , , . , , , .
25 . , :
1. cf_Text (ASCII-z );
2. cf_BitMap ;
3.
, , :
1. ;
2. .
-, -.
:
1. ;
2. ;
3. ;
4. ;
5. .
:
1) Ghandle GlobalAlloc (size_t). ;
2) . GPtr GlobalLock(GHandle);
3) . , StrCpy (GPtr, char*);
|
|
4) . GlobalUnlock (GHandle).
OpenClipboard (GHandle). , , , .
. EmptyClipboard(GHandle).
. SetClipboardData(cf_Text, GHandle).
. CloseClipboard (GHandle). .
:
1. ;
OpenClipboard()
2. ;
IsClibpoardFormatAvailable()
. (, cf_Text)
true, .
3. ;
.
:
a) , .
GetClipboardData();
GHandle.
b) ;
GPtr GlobalLock (GHandle);
c) ;
GetMem (void *P, );
d) ;
, , StrCpy (p, GPtr);
e) .
GlobalUnlock (GHandle);
4. .
CloseCliboard ();
, . , , , , , . , .
, Delphi Clipbrd, TClipboard. , TEdit, TMemo, TImage .