Empecher windows d'iconifier un programme
cs_Spawnrider
Messages postés
254
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
9 avril 2007
-
8 avril 2005 à 11:34
cs_ManChesTer Messages postés 374 Date d'inscription vendredi 20 octobre 2000 Statut Modérateur Dernière intervention 15 janvier 2021 - 11 avril 2005 à 20:37
cs_ManChesTer Messages postés 374 Date d'inscription vendredi 20 octobre 2000 Statut Modérateur Dernière intervention 15 janvier 2021 - 11 avril 2005 à 20:37
1 réponse
cs_ManChesTer
Messages postés
374
Date d'inscription
vendredi 20 octobre 2000
Statut
Modérateur
Dernière intervention
15 janvier 2021
11 avril 2005 à 20:37
11 avril 2005 à 20:37
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
Procedure WmShowWindows(Var msg: TMessage);Message WM_SHOWWINDOW;
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Procedure TForm1.WmShowWindows(Var msg: TMessage);
begin
If msg.WParam=0 then
begin
if msg.LParam=SW_MINIMIZE then
msg.LParam:=SW_SHOW;
end
end;
Bon Coding ....
ManChesTer.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
Procedure WmShowWindows(Var msg: TMessage);Message WM_SHOWWINDOW;
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Procedure TForm1.WmShowWindows(Var msg: TMessage);
begin
If msg.WParam=0 then
begin
if msg.LParam=SW_MINIMIZE then
msg.LParam:=SW_SHOW;
end
end;
Bon Coding ....
ManChesTer.