Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.11.19;
Скачать: CL | DM;

Вниз

програмный 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; ?


 
KilkennyCat ©   (2006-11-01 16:46) [5]

> [4] Shirson ©   (01.11.06 16:41)

Точно!
А я почему-то помнил сисутилз... совсем память того...


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

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



Страницы: 1 вся ветка

Текущий архив: 2006.11.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.05 c
2-1162395129
7D7
2006-11-01 18:32
2006.11.19
я непомню как это делается))


15-1160908904
ANTPro
2006-10-15 14:41
2006.11.19
ReactOS


15-1162366296
ANB
2006-11-01 10:31
2006.11.19
Че это за мясо ?


15-1162324851
Колдун
2006-10-31 23:00
2006.11.19
Сохранение TreeView в HTML-формате


1-1160046544
WebSqlNeederr
2006-10-05 15:09
2006.11.19
Как обрабатывать текст в Exel?