| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Handle окна [D5, Win95/98]

Ted ©   (2002-01-29 09:33:00) 

Объясните, плиз, почему мое приложение сворачивается вместе с остальными???

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormHide(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Hand: HWnd;


implementation
{$R *.DFM}


procedure CloseWnd;
stdcall;
begin
Hand:=GetForegroundWindow;

repeat
if (hand <> application.handle) and (IsWindowVisible (hand)) then PostMessage (hand, WM_SYSCOMMAND, SC_MINIMIZE, 0); //postmessage(hand ,wm_close,0,0);
Hand:=GetNextWindow(Hand,GW_HWNDNEXT);
until Hand=0
end;



procedure TForm1.Timer1Timer(Sender: TObject);
begin
CloseWnd;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, nil, 0);
end;

procedure TForm1.FormHide(Sender: TObject);
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, nil, 0);
end;

end.

---

Ted   (2002-01-29 11:02:00) [1]

>Виктор Щербаков
Большое спасибо...........

---

Виктор Щербаков   (2002-01-29 11:00:00) [2]

Вот так должно работать:
if (hand <> application.handle) and
(hand <> Form1.handle) and (IsWindowVisible (hand)) then ...

---

Ted   (2002-01-29 10:44:00) [3]

>Виктор Щербаков
Вставил в программу Form1.handle все равно не фурычит :((

---

Виктор Щербаков   (2002-01-29 09:51:00) [4]

if (hand <> Form1.handle) and (IsWindowVisible (hand)) then ...

---

Наверх