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

Вниз

Подскажите как копию рабочего стола преобразовать в BMP   Найти похожие ветки 

← →
Anat   (2003-05-11 00:20) [0]

Подскажите как копию рабочего стола преобразовать в BMP файл.
т.е ( Canvas.Handle, 0,0,Width,Height,ScreenDC, Left, Top, SRCCOPY ) Подскажите как копию рабочего стола преобразовать в BMP файл.
т.е BitBlt(Canvas.Handle, 0,0,Width,Height,ScreenDC, Left, Top, SRCCOPY ); чтобы получить BMP Фаил.

---

← →
GenezZ ©   (2003-05-11 02:31) [1]

Может поможет, писал программку для того, чтоб скриншот делать сразу в Bmp

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
( Sender: TObject) Может поможет, писал программку для того, чтоб скриншот делать сразу в Bmp

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Bitmap: TBitmap;
Tit: string;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Tit := IntToStr(GetTickCount);

Left := Screen.Width;
Top := Screen.Height;
Bitmap:=TBitmap.Create;
Bitmap.Width := Screen.Width;
Bitmap.Height := Screen.Height;
BitBlt(Bitmap.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
GetDC(GetDesktopWindow), 0, 0, SRCCopy);
Bitmap.SaveToFile(Tit+".bmp");

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Close;
end;

end.


---

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

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

Наверх

Память: 0.47 MB
Время: 0.019 c