restaurer une appli du tray

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : restaurer une appli du tray

endemyon

Bonjour, voila mon probleme :
mon appli est minimalisée dans le tray icon. Je voudrai que lorsque l'on essai de relancer une deuxième fois l'application, l'application ne se relance pas mais que l'odre soit donné à l'appli minimalisée dans le tray d'apparaitre au premier plan:
mon code pour le moment est :

Code :

begin
SetLastError(NO_ERROR);
CreateMutex(nil, False, 'MonAppli.exe');
if GetLastError = ERROR_ALREADY_EXISTS
then Application.BringToFront//ici il faudrait dire à l'appli de se
//déminimaliser du tray et d'apparaitre au premier plan
else
begin
Application.Initialize;
Application.CreateForm(TFMonapplmi, FMonappli);
Application.Run;
end;
end.

Message édité par endemyon le 28-09-2004 à 11:37:40

---------------
Mes photos : http://500px.com/endemyon

Publicité

lsdYoYo

gravity powered

Ton problème est que dans la ligne "Application.BringToFront", la variable "Application" fait référence à la seconde appli qui vient d'être relancée et non celle qui est déjà chargée et planquée dans le SysTray.
Il faut que tu :
- obtiennes le "Handle" de ton appli déjà lancée. Regarde "FindWindow()" avec le titre de ton appli, mais attention tu risques de retomber encore sur la seconde appli ! Il faudrait lui attribuer un titre qu'après cette première étape passée (Application.Title = "" / FindWindow(Appli_Title) / Application.Title = Appli_Title). Il doit exister d'autres méthodes plus simples et plus sûres.
- réaffiches ton appli au premier plan avec SetForegroundWindow().
Note : FindWindow() et SetForegroundWindow() sont des fonctions de l'API Windows.
(je ne peux pas trop entrer dans les détails, je ne connais pas Delphi mais C++Builder).

Message édité par lsdYoYo le 28-09-2004 à 12:08:39

endemyon

Merci, ça marche avec ce code.

Code :

begin
SetLastError(NO_ERROR);
CreateMutex(nil, False, 'MyApp.exe');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
application.Title:='';
handle:=findWindow(nil,'MyApp');
application.title:= 'MyApp.exe';
ShowWindow(Handle, SW_RESTORE);
end
else
begin
Application.Initialize;
Application.CreateForm(TFMyApp, FMyApp);
Application.Run;
end;
end.

---------------
Mes photos : http://500px.com/endemyon

FORUM HardWare.fr

Programmation

Delphi/Pascal

restaurer une appli du tray

Sujets relatifs
Visual Studio 2003 et appli IIS sur Windows 2003 Server	[HTML] Conseils look & feel pour une appli manager
Plantage appli perl/tk lors d'une boucle ?	Partager des données entre plusieurs appli-web
[VC++] Changer le curseur au lancement d'une appli (busy)	faire une barre de progression pour chargement appli[Applet]
detecter la fin dune appli win32	[VC++6] Comment enregistrer une appli sous Windows? (association, etc)
[JAVA] Récupérer le répertoire d'où est lancé l'appli	[Delphi] Récupérer les infos affichées par une autre appli
Plus de sujets relatifs à : restaurer une appli du tray

Page générée en 0.038 secondes