Recuperation du HANDLE d'une fenetre

Question

Bonjour &#224; tous,
Je voudrais r&#233;cup&#233;rer le HANDLE d'une fenetre afin de controler son &#233;tat.
Cette Fenetre est celle d'une commande DOS d'un batch lanc&#233; par mon appli.
Elle poss&#232;de un TITLE : SAUVEGARDE BASE DE DONNEES

Et j'utilise la proc&#233;dure suivante :
------------------------------------------------------------------
var
h:thandle; 
a:Pchar;
beginshowmessage('Une fois la sauvegarde lanc&#233;e, r&#233;duisez la fen&#234;tre');
winexec('savedb.bat',sw_SHOW);
a:=pchar('"SAUVEGARDE BASE DE DONNEES"');
h :=FindWindow(nil,a);
edit3.Text:=inttostr(h);
-------------------------------------------------------------------

La valeur renvoy&#233;e est toujours 0 , j'ai aussi essay&#233; en essayant de r&#233;cuperer le HANDLE de ma fenetre DELPHI en cours : toujours 0

Je suis en DELPHI 5
Est ce qu'il y aurait quelque chose qui manque ?
Est ce que cette fonction est valable pour des fen&#234;tres DOS ?
Un probl&#232;me dans la saisie du titre ?

J'ai beau chercher dans les r&#233;ponses ou forum pr&#233;c&#233;dent je ne trouve pas
( ou je cherche mal )

Si quelqu'un peut m'aider ce serait sympa
MERCI d'avance
guy

WhiteHippo · Answer

Il n'y a pas des guillemets en trop ??
a:=pchar('SAUVEGARDE BASE DE DONNEES');

Cordialement.


<HR>
Il existe 10 cat&#233;gories de personne. Ceux qui connaissent le binaire et les autres...

guy jeuniaux · Answer

Merci pour la r&#233;ponse,
Mais non avec ou sans guillemets c'est pareil.
De plus apparement il est conseill&#233; de mettre les guillemets lorsqu'il y a des espaces
dans le nom.

@+

guy

WhiteHippo · Answer

Je pense que le probl&#232;me est du au fait que l'on doit passer &#224; FindWindow et le classname de ta fenetre principale et le titre.

Ex : FindWindow(PChar('TForm1'),a); // si tu as gard&#233; le nom par d&#233;faut pour ta fiche principale.

Cordialement.


<HR>
Il existe 10 cat&#233;gories de personne. Ceux qui connaissent le binaire et les autres...

guy jeuniaux · Answer

Apparament c'est moins simple qu'il n'y parait.
J'ai essay&#233; avec ton tuyau et en simplifiant les strings : titre de la fen&#234;tre &#224; partir de laquelle je lance mon batch : (caption =SAUVEGARDE) 

a:=pchar('SAUVEGARDE'); // titre de mon batch
b:=pchar(form5.Caption);
h :=FindWindow(b,a);

Et j'ai toujours : 0

guy

WhiteHippo · Answer

Non, l&#224; tu transmets deux fois la m&#234;me chose, c'est &#224; dire deux fois le titre de la fenetre et non le titre et le nom de classe de ton application batch !!

Faut dire que j'ai peut &#234;tre pas &#233;t&#233; bien clair jusqu'&#224; pr&#233;sent 

a :=   Nom de classe  de ton programme batch 

Pour avoir le nom de classe, regarde la valeur de Application.ClassName de ton programme batch normalement 'TApplication'

b : = Titre de ton programme batch

Pour avoir le titre, regarde la valeur de Application.Title de ton programme batch  normalement le nom du projet (Par ex 'Project1' )

Ce qui donnerait comme code :

a := 'TApplication';  
b := 'Project1'; 

h :=FindWindow(b,a);

L&#224;, tu ne dois plus avoir de probl&#232;mes pour r&#233;cup&#233;rer le handle 

Cordialement.


<HR>
Il existe 10 cat&#233;gories de personne. Ceux qui connaissent le binaire et les autres...

guy jeuniaux · Answer

Merci de chercher une solution.
Mais entre les &#233;changes j'avais essay&#233; ceci ( des fois que) :

var
h:hwnd; 
a:Pchar;
beginshowmessage('Une fois la sauvegarde lanc&#233;e, r&#233;duisez la fen&#234;tre');
winexec('savedb.bat',sw_SHOW);
a:=pchar('SAUVEGARDE');// apr&#232;s avoir chang&#233; le titre du batch
h :=FindWindow(nil,a);
edit3.Text:=inttostr(h);

Et cela fonctionne.
C'est probablement le fait d'avoir des espaces dans le titre qui g&#232;ne.
Du coup je n'ai pas essay&#233; ta solution.

guy

Recuperation du HANDLE d'une fenetre

6 réponses

Votre réponse

Discussions similaires