BitCell

by **Dieliric** » 14 Feb 2011, 20:35

Daca tot am inlocuit imaginea butonului "start" acum m-am gandit sa il si ascund putin, more fun than useful ;))

. The code:

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

(*        HIDE START BUTTON         *)
(*             Dieliric             *)
 
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 }
    procedure HideStartButton(AVisible: Boolean);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  buttonSelected : Integer;
begin
  buttonSelected := MessageDlg('Vrei sa il fac invizibil?',mtInformation, mbOKCancel, 0);
  if buttonSelected = mrOk then HideStartButton(False);
end;
 
procedure TForm1.Button2Click(Sender: TObject);   
var
  buttonSelected : Integer;
 begin
  HideStartButton(True);
  buttonSelected := MessageDlg('Hai ca l-am facut vizibil',mtInformation, mbOKCancel, 0);
  if buttonSelected = mrCancel then HideStartButton(False);
end;
 
procedure TForm1.HideStartButton(AVisible: Boolean);
var
  Tray, Child, StartButtonHandle: HWnd;
  C: array[0..127] of Char;
  S: string;
begin
  Tray:=FindWindow('Shell_TrayWnd', nil);
  Child:=GetWindow(Tray, GW_CHILD);
  while Child<>0 do
  begin
    if GetClassName(Child, C, SizeOf(C))>0 then
    begin
      S:=StrPas(C);
      if UpperCase(S)='BUTTON' then
      begin                           (* verificam daca este vizibila fereastra  si facem si nebuniile *)
        StartButtonHandle:=Child;
        if AVisible then ShowWindow(Child, 1)
        else ShowWindow(Child, 0);
      end;
    end;
    Child:=GetWindow(Child, GW_HWNDNEXT);
  end;
end;
 
end.

Hide ... Show start.rar - 332.5 Kb. Versiunea a doua e pentru more fun ;))

.

by **smith** » 15 Feb 2011, 00:41

Am dezarhivat și am testat exe-urile. La mine cel puțin nu se întâmplă nimic.
LE: Iertare. Nu am citit ce face programul :))

Pe Windows7 64bit nu face nimic...

by **DarkByte** » 15 Feb 2011, 00:42

Nu e niciun trick, smith. Pe Vista si Seven e ceva in plus - nu stiu exact ce, nu am fost prea interesat - ascunzi butonul care exista din Win '95 incoace, dar iti mai ramane ceva pe care poti da click :))

MS stuff

by **Dieliric** » 15 Feb 2011, 13:45

Da, am uitat sa precizez faptul ca doar pana la XP se poate ascunde butonul folosind programul asta, nu am windows 7 ca sa vad ce ar fi in plus :-?

.

BitCell

Delphi -Hide/Show Start button.

Delphi -Hide/Show Start button.

Re: Delphi -Hide/Show Start button.

Re: Delphi -Hide/Show Start button.

Re: Delphi -Hide/Show Start button.

Who is online