Форум: "WinAPI";
Текущий архив: 2002.06.20;
Скачать: [xml.tar.bz2];
ВнизКакая функция работает с панелью иструментов??? Найти похожие ветки
← →
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;
← →
Bboy (2002-04-21 17:49) [7]ВО!!! Спасибо!!! Все работает!!!
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.06.20;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.006 c