/ Forside/ Teknologi / Udvikling / Delphi/Pascal / Spørgsmål
Login
Glemt dit kodeord?
Brugernavn 

Kodeord  


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Grabbe skærmen til et bitmap??
Fra : anger
Vist : 1342 gange
50 point
Dato : 28-12-00 01:30

Hej,

Er der nogen som ved hvordan man kan grabbe hele skærmen til et bitmap?

 
 
Accepteret svar
Fra : niller

Modtaget 60 point
Dato : 28-12-00 01:36

Prøv dette:

function CaptureScreen:TBitmap;

var

DC : HDC;

ABitmap:TBitmap;

begin

DC := GetDC (GetDesktopWindow);

ABitmap:=TBitmap.Create;

try

ABitmap.Width := GetDeviceCaps (DC, HORZRES);

ABitmap.Height := GetDeviceCaps (DC, VERTRES);

BitBlt(ABitmap.Canvas.Handle, 0, 0, ABitmap.Width,

ABitmap.Height,DC, 0, 0, SRCCOPY);

finally

ReleaseDC (GetDesktopWindow, DC);

end;

Result:=ABitmap;

end;



"anger" <anger@kurt.com> wrote in message
news:9Pv26.25034$9t1.281132@twister.sunsite.dk...
> Hej,
>
> Er der nogen som ved hvordan man kan grabbe hele skærmen til et bitmap?
>



Du har følgende muligheder
Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.
Søg
Reklame
Statistik
Spørgsmål : 177429
Tips : 31962
Nyheder : 719565
Indlæg : 6407948
Brugere : 218878

Månedens bedste
Årets bedste
Sidste års bedste