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 !

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

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 !

Tu peux filer du code ?

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 ...

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

Bonsoir

Pourquoi tu n'utilises pas ParamStr(0) ?

Cordialement.

---

"L'imagination est plus importante que le savoir." Albert Einstein

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 !

Oups, page rafraichie trop tard !

Cordialement.

---

"L'imagination est plus importante que le savoir." Albert Einstein

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.

---

"L'imagination est plus importante que le savoir." Albert Einstein