Banyak aplikasi termasuk diantaranya browser internet memiliki fitur untuk mengubah wallpaper. Kode berikut memungkinkan para delphist untuk mencobanya juga.
program wallpapr; uses Registry, WinProcs; procedure SetWallpaper( sWallpaperBMPPath : String; bTile : boolean ); var reg : TRegIniFile; begin // HKEY_CURRENT_USER // Control PanelDesktop // TileWallpaper (REG_SZ) // Wallpaper (REG_SZ) reg := TRegIniFile.Create( 'Control PanelDesktop' ); with reg do begin WriteString( '', 'Wallpaper', sWallpaperBMPPath ); if( bTile )then begin WriteString( '', 'TileWallpaper', '1' ); end else begin WriteString( '', 'TileWallpaper', '0' ); end; end; reg.Free; // // let everyone know that we changed // a system parameter // SystemParametersInfo( SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE ); end; begin // delphi.bmp akan dijadikan wallpaper rata tengah SetWallpaper( 'c:/delphi.bmp', False ); end. |
Random Articles
- Selamat Idul Fitri 1428H
- Mencetak Banyaknya jumlah halaman di QuickReport
- Yang Tidak Bisa Dilakukan Turbo Pascal #4
- Asosiasi Pengembang Software Indonesia, alternatif
- Melarang "Tutup" Aplikasi, kecuali shutdown/restart
- Bikin Rekaman Suara Sendiri Dengan Delphi
- Yang Tidak Bisa Dilakukan Turbo Pascal #1
- Mematikan Taskbar dan Tray Ikon
- Rilis Free Pascal (FPC) 3.2
- Permutasi Kata
Last Articles
- Lazarus Release 2.0.12
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 6 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 6 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 7 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago