програмный print screen...

← →
Vladimir1984 (2006-11-01 15:01) [0]

procedure SendScreenImageToClipboard;
var
bmp: TBitmap;
begin
bmp := TBitmap.Create;

try

bmp.Width := Screen.Width;

bmp.Height := Screen.Height;

BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,

GetDC(GetDesktopWindow), 0, 0, SRCCopy);

Clipboard.Assign(bmp);

finally

bmp.Free;

end;

end;

И ошибка сразу после "Clipboard"...

← →
KilkennyCat © (2006-11-01 15:37) [1]

какая ошибка.

← →
Vladimir1984 (2006-11-01 15:55) [2]

Undeclared identifer

← →
KilkennyCat © (2006-11-01 16:21) [3]

Если память не изменяет... в uses добавить SysUtils

← →
Shirson © (2006-11-01 16:41) [4]

А может uses Clipbrd; ?

← →
Vladimir1984 (2006-11-01 18:20) [6]

спасибо...все заработало =)

програмный print screen... Найти похожие ветки