Delphi FAQ >> Операционная система
Данная функция на Delphi копирует указанный текст в буфер обмена без использования модуля Clipbrd.
{ Wnd — Handle окна, получающего доступ к буферу обмена, может быть Application.Handle или Form.Handle Value — текст, помещаемый в буфер обмена
}
function SetClipboardText(Wnd: HWND; Value: String): Boolean;
var hData: HGlobal; pData: Pointer; Len: Integer;
begin
Result := True;
if OpenClipboard(Wnd) then
begin
try Len := Length(Value) + 1;
hData := GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE, Len);
try pData := GlobalLock(hData);
try
Move(PChar(Value)^, pData^, Len); EmptyClipboard; SetClipboardData(CF_Text, hData);
finally
GlobalUnlock(hData);
end;
except GlobalFree(hData);
raise
end;
finally CloseClipboard;
end;
end else Result := False;
end;