Главная страница
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.03 c
15-1162507884
Ketmar
2006-11-03 01:51
2006.11.19
какими только извращениями люди не страдают...


15-1162381911
StriderMan
2006-11-01 14:51
2006.11.19
Что мешает программистам работать дома?


2-1162417174
Gyrus
2006-11-02 00:39
2006.11.19
Конвертировать JPEG


2-1161726542
aleko
2006-10-25 01:49
2006.11.19
путь к рабочему столу


15-1162378180
SpellCaster
2006-11-01 13:49
2006.11.19
Фотографии Макинтоша