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

Вниз

Снимок экрана   Найти похожие ветки 

 
4ern61sh   (2004-02-22 22:24) [0]

Привет, всем!
Как в Delphi сделать кнопку(button1), которая копировала бы в компонент TImage весь рабочий стол(т.е. все иконки, окна, работающие проги, пуск и т.д.)?


 
Dimaxx ©   (2004-02-22 23:39) [1]

procedure TForm1.Button1Click(Sender: TObject);
var DC: HDC;
begin
DC:=GetDC(0);
Img.Picture.Bitmap:=TBitmap.Create;
Img.Picture.Bitmap.Width:=1024;
Img.Picture.Bitmap.Height:=768;
BitBlt(Img.Picture.Bitmap.Canvas.Handle,0,0,Img.Width,Img.Height,DC,Left,Top,SRCCOPY);
ReleaseDC(0,DC);
Img.Repaint;
end;


 
Dimaxx ©   (2004-02-22 23:41) [2]

Left, Top задают верхний левый угол копируемой области (для всего экрана поставить оба 0).


 
reticon ©   (2004-02-22 23:50) [3]

вместо

Img.Picture.Bitmap.Width:=1024;
Img.Picture.Bitmap.Height:=768;

лучше

Img.Picture.Bitmap.Width:=Screen.Width;
Img.Picture.Bitmap.Height:=Screen.Height;


 
Dimaxx ©   (2004-02-24 23:25) [4]

Эт из примера выдернул, поэтому осталось так.


 
Defunct ©   (2004-02-24 23:40) [5]

Dimaxx © (22.02.04 23:39) [1]
Можно и так:

procedure TForm1.Button2Click(Sender: TObject);
Var Canvas:TCanvas;
Begin
Try
Canvas := TCanvas.Create;
Canvas.Handle := GetDC(0);
Image1.Canvas.CopyRect(Screen.DesktopRect, Canvas, Screen.DesktopRect);
Finally
Canvas.Free;
End;
End;



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

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

Наверх




Память: 0.47 MB
Время: 0.017 c
14-12522
NeyroSpace
2004-02-11 16:53
2004.03.05
Как сделать консольное прилодение, кот. взаимодействует с *.bat?


9-12226
Norlin
2003-08-17 19:43
2004.03.05
Как работать с векторами?


3-12257
tesseract
2004-02-09 13:02
2004.03.05
Lookup поля в SQL


9-12224
wl
2003-08-21 16:40
2004.03.05
Нужна теория создания игр и движков


3-12269
td
2004-02-06 21:57
2004.03.05
индексы