Пуск

[}{oт@бь)ч]

Здраствуйте!
Хочу зделать програмку прикол!
Как зделать чтобы при открытии програмы исчезал весь пуск полностью от кнопки пуск до часов все исчезало!

[beegl]

хоть этот вопрос не относица к подфоруму Компоненты Delphi, отвечю:
поверил на сибе, вроди нормальный прикол будет ).

procedure TForm1.Button1Click(Sender: TObject);
var
  Wnd: THandle; { объявляем переменные }
  int: integer;

begin
  Randomize; { холостой прогон генератора случайных чисел }
  int := Random(3); { выбор одного варианта из четырёх }
  case int of
    0: { если первый вариант то }
    begin
      Wnd := FindWindow('Progman', nil);
      Wnd := FindWindowEx(Wnd, HWND(0), 'ShellDll_DefView', nil);
      { прячем трей }
      ShowWindow(Wnd, sw_hide);
    end;
    1: { если второй вариант то }
    begin
      Wnd := FindWindow('Shell_TrayWnd', nil);
      Wnd := FindWindowEx(Wnd, HWND(0), 'TrayNotifyWnd', nil);
      Wnd := FindWindowEx(Wnd, HWND(0), 'TrayClockWClass', nil);
      { прячем часы }
      ShowWindow(Wnd, sw_hide);
    end;
    2:
    begin
      Wnd := FindWindow('Shell_TrayWnd', nil);
      Wnd := FindWindowEx(Wnd, HWND(0), 'Button', nil);
      {прячем кнопку "Пуск"}
      ShowWindow(Wnd, sw_hide);
  end;
  3:
  begin
    Wnd := FindWindow('Shell_TrayWnd', nil);
    Wnd := FindWindowEx(Wnd, HWND(0), 'TrayNotifyWnd', nil);
    { прячем "Панель задач" }
    ShowWindow(Wnd, sw_hide);
  end;
end;
end;
end.

[}{oт@бь)ч]

И что убралась только сама кнопкка а мне нужно всю нижнюю часть!
И как мне теперь пуск обратно вернуть?

[DomiNick]

А у меня как-то была программа-шутка... Пока её антивирус не удалил...

При запуске проги кнопка "Пуск" срывалась с панельки и начинала порхать, как бабочка, по всему экрану... При попытке навести на неё курсор - резко отпрыгивала в сторону, убегала от него... Выключалась только тогда, когда удавалось-таки в неё ткнуть мышкой...

[}{oт@бь)ч]

Блин да еше все ярлыки исчезли
Как назад мне вернуть пуск и ярлыки?

[maladoy]

перезагрузись!!!

[mihali4]

Сообщение от }{oт@бь)ч

Блин да еше все ярлыки исчезли
Как назад мне вернуть пуск и ярлыки?

А что, код был дан на китайском?
Или вы до сих пор никак не можете понять смысла SW_SHOW, SW_HIDE ?

[beegl]

}{oт@бь)ч,не знаю, я перезагрузил комп. Взял этот пример с DelphiWorld.

[DomiNick]

Хм... А вторая умела на кнопке пуск надпись менять...

[}{oт@бь)ч]

Так что народ некто нескажет как полностью убрать от кнопки до часов все)
Тоесть синюю полосу ввобше убрать!