Форум: "Начинающим";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];
Вниз
програмный 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.063 c
