убрать чужое приложение с панели задач

[fate]

казалось бы вроде все просто, а ннет, рылся рылся в интернете, а решение не нашел.
если скрывать так ShowWindow(хендл окна,SW_HIDE); окно пропадает, а на панели задач остается.
или как узнать хандл чужой программы аналог Application.Handle

[fate]

ну что нет идей?

[Аватар]

findwindow для хэндла чужой программы - если известен заголовок, в противном случае если известно имя исполнимого файла через процессы

[fate]

findwindow для хэндла чужой программы

и что это мне даст? я получу хендл окна, а мне нужен аналог Application.Handle
ведь Application.Handle <> Handle

[fate]

Решил задачу
если кому интересно то вот
http://base.vingrad.ru/view/3105-Skr...niya-s-TaskBar

[JTG]

Менее индусский метод – присвоить окну стиль WS_EX_TOOLWINDOW с помощью SetWindowLong

Правильное решение – использовать интерфейс ITaskbarList.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComObj;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
 CLSID_TaskbarList: TGUID = '{56FDF344-FD6D-11d0-958A-006097C9A090}';

type
 ITaskbarList = interface
 ['{56FDF342-FD6D-11d0-958A-006097C9A090}']
   function HrInit: HResult; stdcall;
   function AddTab(hwnd: Cardinal): HResult; stdcall;
   function DeleteTab(hwnd: Cardinal): HResult; stdcall;
   function ActivateTab(hwnd: Cardinal): HResult; stdcall;
   function SetActiveAlt(hwnd: Cardinal): HResult; stdcall;
 end;

var
  Form1: TForm1;
  TaskbarList: ITaskbarList;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  TaskbarList := CreateComObject(CLSID_TaskbarList) as ITaskbarList;
  TaskbarList.HrInit;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TaskbarList.DeleteTab(FindWindow(nil, pchar(edit1.text)))
end;

end.

[fate]

Менее индусский метод – присвоить окну стиль WS_EX_TOOLWINDOW с помощью SetWindowLong

пробовал уже, что я только не пробовал

[Somebody]

Сообщение от fate

и что это мне даст? я получу хендл окна, а мне нужен аналог Application.Handle
ведь Application.Handle <> Handle

Application.Handle - тоже хэндл окна, только оно невидимое.

[fate]

Application.Handle - тоже хэндл окна, только оно невидимое

я понимаю, но это же не тот хендл который возвращает функция findwindow

[Аватар]

Я вообщето имел ввиду findwindow('TApplication','Title приложения') - как раз возвращает Application.Handle