Fenetre active [Résolu]
hardouz
- Messages postés
- 199
- Date d'inscription
- jeudi 22 février 2007
- Dernière intervention
- 26 novembre 2009
- Messages postés
- 1799
- Date d'inscription
- vendredi 27 décembre 2002
- Dernière intervention
- 19 juillet 2018
A voir également:
- Active delphi
- Getforegroundwindow vb.net - Meilleures réponses
- Getforegroundwindow delphi - Meilleures réponses
- Delphi / Pascal : Activer/désactiver le proxy - CodeS SourceS - Guide
- Delphi / Pascal : Modifier un champ dans active directory et déplacement d'un pc d'une ou ver - Guide
- Delphi / Pascal : Activation/désactivation de Aero - CodeS SourceS - Guide
- Problème d'activation lors de l'installation DELPHI DS150e ✓ - Forum - Delphi / Pascal
- Activation de Delphi 7 studio professional edition. ✓ - Forum - Delphi / Pascal
6 réponses
Meilleure réponse
- Messages postés
- 76
- Date d'inscription
- mercredi 21 mars 2007
- Dernière intervention
- 13 novembre 2008
function ActiveCaption: string;
var
Handle: THandle;
Len: LongInt;
Title: string;
begin
Result := '';
Handle := GetForegroundWindow;
if Handle <> 0 then
begin
Len := GetWindowTextLength(Handle) + 1;
SetLength(Title, Len);
GetWindowText(Handle, PChar(Title), Len);
ActiveCaption := TrimRight(Title);
end;
end;
var
Handle: THandle;
Len: LongInt;
Title: string;
begin
Result := '';
Handle := GetForegroundWindow;
if Handle <> 0 then
begin
Len := GetWindowTextLength(Handle) + 1;
SetLength(Title, Len);
GetWindowText(Handle, PChar(Title), Len);
ActiveCaption := TrimRight(Title);
end;
end;
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
- Messages postés
- 1015
- Date d'inscription
- samedi 25 octobre 2003
- Dernière intervention
- 29 août 2013
- Messages postés
- 1799
- Date d'inscription
- vendredi 27 décembre 2002
- Dernière intervention
- 19 juillet 2018
Salut,
Je suppose :
+ 1 parce que GetWindowText retourne un résultat tronqué d'un caractère dans la plupart des cas => donc TrimRight pour les autres cas.
Personnellement, je prèfère utiliser un array of Char pour récupérer la valeur, ça simplifie et raccourcit le code :
var
Handle: THandle;
Title: array[0..255] of Char;
begin
Result := '';
Handle := GetForegroundWindow;
if Handle <> 0 then
begin
GetWindowText(Handle, Title, SizeOf(Title));
Result := Title;
end;
end;
Bonne prog'
Je suppose :
+ 1 parce que GetWindowText retourne un résultat tronqué d'un caractère dans la plupart des cas => donc TrimRight pour les autres cas.
Personnellement, je prèfère utiliser un array of Char pour récupérer la valeur, ça simplifie et raccourcit le code :
var
Handle: THandle;
Title: array[0..255] of Char;
begin
Result := '';
Handle := GetForegroundWindow;
if Handle <> 0 then
begin
GetWindowText(Handle, Title, SizeOf(Title));
Result := Title;
end;
end;
Bonne prog'
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.