BitCell

by **Dieliric** » 16 Feb 2011, 17:57

Ma gandeam ca daca tot pot ascunde butonul "start" ce ar fi sa ascund toata bara

, rezultatul este postat aici

.

Line number On/Off | Expand/Contract | Select all

 
(*           Dieliric           *)
(*          Hide taskbar v1     *)
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  WindowHandle: HWnd;
begin
  WindowHandle:=FindWindow('Shell_TrayWnd', '');
  if WindowHandle<>0 then
    ShowWindow(WindowHandle, SW_HIDE)
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  WindowHandle: HWnd;
begin
  WindowHandle:=FindWindow('Shell_TrayWnd', '');
  if WindowHandle<>0 then
    ShowWindow(WindowHandle, SW_RESTORE)
end;
 
end.
 

Sursa cu tot cu executabil aici.
Mai puteam si cu reducere opacitatii dar tot mergea sa dai click pe start sau programele din quick launch

.
PS. Netestat decat pe xp

.

BitCell

Delphi Hide/Show taskbar

Delphi Hide/Show taskbar

Who is online