Как сделать кнопку Пуск/Start поменьше?

← →
Igorek (2002-11-19 12:55) [0]

Наверно для начала нужно как-то найти оконный элемент, а потом использовать SetWindowLongEx. Так вот как найти хендл этой кнопки? Сразу скажу, что основательно не копался, так что извините за простой вопрос.

← →
Igorek (2002-11-19 12:58) [1]

Сорри, забыл про функцию SetWindowPos. Но как же с хендлом?

← →
MBo (2002-11-19 12:59) [2]

findwindow
WinSight поможет найти имя класса

← →
Igorek (2002-11-19 13:04) [3]

> MBo © (19.11.02 12:59)

Имя класса - Button. Spy++ помог. Но что с того? Это ж не идентифицирует кнопку однозначно.

← →
MBo (2002-11-19 13:06) [4]

ее парент - shell_traywnd или что-то вроде того

← →
~ (2002-11-19 13:11) [5]

H : THandle;

H:=FindWindowEx(FindWindow("Shell_TrayWnd", nil), 0, "Button", nil);

← →
AL2002 (2002-11-19 13:11) [6]

А может проще "Свойства экрана" поменять?
Кажись, размер кнопок уменьшить...

← →
Igorek (2002-11-19 13:25) [7]

Изменить то изменил, но система вновь возвращает в прежнее состояние... :-(

← →
Igorek (2002-11-19 13:29) [8]

procedure TForm1.Button1Click(Sender: TObject); var H : THandle; R: TRect; P: TPoint; begin H := FindWindowEx(FindWindow("Shell_TrayWnd", nil), 0, "Button", nil); GetWindowRect(H, R); P := Point(R.Left, R.Top); windows.screentoclient(H, P); SetWindowPos(H, 0, P.X, P.Y, 20, 20, SWP_NOZORDER); end;

← →
France (2002-11-19 13:37) [9]

Прикольно! Западло можно сделать кому-нибудь...

← →
Igorek (2002-11-19 13:38) [10]

Ставлю setWindowText(H, "") - система все равно восстанавливает
Ставлю левее - что б часть была видна - тоже не помогает :-(

← →
Igorek (2002-11-19 13:40) [11]

Получилось поставить левее, но тулбар не налазит на свободное пространство :-(

← →
France (2002-11-19 13:45) [12]

А интересно, можно ли свою картинку вместо флажка на эту кнопку поместить?

← →
Igorek (2002-11-19 13:47) [13]

var H : THandle; R: TRect; P: TPoint; begin H := FindWindowEx(FindWindow("Shell_TrayWnd", nil), 0, "Button", nil); GetWindowRect(H, R); P := Point(R.Left, R.Top); windows.screentoclient(H, P); SetWindowPos(H, 0, -40, P.Y, 0, 0, SWP_NOZORDER + SWP_NOSIZE); // setWindowtext(H, ""); end;

← →
AL2002 (2002-11-19 13:49) [14]

> France (19.11.02 13:45)
> А интересно, можно ли свою картинку вместо флажка на эту
> кнопку поместить?

Можно.

← →
France (2002-11-19 14:31) [15]

← →
AL2002 (2002-11-19 14:43) [16]

StartButton: hWnd; OldBitmap: THandle; NewImage : TPicture; StartButton := FindWindowEx (FindWindow( "Shell_TrayWnd", nil), 0,"Button", nil); OldBitmap := SendMessage(StartButton, BM_SetImage, 0, NewImage.Bitmap.Handle);

Что-то в таком духе.

Как сделать кнопку Пуск/Start поменьше? Найти похожие ветки