Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Вывести Bitmap на рабочем столе

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

https://delphiworld.narod.ru/

DelphiWorld 6.0