Спрятать или показать кнопку ПУСК
По нажатию на кнопку пишем следующее
Startbutton(false); |
...круто!!!...а чтобы сделать ПУСК опять видимым:
Startbutton(true); |
Если вы думаете, что на этом дело и закончится, хочу поспешить вас разубедить, ведь вам ещё нужно реализовать процедуру Startbutton:
procedure Startbutton(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
if Visi then
ShowWindow(Child, 1)
else
ShowWindow(Child, 0);
end;
end;
Child := GetWindow(Child, GW_HWNDNEXT);
end;
end;
|