V1oL
Administrator
Data inscrierii: 07/Oct/2008
Mesaje: 92
|
|
Start name changer
1. Adaugam din tabul standard un edit(text)
2. Adaugamm 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
| Citat: |
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;
|
 |
