Comment faire pour effacer l'ATOM

Bonjour a tous,
En voulant écrire cette procédure, je suis resté bloqué
Comment faire pour me débloquer SVP...
Je suis en Delphi6 Enterprise

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure Tf_Valider.FormCreate(Sender: TObject); var atom: Integer; begin if GlobalFindAtom('MINHA STRING') = 0 then atom := GlobalAddAtom('MINHA STRING') else begin MessageDlg('L''application MADEIRAS est déjà en EXECUTION !!', mtWarning, [mbOK], 0); Halt; end; end ;

---

Et

Code:

---

1 2 3 4 5 6 7 8

procedure Tf_Valider.dxb_quitterClick(Sender: TObject); var atom: Integer; begin GlobalDeleteAtom(atom);   Application.Terminate; end;

---

Là je n’arrive plus a démarrer mon application, il donne ça !!!!
===> Opération annulée

Merci de votre aide a tous.
LF

Salut

atom est une variable locale. Tu perds donc sa valeur en quittant le Create.

Utilise une variable globale. ;)

@+ Claudius

OUI,

Mais mon problème c est que je suis bloqué,
Comment faire pour me débloquer maintenant
(Opération annulée)
Je n’est aucune idée comment procéder, quelqu’un peut m’aider SVP

LF

Des que j essaie de lancer l’application, j’obtient
Operation annulée….

Tu n'as plus qu'à rebooter et faire la modif à Claudius :mrgreen:.

Sinon, utilise plutôt un mutex qui ne vivra que pendant la durée de l'application.

Re,

Pour le mutex tu as un exemple dans la Faq: Comment n'instancier qu'une seule fois un programme ?

@+

A tous, bonjour,

Comme suggérer, dont je vous en remercie,
j’ai procéder a la modif comme stipuler dans la page
http://delphi.developpez.com/faq/?pa...tion#1instance
comme suit

Code:

---

1 2 3 4 5 6

program Mad;   uses Windows, Forms, U_saisie_grume.... ...

---

ET

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

{$R *.res} var H : THandle; Erreur: Integer; begin SetLastError(NO_ERROR); H := CreateMutex (nil, False, 'Nom de l application'); Erreur := GetLastError; if ( Erreur = ERROR_ALREADY_EXISTS ) or ( Erreur = ERROR_ACCESS_DENIED ) then Exit;   Application.Initialize; Application.CreateForm(Tf_Valider, f_Valider); Application.Run; CloseHandle(H); end.

---

Et en lançant l’application, j’ai de nouveau
('Opération annulée'. Process stopped)...

merci pour toutes vs idées...

LF

oups, sorry

Code:

---

H := CreateMutex (nil, False, 'Nom de l application');

---

correction

Code:

---

H := CreateMutex (nil, False, 'Mad');

---

Mais toujours je n’y accède pas.....

SVP

Quelqu'un sait me dire comment je delete ce fichu ATOM

As-tu rebooter ta machine, comme te la conseillé Andnotor ?

Mais également supprimer le FindAtom, puisque tu passes par un Mutex maintenant ?

Oui, meme apres reboote toujour

Opération annulée et il bloque là

Cl@udius,
quand tu dis (supprimer le FindAtom)
Est-ce que ce code est correcte? si non merci de ton aide,
Parce que là je rame...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

{$R *.res} var H : THandle; Erreur: Integer; atom: Integer; begin GlobalDeleteAtom(atom); SetLastError(NO_ERROR); H := CreateMutex (nil, False, 'Mad'); Erreur := GetLastError; if ( Erreur = ERROR_ALREADY_EXISTS ) or ( Erreur = ERROR_ACCESS_DENIED ) then Exit; Application.Initialize; Application.CreateForm(Tf_Valider, f_Valider); Application.Run; CloseHandle(H); end.

---

merci de ton aide.
LF

opération annulée vient d'ailleur...
rien à voir avec l'atom
Écrire ceci n'a aucun sens puisque atom n'est pas initialisé

Code:

---

1 2 3 4 5 6 7

var H : THandle; Erreur: Integer; atom: Integer; begin GlobalDeleteAtom(atom);

---

Fait afficher les break-points du projet CTRL+ALT+B
et efface tout les point d'arrêt du programme.

Est-ce que l'application démarre si Delphi est fermé?

Bonjour Eric,

Ne démarre pas NON plus même avec Delphi fermer,
Tiens ça je n’avait pas pensée, de fermer Delphi, mais bon je suis toujours au même point.
Mais par contre que ça pouvait ne pas être de l’Atom j’ai commencé à douter de ça, ou serait l’erreur ??? P-c-q là je bloque…

Je vérifie les break-points...

@+
LF

Il n’existe pas de break-points, la liste est vide !!!!

Bonjour à tous,
Le week-end a été bon….

Il n’y a pas une âme qui pourrait m’aider sur ce problème
Là je galère sérieusement…
C’est ce msg (Opération annulée) qui bloque mon Application

LF

Voici le msg qui apparaît...
(Madeiras) est le nom de l’application

Est-ce qu'on peut voir toutes les lignes de code entre
Program Madeiras
et
{$R *.RES}

En faite, je viens de retrouver un problème que j'ai expérimenté ici.

C'était un peu louintain dans ma tête et je vous le soumet ici.
(ça n'a peut-être aucun lien avec ton problème)

Avec mon delphi 5 ici, impossible de changer Application.Title dans
une fonction et/ou procedure.

Le compilateur refuse de compiler.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Program Test   use ....   {$R *.RES}   //procedure PeutImporteLeNom(PeutImporteLeNomICIAUSSI:string); //le compilateur refuse de compiler (D5) procedure ChangeTitle(s:string); begin Application.Title:=s; // Si on met cette ligne en commentaire, pas de probleme!?! end;   Begin Application.Initialize; ChangeTitle('TESTBidon'); Application.CreateForm(TfrmMain, frmMain); Application.Run; End.

---

Que ce passe-t-il avec une autre version Delphi avec ce code?
Est-ce qu'on obtient le Opération Annulée de 810mcu?
si quelqu'un peu expliquer pourquoi Delphi refuse de le faire...

Comme je dis, peut-être aucun lien avec le problème de 810mcu....

Bonjour a tous,

Pour qui ça peut aider,

J’ai trouvé une astuce qui a fonctionné, peut être pas trop catholique mais
Ça due être comme ça, au final j’ai résolu mon problème.

1. Restaurer le system a une date précédant l’exécution
2. Facultatif, effacer l’EXE
3. re-compiler avec Delphi

Voila ce que j’ai fait, est ça marche

Merci a vous tous.
LF

Yop !

Citation:

---

Envoyé par Eric Boisvert

Que ce passe-t-il avec une autre version Delphi avec ce code ?

---

D7 PE :Compile impec, mais impossible d'exécuter (Menu "Exécuter", "Exécuter F9" est grisé...) Avec ta ligne à souci en commentaire, ça s'exécute.

Citation:

---

Envoyé par Eric Boisvert

Est-ce qu'on obtient le Opération Annulée de 810mcu ?

---

Non, rien à voir, àmha.

Citation:

---

Envoyé par Eric Boisvert

si quelqu'un peu expliquer pourquoi Delphi refuse de le faire...

---

Il doit s'embrouiller qqpart, car si je veux "enregistrer le projet sous...", je gagne :

Citation:

---

Erreur dans le module Project1 : L'appel à Application.CreateForm est manquant ou incorrect.

---

Solution :

1. mettre la ligne en commentaires ;
2. "enregistrer le projet sous..." ;
3. décommenter la ligne ;
4. compiler ;
5. aller dans le dossier d'enregistrement, où l'on va trouver un magnifique .exe qui fonctionne as expected, ie, Application.Title est bien changé !

Valà,