ques. about setashandle


2003-11-18 08:53:34 PM
delphi183
There is a sample code in delphi help file about getashandle. I want to send
a string to a particular clipboard format using setashandle command. there
is no help about this. (there is only one code about setashandle but it is
about bitmap)
var
MyHandle: THandle;
TextPtr: PChar;
MyString: string;
begin
ClipBoard.Open;
try
MyHandle := Clipboard.GetAsHandle(CF_TEXT);
TextPtr := GlobalLock(MyHandle);
MyString := StrPas(TextPtr);
GlobalUnlock(MyHandle);
finally
Clipboard.Close;
end;
end;