Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Какая функция работает с панелью иструментов??? [D6, Win95/98]

Bboy © (2002-04-21 08:01:00)
Мне надо чтобы программа при загрузке убирала панель инструментов (в месте с систреем и ПУСКом???
Как это сделать???

Bboy (2002-04-21 17:49:00) [1]
ВО!!! Спасибо!!! Все работает!!!

Antipich (2002-04-21 14:26:00) [2]
Значи так, вот всё на блюдечке. Убирая панель, приходится убирать кнопку "Пуск" отдельно, иначе ёе можно будет открыть с клавы. Вот код:
{убираем меню}
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;

Song (2002-04-21 14:04:00) [3]
Вот хэлп по функции:
BOOL ShowWindow(

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

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

Bboy (2002-04-21 13:20:00) [4]
Почитал я хелп.
Но наверно что-то не понял.
Исправил код следующим образом:

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

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

Song (2002-04-21 10:22:00) [5]
:))

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

Bboy (2002-04-21 10:12:00) [6]
И что???
Допустим под ButtonClick адо повесить.
Я прописал:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowWindow();
end;

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

Song (2002-04-21 09:25:00) [7]
ShowWindow()

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »