Delphi World - Вывести Bitmap на рабочем столе
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Вывести Bitmap на рабочем столе

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

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;
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования