Вывести Bitmap на рабочем столеDelphi , Рабочий стол , Рабочий столВывести Bitmap на рабочем столе
Оформил: DeeCo 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; Статья Вывести Bitmap на рабочем столе раздела Рабочий стол Рабочий стол может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Рабочий стол ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |