PrintScreen Windows 7

[Shouldercannon]

Так я делаю PrintScreen

...
procedure Shot(dir: string);
...
procedure TFormMain.Shot(dir: string);
var
  DC: HDC;
  Canva: TCanvas;
  B: TBitmap;
begin
  Canva := TCanvas.Create;
  B := TBitmap.Create;
  DC := GetDC(0);
  try
    Canva.Handle := DC;
    with Screen do
    begin
      B.Width := Width;
      B.Height := Height;
      B.Canvas.CopyRect(Rect(0, 0, Width, Height), Canva, Rect(0, 0, Width, Height));
      B.SaveToFile(dir);
    end
  finally
    ReleaseDC(0, DC);
    B.Free;
    Canva.Free
  end
end;

Если в Windows 7 стоит стиль Aero, то всё нормально, если стоит стиль "Классическая", то всё изображение белое и весит 5 Мб. Что это за баг и как от него избавиться?

[grafgrial]

а если так...

...
procedure Shot(dir: string);
...
procedure TFormMain.Shot(dir: string);
var
  DC: HDC;
  Canva: TCanvas;
  B: TBitmap;
jpeg: TJPEGImage;
begin
  Canva := TCanvas.Create;
  B := TBitmap.Create;
 jpeg := TJPEGImage.Create ;
  DC := GetDC(0);
  try
    Canva.Handle := DC;
    with Screen do
    begin
      B.Width := Width;
      B.Height := Height;
      B.Canvas.CopyRect(Rect(0, 0, Width, Height), Canva, Rect(0, 0, Width, Height));
      //B.SaveToFile(dir);
jpeg.Assign(B);
jpeg.SaveToFile(dir);
    end
  finally
    ReleaseDC(0, DC);
    B.Free;
    Canva.Free;
jpeg.free;
  end
end;

[x128]

procedure TFormMain.Shot(dir: string);
var
  DC: HDC;
begin
  DC := GetDC(0);
  with TBitmap.Create do begin
    PixelFormat:=pf24bit;
    SetSize(Screen.Width, Screen.Height);
    BitBlt(Canvas.Handle, 0,0,Width,Height, DC, 0,0, SRCCOPY);
    SaveToFile(dir);
    Free;
  end;
  ReleaseDC(0, DC);
end;

[Shouldercannon]

Что такое SetSize?
Undeclared identifier: 'SetSize'
Походу в Delphi 7 2002 года 'SetSize' для TBitmap не поддерживается.

[grafgrial]

А чем мое исправление не подошло?jpg.rar

[x128]

Походу в Delphi 7 2002 года 'SetSize' для TBitmap не поддерживается.

Да, в 7-ом делфи действительно нет, нужно явно указывать Width и Height для битмапа.

[Shouldercannon]

Удалено...

[dmitriegorovih]

procedure TForm1.Button1Click(Sender: TObject);
var
canva:Tcanvas;
bitmap:Tbitmap;
begin
canva:=Tcanvas.Create;
bitmap:=Tbitmap.Create;
  Canva.Handle := GetDC(windows.GetDesktopWindow);
 Bitmap.PixelFormat:=pf24bit;
 Bitmap.Width:=screen.Width;
 Bitmap.Height:=screen.Height;
 Bitmap.Canvas.CopyRect(rect(0,0,screen.Width,screen.Height),Canva,rect(0,0,screen.Width,screen.Height));
 bitmap.SaveToFile('d:\123.bmp');
end;

Попробуйте вот это

[Shouldercannon]

Ни один из способов не хочет нормально работать. Везде белое изображение, но размер файла не малый (jpg - 20,5 kb, bmp - 3,7/5 mb)
Может белый экран из-за того, что компьютер заблокирован или производится смена пользователся, хотя со стилем Aero проблем нет.

[dmitriegorovih]

Ни один из способов не хочет нормально работать. Везде белое изображение

Не знаю у меня все норм и с Aero и с классическим видом