Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2005.10.09;
Скачать: [xml.tar.bz2];

Вниз

Сделать программу невидимой по Alt+Tab   Найти похожие ветки 

 
deamon_t   (2005-08-11 21:59) [0]

Приветик товарищи программеры! Кодскажите кто знает как собвственно сделать программу невидимой по alt+tab. Заранее спасибо.


 
Kolan ©   (2005-08-11 22:30) [1]


> программу невидимой

Поясните. Мож имеется в виду форма.


> alt+tab

HotKey пойдёт? Вот пример

type  
TForm1 = class(TForm)  

  procedure FormCreate(Sender: TObject);  

  procedure FormDestroy(Sender: TObject);  

protected  

  procedure hotykey(var msg:TMessage); message WM_HOTKEY;  

end;  

 

 
var  
 Form1: TForm1;  
 id,id2:Integer;  

implementation  

{$R *.DFM}  

procedure TForm1.hotykey(var msg:TMessage);  
begin  
if (msg.LParamLo=MOD_CONTROL) and (msg.LParamHi=81) then  

 
begin  

 
ShowMessage("Ctrl + Q wurde gedrьckt !");  

 
end;  

 
if (msg.LParamLo=MOD_CONTROL) and (msg.LParamHi=82) then  

 
begin  

 
ShowMessage("Ctrl + R wurde gedrьckt !");  

 
end;  

 
end;  

procedure TForm1.FormCreate(Sender: TObject);  
begin  
id:=GlobalAddAtom("hotkey");  

RegisterHotKey(handle,id,mod_control,81);  

id2:=GlobalAddAtom("hotkey2");  

RegisterHotKey(handle,id2,mod_control,82);  

 
end;  

procedure TForm1.FormDestroy(Sender: TObject);  
begin  
UnRegisterHotKey(handle,id);  

UnRegisterHotKey(handle,id2);  

 
end;


 
KilkennyCat ©   (2005-08-11 22:46) [2]

имеется ввиду, что по нажатию альт+таб программа становится невидимой. Этого делать ненадо, так как уже реализовано в альт+ф4.


 
Kazakh   (2005-08-12 07:03) [3]

Я пользуюсь этим (назови имя проекта типа Internat32 и все будет ок)

ShowWindow(Handle,sw_hide);
ShowWindow(Application.Handle,sw_hide);


 
Игорь Шевченко ©   (2005-08-12 10:12) [4]

У главного окна сделать BorderStyle = bsToolWindow или bsSizeToolWin


 
deamon_t   (2005-08-12 22:58) [5]

Удалено модератором


 
Андрей Молчанов   (2005-08-12 23:11) [6]

ShowWindow(Handle,sw_hide);
ShowWindow(Application.Handle,sw_hide);

Должен работать


 
deamon_t   (2005-08-12 23:24) [7]

Андрей Молчанов - это работает не так как необходимо оно делает форму невидимой, её не видно по альт+таб, но мне нужно чтобы форму было видно на экране но невидно по альт+таб...


 
Anatoly Podgoretsky ©   (2005-08-12 23:33) [8]

deamon_t   (11.08.05 21:59)  
Чтобы программа была не видима в списке Alt+Tab она не должна иметь кнопки в панели задач.


 
KilkennyCat ©   (2005-08-12 23:38) [9]

Значит, необходимо перехватывать нажатие альттаба, и в этот момент приводить программу в невидимость, позже - восстанавливать. Кривовато, но судя по всему, по другому - никак.


 
KilkennyCat ©   (2005-08-12 23:39) [10]

Удалено модератором


 
Андрей Молчанов   (2005-08-13 10:42) [11]

А если попробовать просто
ShowWindow(Application.Handle,sw_hide);
?


 
AlexRya   (2005-08-14 22:13) [12]

Anatoly Podgoretsky ©   (12.08.05 23:33) [8]

А может наоборот? :-)
Тут ведь надо разобраться, что из чего следует. За кнопку на панели задач, ессесно, отвечает explorer. Убъем его через. Никакой панели нет, как, впрочем, и кнопочки на ней. А вот приложания в Alt-Tab остались.

Год, наверное, сюда не заходил, а список вопросов не изменился. Приятно хоть знакомые имена видеть. Здрасьте, Анатолий. Хотя вряд ли Вы меня помните.



Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2005.10.09;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.014 c
1-1126774221
CaptainAlex
2005-09-15 12:50
2005.10.09
Хранение пароля


14-1127073320
NailMan
2005-09-18 23:55
2005.10.09
Элетронщики! Помогите со схемкой!


2-1125292719
Гриха
2005-08-29 09:18
2005.10.09
Полтергейст в TStrings


14-1126941471
Sergey_Masloff
2005-09-17 11:17
2005.10.09
Обладатели КПК дайте совет что купить


14-1127230631
Гарри Поттер
2005-09-20 19:37
2005.10.09
Видеошок.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский