Показать сообщение отдельно
Старый 28.02.2009, 23:36   #1 (permalink)
Drewns
Member
 
Аватар для Drewns
 
Регистрация: 14.08.2007
Сообщений: 26
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 73
По умолчанию Кнопка ПУСК

фокус с кнопкой ПУСК:
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;




где это все писать?
Drewns вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070