Форум: "Начинающим";
Текущий архив: 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.041 c