begin // les 3 lignes suivantes... SetLastError(NO_ERROR); CreateMutex (nil, False, 'NomDeTonAppli'); if GetLastError = ERROR_ALREADY_EXISTS then Exit; // ***************************************** Application.Initialize; Application.Title := 'NomDeTonAppli'; Application.CreateForm(TForm1, Form1); Application.Run; end.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question