[NekitoSSSS]

есть простейшее консольное приложение

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

program Project1;   {$APPTYPE CONSOLE}   uses   windows,sysutils; 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;   begin   CopyStringToClipboard('lol');   Writeln('OK');   Readln; end.

но оно даже не компилируется, ругается на строку
OpenClipboard(Application.Handle);

то есть я понимаю тут к хендлу окна прикрепляем открытый буфер обмена... но как это исправить? Без добавления модуля Forms естесно, как узнать handle консольного окна?!
p.s. код копирования в буфер взят из
http://www.delphisources.ru/pages/fa...clipboard.html
но всетаки заголовок той статьи не соответствует коду......

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

program Project1;   {$APPTYPE CONSOLE}   uses   Windows;   procedure SetBuffer(Format: Word; var Buffer; Size: Integer); var   Data: THandle;   DataPtr: Pointer; begin   OpenClipboard(0);   try     Data := GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE, Size);     try       DataPtr := GlobalLock(Data);       try         Move(Buffer, DataPtr^, Size);         EmptyClipboard;         SetClipboardData(Format, Data);       finally         GlobalUnlock(Data);       end;     except       GlobalFree(Data);       raise;     end;   finally     CloseClipboard;   end; end;   procedure SetAsText(const Value: string); begin   SetBuffer(CF_TEXT, PChar(Value)^, Length(Value) + 1); end;   begin   SetAsText('Hello Clipboard');   Writeln('OK');   Readln; end.

BOOL OpenClipboard(
HWND hWndNewOwner // handle to window opening clipboard
);

Parameters
hWndNewOwner
Identifies the window to be associated with the open clipboard. If this parameter is NULL, the open clipboard is associated with the current task.

[NekitoSSSS]

о_0 извращение конечно получается, но за код спс

[NumLock]

ну не знаю на сколько родной код

Код:

1	unit Clipbrd;

можно считать извращенным:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

TClipboard = class(TPersistent)   private     procedure SetAsText(const Value: string);   protected     procedure SetBuffer(Format: Word; var Buffer; Size: Integer);   procedure TClipboard.SetAsText(const Value: string); begin   SetBuffer(CF_TEXT, PChar(Value)^, Length(Value) + 1); end;   procedure TClipboard.SetBuffer(Format: Word; var Buffer; Size: Integer); var   Data: THandle;   DataPtr: Pointer; begin   Open;   try     Data := GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE, Size);     try       DataPtr := GlobalLock(Data);       try         Move(Buffer, DataPtr^, Size);         Adding;         SetClipboardData(Format, Data);       finally         GlobalUnlock(Data);       end;     except       GlobalFree(Data);       raise;     end;   finally     Close;   end; end;

[coldsv]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

TClipboard = class(TPersistent)   private     procedure SetAsText(const Value: string);   protected     procedure SetBuffer(Format: Word; var Buffer; Size: Integer);   procedure TClipboard.SetAsText(const Value: string); begin   SetBuffer(CF_TEXT, PChar(Value)^, Length(Value) + 1); end;   procedure TClipboard.SetBuffer(Format: Word; var Buffer; Size: Integer); var   Data: THandle;   DataPtr: Pointer; begin   Open;   try     Data := GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE, Size);     try       DataPtr := GlobalLock(Data);       try         Move(Buffer, DataPtr^, Size);         Adding;         SetClipboardData(Format, Data);       finally         GlobalUnlock(Data);       end;     except       GlobalFree(Data);       raise;     end;   finally     Close;   end; end;

Admin: Пользуемся тегами!

[shraibikus]

свое окно
Handle:= GetForegroundWindow;