- Charte d'utilisation de Codes Sources
- Charte d'utilisation de Codes-Sources -- Gestion de communauté
- Charte de CommentCaMarche.net - Conseils d'écriture
- Charte de Codes-SourceS -- Neutralité
- Charte d'utilisation de CodeS-SourceS - Aspects légaux
- Charte d'utilisation de CodeS-sourceS-- Respect d'autrui
Fenetre active [Résolu]
hardouz
- 22 nov. 2007 à 10:43
- 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:
- Fenetre active
- Capturer la fenetre active et la mettre dans un fichier - Codes sources - Visual Basic / VB.NET (Graphique)
- Lister les fenêtres actives *** - Codes sources - Visual Basic / VB.NET (Système)
- Masquer/afficher/fermer les fenetres actives - Codes sources - Visual Basic / VB.NET (API)
- Whois et whowas dans la fenetre active - Codes sources - IRC (AddOns)
- Lister les fenetres actives windows - Codes sources - Visual Basic / VB.NET (Divers)
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;
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 88 internautes ce mois-ci
- Messages postés
- 1015
- Date d'inscription
- samedi 25 octobre 2003
- Dernière intervention
- 29 août 2013
- Messages postés
- 199
- Date d'inscription
- jeudi 22 février 2007
- Dernière intervention
- 26 novembre 2009
- Messages postés
- 199
- Date d'inscription
- jeudi 22 février 2007
- Dernière intervention
- 26 novembre 2009
- 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
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.