skrip berikut merupakan contoh fungsi untuk membaca ukuran TaskBar Windows.
var hApp : THandle; rcWork : TRect; rcApp : TRect; begin // Ambil parameter desktop rcWork.Top := 0; rcWork.Left := 0; rcWork.Right := Screen.DesktopWidth; rcWork.Bottom:= Screen.DesktopHeight; // ambil parameter TaskBar hApp := FindWindow('Shell_TrayWnd',''); if hApp <> 0 then begin GetWindowRect(hApp,rcApp); if rcApp.Right < rcWork.Right then rcWork.Left := rcApp.Right; { bar on left edge } if rcApp.Bottom < rcWork.Bottom then rcWork.Top := rcApp.Bottom; { bar on top edge } rcWork.Bottom:=rcWork.Bottom - rcApp.Bottom;{ bar on top edge } if rcApp.Left > 0 then rcWork.Right := rcApp.Left; { bar on right edge } if rcApp.Top > 0 then rcWork.Bottom := rcApp.Top; { bar on bottom edge } end; |
Random Articles
- Bug: Round Function
- tickers: pentium counter
- Menempatkan Icon dalam System Tray
- The Big Five of Modern Pascal
- FreeVCS
- Menyembunyikan Aplikasi Dari Taskbar dan System
- open Ms-Exell dari delphi
- Create Application's ShortCut
- Safely Remove USB Mass Storage Device (Unplug/Eject USB)
- Terbilang versi Indonesia dan english
Last Articles
- 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
- PascalTalk #5: UX: Research, Design and Engineer
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 5 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 5 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 5 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 5 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