Cum schimbam numele butonului start

In jos

Cum schimbam numele butonului start

Mesaj Scris de Max la data de Dum Sept 07, 2008 7:21 pm

Start name changer


1. Adaugam din tabul standard un edit(text)
2. Adaugam din tabul standard un buton(tbutton)
3. Dam un click pe text si din object inspector la text stergem tot
4. Dam un click pe buton si din object inspector la caption punem "Schimba"
5. Dam dublu click pe buton stergem "begin" si scriem

var Handle1,Handle2:hwnd;
begin
Handle1:=FindWindow('Shell_TrayWnd',nil); //get the handle of the taskbar
Handle2:=FindWindowEx (Handle1,0,'Button',nil); //get the handle of the start button from the taskbar
SetWindowText(Handle2,PAnsiChar(Edit1.Text)); //set the text

SendMessage(Handle2,Messages.WM_MOUSEMOVE,0,0); //used to refresh the caption of the start button
end;

Max
Moderator
Moderator

Numarul mesajelor : 53
Varsta : 30
Localitate : Confidential
Stare de spirit : Rakiu
Data de inscriere : 23/08/2008

Vezi profilul utilizatorului

Sus In jos

Sus


 
Permisiunile acestui forum:
Nu puteti raspunde la subiectele acestui forum