Clipbrd

← →
NLO © (2004-08-12 21:30) [0]

Приветстую всех мастеров програминга на DELPHI!!!!!
У меня возникли такие вопросы как с можнощабросить в буфер текст или файл на WinApi...

← →
Алхимик © (2004-08-12 23:19) [1]

http://www.delphisyte.ru/Articles/base/api_copy_to_clipboard.html

Можно! Причем на чистом АПИ! Бери:

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;

function GetClipboardText(Wnd: HWND): WideString;
var
Data: THandle;
begin
Result := "";
if OpenClipboard(Wnd) then begin
Data := GetClipboardData(CF_UNICODETEXT);
try
if Data <> 0 then
Result := PWideChar(GlobalLock(Data))
else
Result := "";
finally
if Data <> 0 then
GlobalUnlock(Data);
CloseClipboard;
end;
end;
end;

Clipbrd Найти похожие ветки