gdi+ снимок экрана

[Pedro]

Подскажите пожалуйста, как сделать скриншот экрана средствами gdi+.

[raxp]

должно подойти.

[Pedro]

raxp, спасибо большое. Все работает, но почему-то когда я делаю скриншот экрана в другом потоке, ничего не работает, подскажите в чем дело?

[BOBAH13]

Сообщение от Pedro

raxp, спасибо большое. Все работает, но почему-то когда я делаю скриншот экрана в другом потоке, ничего не работает, подскажите в чем дело?

Прежде чем использовать GDI+ требуется его инициализация

[Pedro]

Наверное я немного отклоняюсь от темы, но все же... Вот я создаю новый поток с помощью Tthread.
вот код:

type
  potok=class(TThread)
    public
      c:TCanvas;
      bitmap: TBitmap;
      jpeg:TJPEGImage;
      rect:TRect;
      procedure execute;override;
      procedure doit;
    published
      constructor Create(CreateSuspennded: Boolean);
  end;

Конструктор:

 constructor potok.Create;
  begin
    rect:=Screen.DesktopRect;
    c:=TCanvas.Create;
    c.Handle:=getdc(0);
    bitmap:=TBitmap.Create;
    inherited Create(CreateSuspennded);
 end;

Ну и собственно фотографирование стола

procedure potok.Execute;
begin
while not Terminated do
begin
bitmap.Canvas.CopyRect(rect,c,rect);
bitmap.SaveToFile('D:\1.bmp');
end;
end;

потом в ФормКриэйт

  
pot:=potok.Create(false);
pot.Priority:=tpNormal;

В основном потоке программы все отлично работает, почему же не работает в дополнительном?
И вот еще мне не понятно, если заменить

bitmap.Canvas.CopyRect(rect,c,rect);
bitmap.SaveToFile('D:\1.bmp');

на

form5.canvas.copyrect(rect,c,rect);

То изображение рабочего стола появляется на форме, но примерно через 10 секунд прекращает обновляться. Пожалуйста помогите, объясните в чем дело. Заранее примного благодарен.

[BOBAH13]

1.

bitmap:=TBitmap.Create;

2.

bitmap.Canvas.CopyRect(rect,c,rect);

3. А перед вызовом п. 2 Bitmap сам принимает размеры равные rect ?

[Pedro]

Аааааа, точно ёмаё. BOBAH, большое спасибо!