Discussion :

[Hell]

Bonjour

J'ai une application qui n'a pas de bouton de controle pour agrandir, réduire ou fermer. Par défaut la fenêtre est minuscule, elle se met en 640*480. Le seul moyen que j'ai pour la redimensionner est d'utiliser les coins de la fenêtre.

J'aimerai donc faire un programme delphi qui va m'agrandir la fenêtre à la taille max. Donc pour agrandir la fenêtre, j'utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
monhandle := FindWindow(nil,'nom application');
SendMessage(monhandle, WM_SYSCOMMAND, SC_MAXIMIZE, 0);

Ca fonctionne mais j'ai un problème, une partie de l'application se cache sous la barre des taches.

• Est ce qu'il existe une solution pour qu'il agrandisse la fenêtre mais qu'elle n'aille pas sous la barre des taches?
• L'application n'a pas de boutons de controle pour agrandir et réduire, est ce qu'il est possible de la forcer à les afficher?

Merci d'avance pour votre aide

[Hell]

Bon je crois avoir trouvé une solution, je vais réduire un peu la hauteur de la fenêtre après l'avoir agrandie.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SetWindowPos(monhandle, 0, 0, 0, width, height, SWP_NOZORDER or SWP_SHOWWINDOW);

Par contre comment faire pour récupérer la taille d'une fenêtre?

[Hell]

Bon j'ai trouvé la solution En redimensionnant ma fenêtre avec screen.workareawidth et screen.workareaheight, ma fenêtre se redimensionne correctement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SetWindowPos(monhandle, 0, 0, 0, Screen.WorkAreaWidth, Screen.WorkAreaHeight, SWP_NOZORDER or SWP_SHOWWINDOW);

[PadawanDuDelphi]

Bonjour,

Utilise l'API GetWindowRect ( et F1 ).

@+.

[Hell]

Merci c'est bon à savoir