es := GetWindowLong(Application.Handle, GWL_EXSTYLE);
es := es or (not WS_EX_APPWINDOW);
SetWindowLong(Application.Handle, GWL_EXSTYLE, es);
как убрать программу с панели задач
Люди, помогите. Как убрать программу с панели задач? Т. е. чтобы форма на экране была видна но на панели задач её не было. А то сделал часы для рабочего стола (с возмоможностью прятать их в Tray) и хочется чтобы были
видны только они. Только не пишите что то типа:
ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE);
ShowWindow (Application.handle, SW_HIDE);
hTaskbar := FindWindow('Shell_TrayWnd', Nil);
ShowWindow(hTaskBar, SW_HIDE);
это не помогает.:confused:
видны только они. Только не пишите что то типа:
ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE);
ShowWindow (Application.handle, SW_HIDE);
hTaskbar := FindWindow('Shell_TrayWnd', Nil);
ShowWindow(hTaskBar, SW_HIDE);
это не помогает.:confused:
Попробуй посмотреть тут: http://forum.codenet.ru/showthread.php?t=31979
procedure TYourForm.HideFromAppList();
var
es: Integer;
begin
es := GetWindowLong(Application.Handle, GWL_EXSTYLE);
es := es or (not WS_EX_APPWINDOW);
SetWindowLong(Application.Handle, GWL_EXSTYLE, es);
es := GetWindowLong(YourForm.Handle, GWL_EXSTYLE);
es := es or WS_EX_TOOLWINDOW;
SetWindowLong(YourForm.Handle, GWL_EXSTYLE, es);
end;
var
es: Integer;
begin
es := GetWindowLong(Application.Handle, GWL_EXSTYLE);
es := es or (not WS_EX_APPWINDOW);
SetWindowLong(Application.Handle, GWL_EXSTYLE, es);
es := GetWindowLong(YourForm.Handle, GWL_EXSTYLE);
es := es or WS_EX_TOOLWINDOW;
SetWindowLong(YourForm.Handle, GWL_EXSTYLE, es);
end;
Релорт, твой код не помогает. Он скрывает программу только из Alt+Tab, а на панели задач она так и остается.:confused:
Странно. У меня вообще:
приводят к ожидаемому результату :)
Ты избранный :)
Код:
приводят к ожидаемому результату :)
Ты избранный :)
2Релорт
странно вообще как оно у тебя к ожидаемому результату приводит, когда там надо не or not WS_EX_APPWINDOW, a and not WS_EX_APPWINDOW
странно вообще как оно у тебя к ожидаемому результату приводит, когда там надо не or not WS_EX_APPWINDOW, a and not WS_EX_APPWINDOW
оно?
Код:
bool __fastcall TBSetState(HWND hwnd,int status)
{ ITaskbarList *pITaskbarList;
if (!hwnd) return false;
CoInitialize(NULL);
HRESULT hr=CoCreateInstance(CLSID_TaskbarList, NULL, CLSCTX_INPROC_SERVER,
IID_ITaskbarList, (void**)&pITaskbarList);
if (FAILED(hr)) return false;
hr=pITaskbarList->HrInit();
if (SUCCEEDED(hr))
switch(status)
{ case 0: hr=pITaskbarList->DeleteTab(hwnd); break;
case 1: hr=pITaskbarList->AddTab(hwnd); break;
case 2: hr=pITaskbarList->ActivateTab(hwnd); break;
case 3: hr=pITaskbarList->SetActiveAlt(hwnd); break; }
pITaskbarList->Release();
CoUninitialize();
if (FAILED(hr)) return false; // Cmd error
return true;
}
{ ITaskbarList *pITaskbarList;
if (!hwnd) return false;
CoInitialize(NULL);
HRESULT hr=CoCreateInstance(CLSID_TaskbarList, NULL, CLSCTX_INPROC_SERVER,
IID_ITaskbarList, (void**)&pITaskbarList);
if (FAILED(hr)) return false;
hr=pITaskbarList->HrInit();
if (SUCCEEDED(hr))
switch(status)
{ case 0: hr=pITaskbarList->DeleteTab(hwnd); break;
case 1: hr=pITaskbarList->AddTab(hwnd); break;
case 2: hr=pITaskbarList->ActivateTab(hwnd); break;
case 3: hr=pITaskbarList->SetActiveAlt(hwnd); break; }
pITaskbarList->Release();
CoUninitialize();
if (FAILED(hr)) return false; // Cmd error
return true;
}
а не сильно ли это жёстко? помоему, отнимание у окна WS_EX_APPWINDOW хватает с головой....
2<SCORP>
Не всегда. Если приложение многооконное, то там некоторые артифакты всплывают.
Не всегда. Если приложение многооконное, то там некоторые артифакты всплывают.
Хм, странно... А не проще ли так:
;)
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowWindow(Handle, SW_HIDE);
ShowWindow(Application.Handle, SW_HIDE);
end;
begin
ShowWindow(Handle, SW_HIDE);
ShowWindow(Application.Handle, SW_HIDE);
end;
;)
А что, вот это уже не работает:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Hide;
end;
begin
Hide;
end;
Прикинте вот это помогло:
procedure TForm1.FormShow(Sender: TObject);
begin
ShowWindow(Handle, SW_HIDE);
ShowWindow(Application.Handle, SW_HIDE);
end;
Realt ты гений
procedure TForm1.FormShow(Sender: TObject);
begin
ShowWindow(Handle, SW_HIDE);
ShowWindow(Application.Handle, SW_HIDE);
end;
Realt ты гений