把字符串从变量复制到剪贴板如何做?
解决方案 »
- 急!delphi删除表中所有记录时表中内容是删除了,但是程序运行出现错误!
- Delphi for php 出了正式版了吗?
- 这段代码有什么问题?为什么画不出东西来. 换成静态数组就可以.why?
- 如何解决记录是蓝色高亮而记录不能插入的问题???
- 有谁会自定义工资项目和自定义公式呀?
- 通过TParameter传递float时,小数后的位数的问题?
- 如何建立IIS虚拟目录
- ADO访问数据库,出现“AdoTable1:DataSet not in edit or insert mode"
- 棘手,如何在一个程序中创建两个顶层窗口?
- query
- 有谁用过Wincc 6 ?
- 要弄电视墙,希望弄过的给我些资料或者建议
var
hMem: THandle;
pMem: PChar;
begin
if adata<>'' then
begin
hMem := GlobalAlloc(GHND or GMEM_SHARE, Length(AData) + 1);
if hMem <> 0 then begin
pMem := GlobalLock(hMem);
if pMem <> nil then begin
StrPCopy(pMem, AData);
GlobalUnlock(hMem);
if OpenClipboard(0) then begin
EmptyClipboard;
SetClipboardData(CF_TEXT, hMem);
CloseClipboard;
end
else
GlobalFree(hMem);
end
else
GlobalFree(hMem);
end;
end;
end;调用delcopy(变量);
var
hMem: THandle;
pMem: PChar;
begin
if adata<>'' then
begin
hMem := GlobalAlloc(GHND or GMEM_SHARE, Length(AData) + 1);
if hMem <> 0 then begin
pMem := GlobalLock(hMem);
if pMem <> nil then begin
StrPCopy(pMem, AData);
GlobalUnlock(hMem);
if OpenClipboard(0) then begin
EmptyClipboard;
SetClipboardData(CF_TEXT, hMem);
CloseClipboard;
end
else
GlobalFree(hMem);
end
else
GlobalFree(hMem);
end;
end;
end;调用delcopy(变量);