Récupérer titre et ExeName de TApplication depuis composant

Question

Bonjour,
juste un petit problème :'(
Chaque fois que je veux récupérer Application.Title et Application.ExeName depuis mon composant, je récupère :

Application.Title ==> 'Delphi 6';
Application.ExeName ==> 'C:\Program Files\Borland\Delphi 6\Bin\delphi32.exe';

Y'a-t-il moyen d'accéder à l'objet TApplication de l'application sur laquelle est posé le composant ? ...

Application.Title et Application.ExeName marchaient avant, mais ne marchent plus, je ne comprends pas :'(

Cordialement, Bacterius !

JulioDelphi · Answer

Tu fais F9 en debuggage ou bien tu exécutes ton application a coté une fois compilée ?

Bacterius · Answer

J'ai déjà essayé JulioDelphi.
J'ai compilé mon composant, je l'ai installé, j'ai fermé le paquet du composant, j'ai ouvert une application, j'ai posé une instance de mon compo dedans mais pareil ... mêmes valeurs.

Cordialement, Bacterius !

JulioDelphi · Answer

Tu peux filer du code ?

Bacterius · Answer

Bien sûr : constructor TWinRun.Create(AOwner: TComponent); begin inherited Create(AOwner); FAuthor := 'Bacterius'; FWinRunUser := wrCurrentUser; FWinRunState := CheckWinRun; end; procedure TWinRun.SetWinRunState(Value: Boolean); begin if Value <> FWinRunState then begin FWinRunState := Value; SetWinRun(FWinRunState); end; end; procedure TWinRun.SetWinRunUser(Value: TWinRunUser); begin if Value <> FWinRunUser then begin FWinRunUser := Value; FWinRunState := CheckWinRun; end; end; procedure TWinRun.SetWinRun(Value: Boolean); begin with TRegistry.Create do begin try case FWinRunUser of wrAllUsers: RootKey := HKEY_LOCAL_MACHINE; wrCurrentUser: RootKey := HKEY_CURRENT_USER; end; if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', False) then begin if Value then WriteString(Application.Title, Application.exeName) else DeleteValue(Application.Title); CloseKey; end; finally Free; end; end; end; function TWinRun.CheckWinRun: Boolean; begin with TRegistry.Create do begin try case WinRunUser of wrAllUsers: RootKey := HKEY_LOCAL_MACHINE; wrCurrentUser: RootKey := HKEY_CURRENT_USER; end; if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', False) then begin Result := ValueExists(Application.ExeName); CloseKey; end; finally Free; end; end; end; Lors des CheckWinRun et SetWinRun, ils renvoient toujours les mêmes valeurs erronées. Cordialement, Bacterius ! PS : esperons que l'indentation ne se défasse pas ...

JulioDelphi · Answer

Essaie avec ParamStr(0) à la place de Application.ExeName. Pour le title je vois pas encore.

WhiteHippo · Answer

Bonsoir

Pourquoi tu n'utilises pas ParamStr(0) ?

Cordialement. 
<hr />"L'imagination est plus importante que le savoir." Albert Einstein

Bacterius · Answer

J'ai déjà essayé (j'utilise tout le temps cette fonction ParamStr pour récupérer le chemin d'un executable), ça renvoie pareil ^^

Cordialement, Bacterius !

WhiteHippo · Answer

Oups, page rafraichie trop tard ! 

Cordialement. 
<hr />"L'imagination est plus importante que le savoir." Albert Einstein

WhiteHippo · Answer

Moi je serais plutôt de l'avis de JulioDelphi: 
  Tu es sur que tu as le même résultat si tu lances l'executable compilé directement (à partir de l'explorateur de fichier) sans passer par le debugger ?

Cordialement. <hr />"L'imagination est plus importante que le savoir." Albert Einstein

Bacterius · Answer

Oui, l'executable contenant le composant, même en le lancant independamment de Delphi, mêmes valeurs.

Cordialement, Bacterius !

WhiteHippo · Answer

Je vois pas pourquoi tu obtiens ça SI tu n'es pas dans le debugger ! Bug Delphi 6 ?

Cordialement. 
<hr />"L'imagination est plus importante que le savoir." Albert Einstein

Bacterius · Answer

J'en sais rien, ça marchait avant.
Je dois avoir bidouillé un truc dans les options d'environnement ...

Cordialement, Bacterius !

Bacterius · Answer

Rrah c'est encore pire maintenant ...
J'ai essayé sur un autre composant, je lui ai donnés quelques propriétés simples :

private
FMax: Integer;
FMin: Integer;

published
property Max: Integer read FMax write FMax;
property Min: Integer read FMin write FMin;

...

Juste pour tester sur un autre compo.

Et ça me dit :

Erreur Read : La propriété Max n'existe pas.
Erreur Read : La propriété Min n'existe pas.
Evidemment je viens de les inventer -_-.
Pourtant sur mon autre compo, aucun problème de ce genre.
J'ai l'impression d'être un peu détraqué.

Cordialement, Bacterius !

cs_Delphiprog · Answer

As-tu pensé à réinitialiser ou effacer les clés de registre entre temps ?

Parce que si les valeurs existent, elles sont relues à chaque fois.

May Delphi be with you !
<hr color="#008000" />Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

Bacterius · Answer

Les clés registre de Delphi ?
Je ne comprends pas ... le registre influe avec Application.Title et Application.ExeName ?

Corialement, Bacterius !

Bacterius · Answer

Tiens c'est bizarre ça ... j'ai ajouté une propriété de type String, et ça passe ...
Les propriétés Integer ne sont pas autorisées ??

Cordialement, Bacterius !

cs_Delphiprog · Answer

Mais non, pas le registre de Delphi. Qu'est-ce que tu vas chercher ?
Dans ton code, tu lis les valeurs du registre de Windows. Dans la mesure où tu lis la valeur des clés si elles existent, assures-toi qu'elles ne contiennent pas des valeurs qui auraient été faussées à un moment ou à un autre lors des exécutions antérieures.

Le comportement que tu décris à propos de ta classe de tests est plus que douteux...Pourrais-tu nous donner tout le code de la classe (interface ET implémentation) ?

May Delphi be with you !
<hr color="#008000" />Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

Bacterius · Answer

unit WinRun; interface uses Windows, Messages, SysUtils, Classes, Registry, Forms, Dialogs, Graphics; type TWinRunUser=(wrAllUsers, wrCurrentUser); type TWinRun = class(TComponent) private { Déclarations privées } FWinRunState: Boolean; FWinRunUser: TWinRunUser; FAuthor: String; procedure SetWinRun(Value: Boolean); function CheckWinRun: Boolean; procedure SetWinRunState(Value: Boolean); procedure SetWinRunUser(Value: TWinRunUser); protected { Déclarations protégées } property Author: String read FAuthor; public { Déclarations publiques } constructor Create(AOwner: TComponent); override; published { Déclarations publiées } property WinRunState: Boolean read FWinRunState write SetWinRunState; property WinRunUser: TWinRunUser read FWinRunUser write SetWinRunUser; end; implementation constructor TWinRun.Create(AOwner: TComponent); begin inherited Create(AOwner); FAuthor := 'Bacterius'; FWinRunUser := wrCurrentUser; FWinRunState := CheckWinRun; end; procedure TWinRun.SetWinRunState(Value: Boolean); begin if Value <> FWinRunState then begin FWinRunState := Value; SetWinRun(FWinRunState); end; end; procedure TWinRun.SetWinRunUser(Value: TWinRunUser); begin if Value <> FWinRunUser then begin FWinRunUser := Value; FWinRunState := CheckWinRun; end; end; procedure TWinRun.SetWinRun(Value: Boolean); begin with TRegistry.Create do begin try case FWinRunUser of wrAllUsers: RootKey := HKEY_LOCAL_MACHINE; wrCurrentUser: RootKey := HKEY_CURRENT_USER; end; if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', False) then begin if Value then WriteString(Application.Title, Application.exeName) else DeleteValue(Application.Title); CloseKey; end; finally Free; end; end; end; function TWinRun.CheckWinRun: Boolean; begin with TRegistry.Create do begin try case WinRunUser of wrAllUsers: RootKey := HKEY_LOCAL_MACHINE; wrCurrentUser: RootKey := HKEY_CURRENT_USER; end; if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', False) then begin Result := ValueExists(Application.ExeName); CloseKey; end; finally Free; end; end; end; end. Voilà. Mais je ne vois pas le problème entre ExeName et Application.Title. Ils ne sont pas influencés par le registre ? Je ne vois pas du tout ^^' Cordialement, Bacterius !

Guillemouze · Answer

j'ai pas regardé ton code en profondeur, mais essaye peut etre de desactiver tes traitements si tu as csDesingning in ComponentState .

PS : 
function TApplication.GetExeName: string;
begin
  Result := ParamStr(0);
end;

comme ca, c'est clair

Guillemouze · Answer

petit astuce aussi, rien que pour toi bacterius ;)

const
  WRU_ROOTKEY : array[TWinRunUser] of HKEY = (HKEY_LOCAL_MACHINE, HKEY_CURRENT_USER);

...
RootKey :=  WRU_ROOTKEY[WinRunUser];

Bacterius · Answer

Ah ouais ça permet d'éviter un case..of.

Merci pour ce tuyau Guillemouze ^^ :)

Cordialement, Bacterius !

JulioDelphi · Answer

Et sinon ? Trouvé ou pas !?

cs_Kenavo · Answer

Salut Bacterius,

Pense à effacer dans l'inspecteur d'objet les valeurs de WinRunState et WinRunUser, au moment de la compilation. 
Ben ouais, il y a un truc bizarre : 
En pas à pas, on passe dans le constructeur de l'objet, la propriété semble bien initialisée, mais quand on retourne dans la fiche principale  (FormCreate si elle existe) elle a repris la valeur qu'elle a dans l'inspecteur d'objet ?????

avec Delphi7 en tous cas !

Ken@vo




 



Code, Code, Codec !

cs_Kenavo · Answer

Si tu initialises n'importe comment ces propriétés dans l'inspecteur d'objet, en tapant par exemple "Je ne suis qu'un misérable vermisseau rampant sous les impériales sandales de Delphiprog", ben c'est ça que tu vas récupérer quand tu voudras accéder à ces propriétés (WinRun1.WinRunState, par exemple) dans ton programme. 

Étonnant, non ?

Ken@vo




 



Code, Code, Codec !

Bacterius · Answer

Ah merci Kenavo je vais checker ça demain :)
Merci, c'est étrange en effet ...

Cordialement, Bacterius !

Récupérer titre et ExeName de TApplication depuis composant

25 réponses

Votre réponse

Discussions similaires