Подскажите мне плз как управлять чужими окнами. К примеру сернуть окно IE или Wc........ потом развернуть, скрыть его от ctrl+alt+del и из той понельки, что внизу? Очень мне надо это, разрешение маленькое, и когда открыто дофига окон, то там в понели левее систрея получается каша. Да вот ещё! Как работать с треем, в С-- это реализовано компонентом, а дельфях?

Есть прекрасная утилита, я ей пользуюсь постоянно - если она активна то клик правой кнопки мыши на кнопке минимизации минимизирует любое окно в трей, левый шелчек - как обычно. Если кому эта приблуда нужна то могу послать на email, она кстати с исходниками. По поводу работы с треем в дельфи - есть компонента для этого в RxLib. Теперь как самому отловить окно -
окно ловится функцией FindWindow, управлять статусом  окна можно функцией ShowWindow

Vit скинь мне плз ету программулю сюда

Ага, она у меня оказывается на сайте есть -

http://chicago.lastplanet.com/tray.zip

Только без исходников, исходники дома, если надо то пришлю. Сам я без этой утилиты никуда, уж очень удобная, только жаль некоторые программы не любят над собой такие штуки

Напеши поподробнее ПЛЗ о ловле активных окон, может семпл, хоть самый мелкий.
И сырец той проги вышли и мне плзз на мыло [email protected].
А где RxLib надыбать?

О ловле окон есть в нашем FAQ:

http://www.forum.vingrad.ru/cgi-bin....2;t=866

Rxlib можно взять на моем сайте по Дельфи:

http://delphi.nevzorov.net

(там еще много чего инетересного есть, да простит меня админ за рекламу)

Всё хорошо, но мне нужно находить имена активных окон.

Vit. кинь мне на мыло исходники.

Ну вот я до чегото догнался.

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;
type
 TForm1 = class(TForm)
   Button1: TButton;
   Memo1: TMemo;
   procedure Button1Click(Sender: TObject);
 private
 public
 end;
type
PFindWindowStruct = ^TFindWindowStruct;
TFindWindowStruct = record
  Caption : string;
  ClassName : string;
  WindowHandle : THandle;
end;
var  Form1: TForm1;
implementation
{$R *.dfm}
function EnumWindowsProc(hWindow : hWnd) : Bool; stdcall;
var
lpBuffer: PChar;
lpBuffer1: PChar;
i,j:integer;
s:string;
begin
GetMem(lpBuffer, 255);
GetMem(lpBuffer1, 255);
Result := True;
try
i:=GetWindowText(hWindow, lpBuffer, 255);
j:=GetClassName(hWindow, lpBuffer1, 255);
if (i>0)and(lpbuffer1='TApplication' then
  begin
    s:='';
    s:=lpbuffer;
    s:=s+':'+lpbuffer1;
    form1.Memo1.Lines.Add(s);
  end;
finally
  FreeMem(lpBuffer, sizeof(lpBuffer^));
  FreeMem(lpBuffer1, sizeof(lpBuffer^));
end;
end;

function FindAWindow(Caption : string; ClassName : string) : THandle;
var WindowInfo : TFindWindowStruct;
begin
EnumWindows(@EnumWindowsProc,0);
FindAWindow := WindowInfo.WindowHandle;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
FindAWindow(' ', '';
end;
end.

Но эта фишка выводит лиш имена приложений, а не окон!
Помогите плззз окно найти, причом активное!

Активное окно - GetForeGroundWindow() или GetActiveWindow() смотря что надо.

Вот, кто просил эта прога с исходниками:

http://chicago.lastplanet.com/1/tray.zip

Цитата(Frikazoid @ 31.5.2002, 00:46)

Всё хорошо, но мне нужно находить имена активных окон.

Зайди на сайт "Королевство Дельфи". Там очень подробно всё описано и исходники есть.

Мечты вуайериста
Мечты вуайериста II
Прогулка по окнам Windows
Оконный киллер