Delphi - скрыть от alt-tab
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Delphi - скрыть от alt-tab - 2008-01-18 10:32:14.870000
|
|
|
i_god
Сообщений: 26
Оценки: 0
Присоединился: 2007-06-07 21:03:53.066666
|
Вообщем нужно программу скрыть от сочитания клавиш alt-tab, но при етом программа должна выполнятся в фоновом режими, без скрытия форм в ней! то есть окно видно, а приложения в alt-tab'е не видно! уже устал искать на етот вопрос ответ! кто реально поможет заплачу 5-10 wmz
заранее всем спасибо! =)
p.s dll не придлогать!
|
|
|
|
|
RE: Delphi - скрыть от alt-tab - 2008-01-18 12:10:10.030000
|
|
|
heaven7
Сообщений: 134
Оценки: 5
Присоединился: 2007-12-29 20:49:38.910000
|
на апишнике писано или vcl?
|
|
|
|
|
RE: Delphi - скрыть от alt-tab - 2008-01-18 12:34:50.410000
|
|
|
Soul Master
Сообщений: 21
Оценки: 0
Присоединился: 2007-12-08 21:08:59.593333
|
Я знаю как ето сделать на дельфе. Если понадобиться:
Внеся изменения (выделенные цветом) в свой проект вы получите приложение, которое не видно в TaskBar и на него нельзя переключиться по Alt-Tab
program Project1;
uses
Forms,
Windows,
Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
var
ExtendedStyle : integer;
begin
Application.Initialize;
ExtendedStyle:=GetWindowLong(application.Handle, GWL_EXSTYLE);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
ExtendedStyle or WS_EX_TOOLWINDOW {AND NOT WS_EX_APPWINDOW});
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Если включить синий коментарий, то получите очень интересное приложение. Оно не видно в TaskBar и на него нельзя переключиться по Alt-Tab, но когда приложение минимизируется оно остается на рабочем столе в виде свернутого заголовка (прямо как в старом добром Windows 3.11)
|
|
|
|
|
RE: Delphi - скрыть от alt-tab - 2008-01-18 12:47:59.920000
|
|
|
i_god
Сообщений: 26
Оценки: 0
Присоединился: 2007-06-07 21:03:53.066666
|
пишу при стандартном оконом интерфейси! т.е как делфи открываешь и проект по умолчанию создается!
щас попробуй метод Soul Master
|
|
|
|
|
RE: Delphi - скрыть от alt-tab - 2008-01-18 13:29:49.560000
|
|
|
i_god
Сообщений: 26
Оценки: 0
Присоединился: 2007-06-07 21:03:53.066666
|
2 Soul Master я немогу понять куда твой код вписывать нужно! обьясни пожалуйста подробнее!
|
|
|
|
|
RE: Delphi - скрыть от alt-tab - 2008-01-18 13:39:47.286666
|
|
|
i_god
Сообщений: 26
Оценки: 0
Присоединился: 2007-06-07 21:03:53.066666
|
аааа, все разобрался куда его вписывать!!! вписал, запустил! но с программой не чего не изменилось! она как отображается при нажатии alt-tab, так и отображается! и спокойно переключается! может я что не так сделал? подскажите!
|
|
|
|
|
RE: Delphi - скрыть от alt-tab - 2008-01-18 16:15:08.516666
|
|
|
mr.crown
Сообщений: 37
Оценки: 0
Присоединился: 2007-03-02 15:28:48.440000
|
with Application do
begin
ShowWindow(Handle, SW_HIDE);
SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
end; {With}
SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
Всунь на onCreate и будет тебе счастье!
|
|
|
|
|
RE: Delphi - скрыть от alt-tab - 2008-01-19 00:32:01.480000
|
|
|
VViskas =[O_o]=
Сообщений: 145
Оценки: 0
Присоединился: 2008-01-01 02:25:50.893333
|
quote:
ORIGINAL: Soul Master
Я знаю как ето сделать на дельфе. Если понадобиться:
Внеся изменения (выделенные цветом) в свой проект вы получите приложение, которое не видно в TaskBar и на него нельзя переключиться по Alt-Tab
program Project1;
uses
Forms,
Windows,
Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
var
ExtendedStyle : integer;
begin
Application.Initialize;
ExtendedStyle:=GetWindowLong(application.Handle, GWL_EXSTYLE);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
ExtendedStyle or WS_EX_TOOLWINDOW {AND NOT WS_EX_APPWINDOW});
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Если включить синий коментарий, то получите очень интересное приложение. Оно не видно в TaskBar и на него нельзя переключиться по Alt-Tab, но когда приложение минимизируется оно остается на рабочем столе в виде свернутого заголовка (прямо как в старом добром Windows 3.11)
Alt-Tab все-равно находит! Хотя в панели задач скрывается!
Даже без {AND NOT WS_EX_APPWINDOW} остается (свернутое) на рабочем столе!
|
|
|
|
|
RE: Delphi - скрыть от alt-tab - 2008-01-19 08:19:31.276666
|
|
|
Devisible
Сообщений: 49
Оценки: 0
Присоединился: 2008-01-02 10:24:35.340000
|
Может просто отключить сочетание клавиш Alt+tab????
Вот простой пример из Delphi world!
procedure TurnSysKeysOff;
var
OldVal: LongInt;
begin
SystemParametersInfo (97, Word (True), @OldVal, 0);
end;
procedure TurnSysKeysBackOn;
var
OldVal: LongInt;
begin
SystemParametersInfo (97, Word (False), @OldVal, 0);
end;
|
|
|
|
|
RE: Delphi - скрыть от alt-tab - 2008-01-19 14:35:10.543333
|
|
|
i_god
Сообщений: 26
Оценки: 0
Присоединился: 2007-06-07 21:03:53.066666
|
mr.crown
твой метод работает отлично, НО когда у моей формы стоит FormStyle := fsStayOnTop , тоесть когда форма по верх всех остальных окон windows, это не работает ее как было видно при нажатии alt-tab так и видно… как сделать с твоим методоб чтобы форма была поверх остальных….
заранее спасибо
|
|
|
|
|
RE: Delphi - скрыть от alt-tab - 2008-01-19 17:24:37.173333
|
|
|
i_god
Сообщений: 26
Оценки: 0
Присоединился: 2007-06-07 21:03:53.066666
|
все разобрался просто FormStyle := fsStayOnTop нужно вставить в цикл.
mr.crown если нужны деньги давай номер WMR
with Application do
begin
FormStyle := fsStayOnTop;
ShowWindow(Handle, SW_HIDE);
SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
end; {With}
SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
|
|
|
|
|
RE: Delphi - скрыть от alt-tab - 2008-01-25 01:30:57.600000
|
|
|
VViskas =[O_o]=
Сообщений: 145
Оценки: 0
Присоединился: 2008-01-01 02:25:50.893333
|
Вот небольшой и отлично работающий вариант!!!
ShowWindow(Application.Handle, SW_HIDE);
В панели задач - нет! В приложениях - нет! В Alt+Tab тоже нет! Даже при StayOnTop!
|
|
|
|
|
RE: Delphi - скрыть от alt-tab - 2008-01-27 14:19:26.160000
|
|
|
mr.crown
Сообщений: 37
Оценки: 0
Присоединился: 2007-03-02 15:28:48.440000
|
quote:
ShowWindow(Application.Handle, SW_HIDE);
У теб какая винда? На ХренРаботает СП2 - хрен работает :)
|
|
|
|
|
RE: Delphi - скрыть от alt-tab - 2008-01-27 16:03:42.740000
|
|
|
VViskas =[O_o]=
Сообщений: 145
Оценки: 0
Присоединился: 2008-01-01 02:25:50.893333
|
У мну ХР СП2 и там усЁ работает.
|
|
|
|
|
RE: Delphi - скрыть от alt-tab - 2011-07-04 21:05:16.700000
|
|
|
binarymaster
Сообщений: 13
Оценки: 0
Присоединился: 2011-03-07 02:17:16.786666
|
procedure TForm1.FormActivate(Sender: TObject);
begin
SetWindowLong(Form1.Handle, GWL_EXSTYLE, GetWindowLong(Form1.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
ShowWindow(Application.Handle, SW_HIDE);
end;
В событии FormActivate работает на 100%, скрывает на панели задач и в Alt+Tab.
WinXP SP2, Delphi 2010
|
|
|
|
|
|
