screenshot via delphi?

Her er ihvertfald koden til at tage screenshot:
procedure SaveScreenShotAsJpg(JpgFilename:string);
var
  Desktop: HDC;
  TempBitmap: TBitmap;
  TempJpg:TJPEGImage;      //NB 'jpeg' skal tilføjes "uses" , se længer nede ang. "uses"
begin
  TempBitmap  := TBitmap.Create;  //først oprettes et "tomt" Bitmap
  Desktop := GetDC(0);

    try
      TempBitmap.PixelFormat := pf32bit;    //Bitmap "påfyldes" skærmbilledet
      TempBitmap.Width      := Screen.Width;
      TempBitmap.Height      := Screen.Height;
      BitBlt(TempBitmap.Canvas.Handle, 0, 0, TempBitmap.Width, TempBitmap.Height, Desktop, 0, 0, SRCCOPY);
      TempBitmap.Modified := True;
    finally
      ReleaseDC(0, Desktop);
    end;

  TempJpg := TJPEGImage.Create;  // der oprettes et "tomt" jpg
  TempJpg.Assign(TempBitmap);    // jpg får indhold fra bitmap
  TempJpg.SaveToFile(JpgFilename); //jpg gemmes
  TempBitmap.Free; //der ryddes op. Dvs. hukommelse frigives
  TempJpg.Free;

end;

Her gemmer den billedet som et JPG, men det kan jo ændres... :-D

Hvordan du sender det ved jeg ikke...

// Jonat.

det virker ihvertfald fint - håber at kunne finde en funktion til fjernskrivebord eller så'n også...

svar..?

svar :-D

Er du gået død lifeweb???? eller venter du på at få svar på 2 del af dit spm???

// Jonat ;)

beklager at jeg ikke lige fik svaret - exp.dk er stoppet med at sende mig emails om mine spørgsmål...?!? :D

Det er helt ok... det var ikke din fejl ... :D

Det kunne ske for enhver :)

// Jonat.