clipboard

← →
kima © (2002-08-11 15:44) [0]

Hi all,

проблема такая: есть простейшая консольная прога(10кб
компилиная) в ней надо в клипбоард посестить текст но если
включать библиотеку ClipBRD то прога сразу 300кб!!! можно ли
обойтись без нее? Мне надо только поместить туда(только
латиницу) читать не надо.

С уважением, Алексей.

← →
TAlex © (2002-08-11 16:07) [1]

procedure CopyStringToClipboard(s: string);
var hg: THandle;
P: PChar;
begin
hg:=GlobalAlloc(GMEM_DDESHARE or GMEM_MOVEABLE, Length(S)+1);
P:=GlobalLock(hg);
StrPCopy(P, s);
GlobalUnlock(hg);
OpenClipboard(Application.Handle);
SetClipboardData(CF_TEXT, hg);
CloseClipboard;
GlobalFree(hg);
end;

← →
kima © (2002-08-11 18:28) [2]

в консоли Application нету
как быть? не делать консоль
не предлагайте 300kb сразу поднимает

блин только спросил уже сам нашел если комуто надо
консоль писать и handle то это HWND ( nil ) под носом
лежало не нашел

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