| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
програмный print screen...
Vladimir1984 © (2006-11-01 15:01:00)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"...
Vladimir1984 (2006-11-01 18:20:00) [1]спасибо...все заработало =)
KilkennyCat (2006-11-01 16:46:00) [2]> [4] Shirson © (01.11.06 16:41)
Точно!
А я почему-то помнил сисутилз... совсем память того...
Shirson (2006-11-01 16:41:00) [3]А может
uses Clipbrd;?
KilkennyCat (2006-11-01 16:21:00) [4]Если память не изменяет... в uses добавить SysUtils
Vladimir1984 (2006-11-01 15:55:00) [5]Undeclared identifer
KilkennyCat (2006-11-01 15:37:00) [6]какая ошибка.
| |
