Какая функция работает с панелью иструментов???

← →
Bboy © (2002-04-21 08:01) [0]

Мне надо чтобы программа при загрузке убирала панель инструментов (в месте с систреем и ПУСКом???
Как это сделать???

← →
Song © (2002-04-21 09:25) [1]

ShowWindow()

← →
Bboy © (2002-04-21 10:12) [2]

И что???
Допустим под ButtonClick адо повесить.
Я прописал:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowWindow();
end;

Когда запускаю, он мне пишет Not enought actual parameters - ругается на ShowWindow(). Почему???

← →
Song © (2002-04-21 10:22) [3]

:))

Естесно, нужны параметры, Вы хэлп по ней почитайте
Почему всё должно быть на блюдечке, а Вы сами ничего не должны сделать?

← →
Bboy © (2002-04-21 13:20) [4]

Почитал я хелп.
Но наверно что-то не понял.
Исправил код следующим образом:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowWindow(sw_hide,1);
end;

Когда нажимаю на кнопку, то ничего не происходит.

← →
Song © (2002-04-21 14:04) [5]

Вот хэлп по функции:
BOOL ShowWindow(

HWND hWnd, // handle of window
int nCmdShow // show state of window
);

А где у Вас дискриптор панели задач? Это есть HWND
А вот SW_HIDE это и есть nCmdShow. А параметр этот у Вас почему-то стоит на первом месте.

← →
Antipich (2002-04-21 14:26) [6]

Значи так, вот всё на блюдечке. Убирая панель, приходится убирать кнопку "Пуск" отдельно, иначе ёе можно будет открыть с клавы. Вот код:
{убираем меню}
procedure TMenu_Imelka.Button1Click(Sender: TObject);
var
h: hwnd;
begin
h:= FindWindow("Shell_TrayWnd", Nil);//Hide taskbar
ShowWindow(h, SW_HIDE);
end;
{убираем пуск}
procedure TMenu_Imelka.Button3Click(Sender: TObject);
var
h: hwnd;
begin
h := FindWindowEx(FindWindow("Shell_TrayWnd", nil), 0, "Button", nil);
ShowWindow(h, 0);
Windows.SetParent(h, 0);
end;
{возвращаем меню}
procedure TMenu_Imelka.Button2Click(Sender: TObject);
var
h: hwnd;
begin
h := FindWindow("Shell_TrayWnd", Nil);//Show taskbar
ShowWindow(h, 1);
end;
{возвращаем пуск}
procedure TMenu_Imelka.Button4Click(Sender: TObject);
var
h: hwnd;
TaskWindow: hwnd;
begin
h := FindWindowEx(GetDesktopWindow, 0, "Button", nil);
TaskWindow := FindWindow("Shell_TrayWnd", nil);
Windows.SetParent(h, TaskWindow);
ShowWindow(h, 1);
end;

ВО!!! Спасибо!!! Все работает!!!

Какая функция работает с панелью иструментов??? Найти похожие ветки