| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как свернуть приложение в SystemTray?
BOBAH © (2002-09-18 16:41:00)Подскажите, плиз, следующеи вещи:
1. Как приложение свернуть в SystemTry
2. Как заставить приложение запускаться при запуске Windows, без покладиние ярлыка в автозагузку (где это храниться в реестре)
3. Как убрать приложение чтоб оно по Alt-Tab не показывалось
заренее спасибо.
Separator (2002-09-19 12:28:00) [1]А вот так твою прогу не будет видно не по Alt+Tab, не на панели задач, а форма будет.
var
WnHnd : Integer;
Form: TFormTime;
begin
Application.Initialize;
Application.CreateForm(TFormTime, Form);
WnHnd:= GetWindowLong(Application.Handle, GWL_EXSTYLE);
if (WnHnd and WS_EX_TOOLWINDOW)=WS_EX_TOOLWINDOW then
WnHnd:= WnHnd-WS_EX_TOOLWINDOW
else
WnHnd:= WnHnd or WS_EX_TOOLWINDOW;
Application.MainForm.Hide;
SetWindowLong(Application.Handle, GWL_EXSTYLE, WnHnd);
Application.MainForm.Show;
Application.Title:= "Time";
Application.Run
end.
{Сам тока вчера узнал в этом форуме :)}
А чтоб в трей свернуть читай в этом же форуме, или используй TrxTrayIcon
andrey_pst (2002-09-19 12:16:00) [2]Да, ВОВАН, ты даешь :) знаешь как ездить на автомобиле, но не знаешь куда ключ зажигания вставляется ? так что-ли ?
Можешь сюда:
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
BOBAH (2002-09-19 12:08:00) [3]> 2.TRegistry - Ctrl+F1
я знаю как работать с реестром, мне нужно знать где это в нем находится, времени нет искать
Song (2002-09-18 16:45:00) [4]1. http://pascal.sources.ru/cgi-bin/forum/YaBB.cgi?board=delphi;action=display;num=1020241631
2.TRegistry - Ctrl+F1
3.SystemParametersInfo()
| |
