Mega Code Archive

 

Categories / Delphi / Graphic

 

How to draw a bitmap on the desktop

Title: How to draw a bitmap on the desktop procedure TForm1.Button1Click(Sender: TObject); var Picture: TPicture; Desktop: TCanvas; X, Y: Integer; begin // create objects Picture := TPicture.Create; Desktop := TCanvas.Create; // Bild laden // load bitmap Picture.LoadFromFile('bitmap1.bmp'); // get DC of desktop Desktop.Handle := GetWindowDC(0); // Position des Bildes // position of bitmap X := 100; Y := 100; // draw bitmap Desktop.Draw(X, Y, Picture.Graphic); ReleaseDC(0, Desktop.Handle); // Objekte freigeben // release objects Picture.Free; Desktop.Free; end;