PrtSc tast

PrtSc tasten Er vel blot ment som en kopi taste hvor du sætter skærm indholdet ind i et Billedbehandlings program eller i Word

>poko1: Tak for kommentar. Ja, det er jeg med på, men jeg har lavet et program, hvor jeg gerne programmæssigt vil kunne aktivere PrtSc tasten. I øvrigt - flere tastaturer har ikke tasten - f.eks. Microsoft Surface.

Virker i d5,d6,d7,

procedure ScreenShot(Billede: TBitMap);
var
  c: TCanvas;
  r: TRect;
begin
  c := TCanvas.Create;
  c.Handle := GetWindowDC(GetDesktopWindow);
  try
    r := Rect(0, 0, Screen.Width, Screen.Height);
    Billede.Width := Screen.Width;
    Billede.Height := Screen.Height;
    Billede.Canvas.CopyRect(r, c, r);
  finally
    ReleaseDC(0, c.Handle);
    c.Free;
  end;
end;

procedure ScreenShotActiveWindow(Billede: TBitMap);
var
  c: TCanvas;
  r, t: TRect;
  h: THandle;
begin
  c := TCanvas.Create;
  c.Handle := GetWindowDC(GetDesktopWindow);
  h := GetForeGroundWindow;
  if h <> 0 then
    GetWindowRect(h, t);
  try
    r := Rect(0, 0, t.Right - t.Left, t.Bottom - t.Top);
    Billede.Width  := t.Right - t.Left;
    Billede.Height := t.Bottom - t.Top;
    Billede.Canvas.CopyRect(r, c, t);
  finally
    ReleaseDC(0, c.Handle);
    c.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Visible := False;
  Sleep(750); //some delay
  ScreenShotActiveWindow(Image1.Picture.BitMap);
  Form1.Visible := True;
end;

glemte lige. ved ikke om den virker på >Delphi 2009

Uses

Graphics;

>Stone. 1000 tak. Flot arbejde. Det virker  i  Delphi 2009 / W8.1. Der er endda både mulighed for Form og Skærm. Med en lille udvidelse fungerer det også som PtrSc:

Var
  MyFormat: Word;
  AData: THandle;
  APalette: HPalette;
begin
.
.
.
    Image1.Picture.SaveToClipboardFormat(MyFormat, AData, APalette);
    ClipBoard.SetAsHandle(MyFormat, AData);

Jeg var vist lidt karrig med point, men skriv lige et svar - jeg ved ikke om jeg kan forøge point - det fortjener du.

bare giv mig hvad du har udlovet...har næsten 42.000 dem får jeg aldrig brugt i min levetid "S"