Bilder auf dem Desktop darstellen

[Nico1]

Hi ich hab mal Daniel_B's Transparent-Code abgeändert:

Delphi-Quellcode:

procedure DrawPicture;
var
  MyHand: HWND;
  MyDc: HDC;
  MyCanvas: TCanvas;
  Bild : TBitmap;
begin
  Bild:= TBitmap.Create;
  Bild.Width := 30;
  Bild.Height := 30;
  Bild.LoadFromFile('C:\Dokumente und Einstellungen\Nico Müller\Eigene Dateien\Eigene Bilder\168.bmp');
  MyHand := GetDesktopWindow;
  MyDc := GetWindowDC(MyHand);
  MyCanvas := TCanvas.Create;
  MyCanvas.Handle := MyDC;
  MyCanvas.Draw(random(Screen.Width), random(Screen.Height), Bild); //Hier die Positionsdaten mit X und Y, wo der Text beginnen soll
  Bild.Free;
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    DrawPicture;
end;

[edit=sakura] [/delphi]-eingefügt. Mfg, sakura[/edit]