Discussion :

[Desraux]

Bonjour,

Je souhaite griser le bouton "Réduire" du menu système d'une fenêtre windows.

J'ai le code pour griser le bouton "Fermer" mais quand je l'adapte pour le bouton "Réduire" cela ne fonctionne pas. Pourquoi ? Et comment le faire ?

// Grise la case "Fermer". Exemple ok

HMenu:=GetSystemMenu(handle, false);
EnableMenuItem(hMenu, SC_CLOSE, MF_BYCOMMAND + MF_DISABLED);

// Grise la case "Réduire". Exemple ko
// Ne fonctionne pas

HMenu:=GetSystemMenu(handle, false);
EnableMenuItem(hMenu, SC_MINIMIZE, MF_BYCOMMAND + MF_DISABLED);

[Aurelien.Regat-Barrel]

Ca se règle au niveau des styles de la fenêtre. Retire le style WS_MINIMIZEBOX.

[Desraux]

Oui mais ce n'est pas moi (ou mon programme) qui créé la fenêtre.

Il s'agit ici d'empêcher l'utilisateur de minimiser la fenêtre d'un certain programme. D'abord je créé un hook (jusqu'ici pas de problème) mais je souhaiterais aussi griser le bouton pour faire comprendre à l'utilisateur qu'il ne peut plus disposer de cette fonction.

[Desraux]

En cherchant comment rendre une fenêtre invisible j'ai trouvé ce code.

(Utilisation de SetWindowsLong pour adapter le style de la fenêtre)

var
Style : LongInt;
begin
Style := GetWindowLong(Handle,GWL_STYLE);
Style := Style and not WS_MINIMIZEBOX;
SetWindowLong(Handle,GWL_STYLE,Style);
SetWindowPos(Handle,0,0,0,0,0,
SWP_FRAMECHANGED or
SWP_NOMOVE or
SWP_NOSIZE or
SWP_NOZORDER);
end;