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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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