Para mastah sekalian ...

gw dapat potongan function screen capture seperti ini:

function TForm1.GetScreenShot: TBitmap;

var Desktop: HDC;

begin

Result := TBitmap.Create;

Desktop := GetDC(0);

try try Result.PixelFormat := pf32bit;

 Result.Width := Screen.Width;

 Result.Height := Screen.Height;

 BitBlt(Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, Desktop, 0, 0, SRCCOPY);

 Result.Modified := True;

 finally

 ReleaseDC(0, Desktop);

 end;

except

 Result.Free;

 Result := nil;

 end;

end;

Masalahnya ... kalo dilihat bisa, tapi di-save ke file gak bisa?

lihatnya:

image1.picture.bitmap := GetScreenShot; // yang ini tampil hasilnya

tapi kalo save:

image1.picture.bitmap.savetofile('nyobak.bmp'); // hasilnya cuma blank screen

kurangnya di mana ya?

gw pake win7 pro ... apakah ada pengaruhnya?