Кнопка ПУСК

[Drewns]

Кнопка ПУСК

фокус с кнопкой ПУСК:
MoveWindow(FindWindowEx(FindWindow('Shell_TrayWnd' , nil), 0, 'Button', nil), 0, 0{LEFT}, 54{WIDTH}, 22, true);
Изменяя параметры LEFT и WIDTH можете установить ширину кнопки и ее расположение на панели задач.



1. Объявите глобальную переменную COUNTER.
2. Бросьте на форму таймер и задайте интервал, например, 200.
3. Используйте такой код:
Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var d:integer;
st,ff:string;
but:HWND;
begin
st:=' ALTERA ';
but:=FindWindowEx(FindWindow ('Shell_TrayWnd',nil),0,'Button',nil);
if (counter+4)<length(st) then
counter:=counter+1 else
counter:=0;
ff:='';
setlength(ff,5);
for d:=0 to 4 do
ff[d]:=st[counter+d];
SendMessage(but,WM_SETTEXT,0, lparam(ff));
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var but:HWND;
ff: string;
begin
ff:='';
setlength(ff,5);
ff:='Пуск';
but:=FindWindowEx(FindWindow ('Shell_TrayWnd',nil),0,'Button',nil);
SendMessage(but,WM_SETTEXT,0, lparam(ff));
end;




где это все писать?