Скрытие кнопку Пуск [D6, Win95/98, WinME, NT4, Win2k, WinXP]
tim5 © (2003-01-26 20:54:00)
Как скрыть кнопку Пуск, при щелчке по одной из кнопок моей
программы?
dvm (2003-01-26 21:04:00) [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;
Наверх 
ЧАТ |
Орешник |
|
