Bitmap am Desktop zeichnen

[Nicodius]

Delphi-Quellcode:

Source: 

// Deklaration für Delphi 3 und früher: 
// procedure DrawPicture(const FileName: String; Width, Height, Top, Left: Integer); 
// Bei Height und Width müssen dann 0 übergeben werden, damit das Bild in Standardgröße 
// gezeichnet wird! 

procedure DrawPicture(const FileName: String; Width: Integer = 0; 
  Height: Integer = 0; Top: Integer = 0; Left: Integer = 0); 
var 
  DC        : HDC; 
  Canvas    : TCanvas; 
  Bitmap    : TBitmap; 
begin 
  // Falls die Datei existiert, dann fortfahren 
  if FileExists(FileName) then 
  begin 
    Bitmap := TBitmap.Create(Self); 
    try 
      Bitmap.LoadFromFile(FileName); 
      // Falls eigene Parameter angeben sind, werden diese benutzt. 
      if Height > 0 then 
        Bitmap.Height := Height; 
      if Width > 0 then 
        Bitmap.Width := Width; 
      // Wir holen uns den 'Device Context' vom Desktop 
      DC := GetWindowDC(GetDesktopWindow()); 
      try 
        Canvas := TCanvas.Create(); 
        try 
          // Wir weisen den DC dem Canvas zu 
          Canvas.Handle := DC; 
          // Das Bild wird an Left / Top auf den Desktop gezeichnet 
          Canvas.Draw(Left, Top, Bitmap); 
        finally 
          Canvas.Free; 
        end; 
      finally 
        ReleaseDC(0, DC); 
      end; 
    finally 
      Bitmap.Free; 
    end; 
  end; 
end;

Mit dieser Routine kann man eine Bitmap auf dem Desktop zeichnen.
Parameter:

• const FileName: String
  Der Dateiname der Datei. Muss der gesamte Pfad zur Datei sein. Außerdem muss das Bild im Bitmap-Format sein.
• Width: Integer = 0
  Die Breite des Bildes. Bei 0 wird die Standardgröße verwendet.
• Height: Integer = 0;
  Die Höhe des Bildes. Bei 0 wird die Standardgröße verwendet.
• Top: Integer = 0;
  Der Abstand vom oberen Desktoprand.
• Left: Integer = 0;
  Der Abstand vom linken Desktoprand.

Der SourceCode stammt von Nicodius und wurde von mirage228 überarbeitet.

[edit=Chakotay1308]Für die CodeLibary vorbereitet. Mfg, Chakotay1308[/edit]