Ptit problème de Handle

Résolu
Signaler
-
 Utilisateur anonyme -
Salut à tous

Procedure maprocedure;

var
line : string;
endline : string;
Hand: integer ;
begin
line:=edit1.text;
if Copy(line, 1, Pos('|', line)-1 ) = 'ferme' then
begin
endline:=Copy(line, Pos('|', line)+1, Length(line));
Hand := 0;
Hand := FindWindow(endline,nil );
if Hand > 0 then
PostMessage( Hand, WM_CLOSE, 0, 0 );


end;
end;

Lors de la compil delphi me signale l'erreur suivante [Error] Unit1.pas(53): Incompatible types: 'String' and 'PAnsiChar' pour la ligne soulignée.

Décidément Delphi me fait des miseres aujourd'hui

2 réponses

Messages postés
702
Date d'inscription
vendredi 21 mars 2003
Statut
Membre
Dernière intervention
1 octobre 2009
4
Salut,



Petite misère !

Il suufit de transtyper ta chaine




Hand := FindWindow(PAinsiChar(endline),nil);



De plus,


Hand := 0;

ne sert à rien, la fonction FindWindow revoie un handle nul si elle ne trouve pas la fenête.





Ken@vo

<hr size="2" width="100%">Code, Code, Codec !

[%3C/body ]

Tu m'as devancé d'un chouillat lol

procedure TForm1.Button2Click(Sender: TObject);
var
line : string;
endline : string;
Hand: hwnd ;
begin
line:=edit1.text;
if Copy(line, 1, Pos('|', line)-1 ) = 'ferme' then
begin
endline:=Copy(line, Pos('|', line)+1, Length(line));
Hand := 0;
Hand := FindWindow(pchar(endline),nil );
if Hand > 0 then
PostMessage( Hand, WM_CLOSE, 0, 0 );


end;
end;