![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Кто знает как можно в скомпилированной программе отключать и подключать панель инструментов (ToolBar) и отдельные ее кнопки.
Напишите, пожалуйста, код. Буду очень благодарен |
#2
|
|||
|
|||
![]() Сныкать таскбар
var hTaskBar:THandle; begin hTaskbar:=FindWindow('Shell_TrayWnd',Nil); ShowWindow(hTaskBar,SW_HIDE); end; ********************************************** Показать таскбар var hTaskBar:THandle; begin hTaskbar:=FindWindow('Shell_TrayWnd',Nil); ShowWindow(hTaskBar,SW_SHOWNORMAL); ********************************************** |
#3
|
|||
|
|||
![]() человек про ToolBar спрашивал...
А какой тулбар ты используешь? |
#4
|
||||
|
||||
![]() ToolBar (панель инструментов) на вкладке Win32
|
#5
|
||||
|
||||
![]() Ну вот так например:
Код:
with TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Toolbars.ini') do begin ToolBar1.Visible:=ReadBool('ToolBars', 'ToolBar1', True); //и т. д. Free; end; Код:
//пишешь в событии OnCloseQuery with TIniFile.Create((ExtractFilePath(Application.ExeName) + 'Toolbars.ini') do begin WriteBool('ToolBars', 'ToolBar1', ToolBar1.Visible); //и т. д. Free; end; Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#6
|
||||
|
||||
![]() огромное спасибо
|