program Mad; uses Windows, Forms, U_saisie_grume.... ...
{$R *.res} var H : THandle; Erreur: Integer; begin 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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionvar //Vaiable globale. Atom : word; ... initialization 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; finalization GlobalDeleteAtom(Atom); END.