Свой "Пуск",исправьте плиз ошибки

[Marsik]

Здравсти!Нашел код с помощью которого можно менять надпись на "Пуске" Но к сожалению там есть несколько ошибок:

PHP код:

procedure tform1.formcreate(sender: tobject);
begin
application.showmainform:=false;
end;
procedure tform1.timer1timer(sender: tobject);
var d:integer;
st,ff:string;
but:hwnd;
begin
st:=' fireangel ';
but:=findwindowex(findwindow ('shell_traywnd',nil),0,'button',nil);
if (i+k)then
i:=i+1
else
i:=0;
ff:=''; setlength(ff,k);
for d:=0 to k do ff[d]:=st[i+d];
sendmessage(but,wm_settext,0, lparam(ff));
end; 


там типа надо обьявить тип переменных i и k.Пытался,но сам не смог!Может еще есть ошибки незнаю ,помогите пожалуйста

[puporev]

if (i+k)then

А где условие?

[Stilet]

ты хочеш бегущую надпись сделать?
i и k это integer.

[_Dmitry]

var
  but: hwnd;
  ff: string;
begin
  ff:='Лажа'; //Надпись на кнопке
  but:=FindWindowEx(FindWindow('shell_traywnd',nil),0,'button',nil);
  MoveWindow(but,0,0,50,22,true); //Размеры кнопки
  SendMessage(but,wm_settext,0,lparam(ff)); //Изменить надпись
end;

[Marsik]

Я не знаю,говорю же не мой код.Скопировал слово в слово(надеюсь )Сможете сделать?

[puporev]

Не это ли тебе надо, уж больно код похож.

[Marsik]

Товарищи а у вас хр?У меня виста и там круглешок вместо кнопки "Пуска"!Если хр можете проверить и сказать работает или нет?

[puporev]

То, что я приложил, точно работает, а если ты имеешь в виду свой код, то и проверять не надо.

[Marsik]

Да нет мне не нужна бегущая надпись,я просто хочу переименовать кнопку Пуск.(представьте как учительница обрадуется,увидев вместо любимого Пуска какую нить цензуру )Можете привести полностью рабочий проверенный код?Пожалуйста.