Dosen adalah pendidik profesional dan ilmuwan dengan tugas utama mentransformasikan, mengembangkan, dan menyebarluaskan ilmu pengetahuan, teknologi melalui pendidikan, penelitian, dan pengabdian kepada masyarakat (Permendikbud 49/2014 Pasal 1:14)

09 Juli 2008

Menyembunyikan Program dari Taskbar

procedure TMainForm.FormShow(Sender: TObject);
var
hwndOwner: HWnd;
begin
hwndOwner := GetWindow(Handle, GW_OWNER);
ShowWindow(hwndOwner, SW_HIDE);
// For Windows 2000, additionally call the ShowWindowAsync function:
ShowWindowAsync(hwndOwner, SW_HIDE);
ShowWindowAsync(Self.Handle, SW_HIDE);
end;
{
Prevent the form from reappearing on the Taskbar after minimizing it:
}
private

procedure WMSysCommand(var msg: TWMSysCommand); message WM_SysCommand;
{....}
implementation

procedure TMainForm.WMSysCommand(var msg: TWMSysCommand);
begin
if msg.CmdType and $FFF0 = SC_MINIMIZE then
hide
else
inherited;
end;

2 komentar :

  1. dah lama ta cari ahirnya nemu juga... thanks mas...!

    BalasHapus
  2. pak mw nanya source code tu simpan pada notepad dan disimpan dengan nama pa..tolong penjelasannya

    BalasHapus

Terima kasih atas kunjungan dan komentarnya