Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Вниз

Handle окна 


Ted   (2002-01-29 09:33) [0]

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

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.




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.021 c
1-90938           mrcat                 2002-03-14 13:29  2002.03.28  
Интервалы нажатия клавиш


1-90957           AVT                   2002-03-13 17:54  2002.03.28  
Как поднять окно своего приложения поверх всех окон в win2k.


1-90977           AndrewK               2002-03-14 18:17  2002.03.28  
Подскажите, как скомпоновать отчет


6-91025           Bobr                  2002-01-14 17:50  2002.03.28  
Как получить имя текущего пользователя в NT сервисе


14-91062          McSimm                2002-02-14 10:30  2002.03.28  
О правиле имен :)