Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.20;
Скачать: CL | DM;

Вниз

Скрытие кнопку Пуск   Найти похожие ветки 

 
tim5 ©   (2003-01-26 20:54) [0]

Как скрыть кнопку Пуск, при щелчке по одной из кнопок моей программы?


 
dvm ©   (2003-01-26 21:04) [1]

Например так:

procedure HideStartButton(visi:boolean);
var
Tray, Child : 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
IsWindowVisible(Child);
If Visi then
ShowWindow(Child, 1)
else
ShowWindow(Child, 0);
end;
end;
Child := GetWindow(Child, GW_HWNDNEXT);
end;
end;




Страницы: 1 вся ветка

Текущий архив: 2003.03.20;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.02 c
7-64407
Koster
2003-01-23 16:00
2003.03.20
Чтение со сбойной дискеты


1-64203
Spiteful Groove
2003-03-08 18:57
2003.03.20
Хочу свернуть детей...


3-63943
ki11er
2003-03-03 13:38
2003.03.20
Delphi, SQL, таблица, индекс... Проблемы...


14-64347
Sasha000
2003-03-05 09:43
2003.03.20
Подскажите где моно взять продвинутый StringGrid, токо бесплатный


3-64021
Ruf
2003-02-28 11:29
2003.03.20
Автовычисление