HomerSexual Grandmaster Cheater Supreme
Reputation: 5
Joined: 03 Feb 2007 Posts: 1657
|
Posted: Wed Aug 01, 2007 3:49 pm Post subject: IconHider - Delphi Addition |
|
|
| Code: | implementation
procedure ShowDesktop(const TruFal : boolean) ;
var han : THandle;
begin
han := FindWindow('ProgMan', nil) ;
han := GetWindow(han, GW_CHILD) ;
if TruFal = True then
ShowWindow(han, SW_SHOW)
else
ShowWindow(han, SW_HIDE) ;
end;
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ShowDesktop(true);
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
ShowDesktop(False);
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
form1.Close;
end;
end.
|
kevinn this is for you
takin a c break for today, decided to do something in delphi
_________________
|
|