un handle capricieux !Résolu

Question

Bonjour, tout le monde ...
C'est encore moi, je pose beaucoup de questions ses temps-ci mais toujours pour la bonne cause. Je voulais remercier MasterHack pour sa réponse que je n'ai pas validé faute de temps de recherche. Pourtant il avait vu juste ;)
Cependant je reviens avec un problème encore + complexe lol voici ma source:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, FileCtrl,
  Forms, Dialogs, SHDocVw, ScktComp, ExtCtrls, ExtDlgs, StdCtrls,
  ShellAPI, mmSystem, OleCtrls, AppEvnts, Menus;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
MonprogMainHandle,DialogBoutonhandle : THandle;
rectangle : TRect;
begin
ShellExecute(0,'open', 'Control.exe', 'desk.cpl,,0', nil, SW_SHOWMAXIMIZED);
Sleep(1000);
MonprogMainHandle := Findwindow(nil,Pchar('Propriétés de Affichage'));  //fenetre principale

{ Restaurer l'application si minimisée }
ShowWindow(MonprogMainHandle, SW_RESTORE);

{ Mettre la première instance en premier plan : }
SetForegroundWindow(MonprogMainHandle);

DialogBoutonhandle := FindwindowEx(MonprogMainHandle,0,nil,Pchar('&&Parcourir...')); //volet boutton

GetWindowRect(DialogBoutonhandle,rectangle);

{ Limite le déplacement de la souris à la zone Client de la fiche. }
   ClipCursor(@rectangle);
end;
end.

le pb les amis c'est que si mon bouton serais => 'OK' par exemple cela fonctionnerai.
j'ai reussi à prendre le nom du handle du bouton parcourir => '&Parcourir...' et comme chacun le sais delphi souligne le caractere précédé du & alors j'ai pris soin bien entendu de faire '&&Parcourir...' mais cela n'y change absoluement rien ... J'espère que tout le monde à compris mon desepoire merci :)

cs_Kenavo · Accepted Answer

Salut,



Il doit manquer un &#233;tage : le bouton "Parcourir" fait partie du dialog
"Bureau" et pas directement du dialogue "Propri&#233;t&#233;s d'affichage" donc :



  MonprogMainHandle := Findwindow(nil, Pchar('Propri&#233;t&#233;s de Affichage')); //fenetre principale

  ...

  DialogHandle := FindwindowEx(MonprogMainHandle, 0, nil, Pchar('Bureau')); //volet bureau

  DialogBoutonhandle := FindwindowEx(DialogHandle, 0, nil, Pchar('&Parcourir...')); //boutton parcourir




devrait mieux fonctionner !



Ken@vo
<hr size="2" width="100%">Code, Code, Codec !




http://noepatents.eu.org/

[%3C/body ]

florenth · Answer

Au fait, c'est quoi ta question ? Sinon, dans les "Propriétés de Affichage" de Windows, il y a bien un bouton "Parcourir ..." mais qui n'a aucun caractère de souligné. Donc je mettrai plutôt ceci (en fait j'enleve les &) :

DialogBoutonHandle := FindWindowEx(MonProgMainHandle,0, nil ,'Parcourir...'); { Normalement pas besion de transtyper en PChar explicitement les chaînes directement saisies dans le source. }

Autrement, si on parle bien du même bouton, tu doit savoir qu'il se situe dans l'onglet "Bureau" et que les propriétés de l'affichage s'ouvent sur l'onglet "Thèmes" (sous XP). C'est peut-être à prendre en compte mais là, je ne peux pas t'aider. N'oublie pas de poser ta question sinon .... on ne peut pas y répondre @ ++ Florent Si tu ne te plantes pas ...... tu ne poussera jamais

cs_askil2000 · Answer

nan je suis sous win2000 pro dsl

DRJEROME · Answer

ceci devrait marcher...une fois le curseur limité dans son déplacement, vous pouvez débloquer en appuyant sur le bouton "Esc" de votre PC... Remarque : il faudra revoir le "Sleep" que tu as mis (j'ai laissé le brouillon d'un essais de boucle while à la place du sleep...mais pas très concluant)

procedure TForm1.Button1Click(Sender: TObject); var MonprogMainHandle,OngletHandle,DialogBoutonhandle : THandle; rectangle : TRect; begin ShellExecute(0,'open', 'Control.exe', 'desk.cpl,,0', nil, SW_SHOWMAXIMIZED); {MonprogMainHandle:=0; while MonprogMainHandle=0 do MonprogMainHandle := Findwindow(nil,Pchar('Propriétés de Affichage')); //fenetre principale} Sleep(1000); MonprogMainHandle := Findwindow(nil,Pchar('Propriétés de Affichage')); //fenetre principale { Restaurer l'application si minimisée } ShowWindow(MonprogMainHandle, SW_RESTORE); //OngletHandle:=0; OngletHandle:=FindwindowEx(MonprogMainHandle,0,'#32770','Bureau'); //showmessage(inttostr(OngletHandle)); { Mettre la première instance en premier plan : } SetForegroundWindow(OngletHandle); DialogBoutonhandle := FindwindowEx(OngletHandle,0,nil,'&Parcourir...'); //volet boutton GetWindowRect(DialogBoutonhandle,rectangle); { Limite le déplacement de la souris à la zone Client de la fiche. } ClipCursor(@rectangle); end; end.

N'oubliez pas de cliquer sur Réponse acceptée si c'est OK DrJerome

DRJEROME · Answer

oups... d&#233;sol&#233; si au final c'est +/- idem que Kenavo...(au  #32770 pr&#232;s)

je salut Kenavo au passage ;)

DrJerome

cs_askil2000 · Answer

Marche toujours pas, je n'ai pas l'onglet bureau because je suis sous windows 2000 pro et que c directement => 'Propriétés de Affichage' => '&Parcourir...'
pourtant j'ai fé un copier coller de la procedure de DRJEROME. Si ça marche chez vous c louche lol

cs_askil2000 · Answer

DialogHandle := FindwindowEx(MonprogMainHandle, 0, nil, Pchar('Arrière-plan')); //volet bureau pour windows 2000 pro = 'Arrière-plan' Merci les gens !!!!!!

Un handle capricieux !

7 réponses

Votre réponse

Discussions similaires