Salut , je me demandais comment est-ce que l´on peut faire pour que l´on ne puisse ouvrir une application de 10 fois par exemple.

Si c´est avec le registre merci de me le dire et si vous savé si vous pouvez me donner un exemple.

à tous et bon Noël !

en vb, il y a un objet qui s´appelle app avec une propriété previousinstance il y a peut-être la même chose en delphi.

sinon il faut utiliser ce qu´on appelle un mutex avec l´API.

mais surtout pas le registre, car si tu mets une clef dedans disans que le logiciel tourne, alors au cas ou il s´éteind mal, la clef reste ( sauf à utiliser une clef volatile, mais je ne sais pas si elle est partagé par différente application ( je n´ai jamais essayé, mais c´est très interessant comme idée, ça serait plus simple que l´aure méthode... tiens je testerai))).

bon, pour le mutex, cherche, sinon je ( ou qqn d´autre) posterai plus tard.

dnob, à mon avis Nico parle d´un nombre de lancements maxi d´une appli - Pas du nombre d´instances simultanées ( un peu style Trial Version).
Dans ce cas, oui Nico tu peux utiliser la base de registres.

Dans ton FormCreate, tu vas incrémenter ton compteur et si ce compteur dépasse une certaine valeur ( 10 en l´occurence), tu fermes l´appli.

j´ai une deuxième question :
Voilà :
J´ai décidé de passer pas un fichier ini ( pas pour de vrai pour m´entrenner ) : donc je marque sa :

procedure TForm1.Button1Click(Sender: TObject);
var FIni:TiniFile;
begin

FIni:=TiniFile.Create(ExtractFilePath(Application.
ExeName)+´Licence.ini´);
FIni.WriteString(´Licence´,´Nombres d´´ouvertures´,*********);
Fini.Free;

et donc je ne trouve pas quoi mettre a la place de ******** : sachant que je veut que quand on clique sa rajoute 1 à ce qu´il y a déja dans la valeur du ini :

Ex : du fichier ini avnt cliquage :

[Licence]
Mombre d´ouvertures=1

Après cliquage :

[Licence]
Mombre d´ouvertures=2

Encore après cliquage :

[Licence]
Mombre d´ouvertures=3

Enf fait comme j´ai dit sa rajoute 1 a ce qu´il y avait merci de m´expliquez !

à tous et à Technix59 !

SA doit être tout con mais quand on est débutant c tout dur !

Voici le code Nico / Les explications nécessaires sont dans le source en commentaires.
Tu pourras remarquer que l´on fait de superbes choses via le bloc WITH. Ici on utilise la classe TIniFile sans déclarer de variable de ce type.

procedure TForm1.FormCreate(Sender: TObject);
var
nbOuvertures: Byte;
begin
WITH
TIniFile.Create(ExtractFilePath(Application.ExeNam
e)+´Licence.ini´) DO
TRY
/ /Pour l´ouverture, on met par défaut à 0 ce qui signifie
/ /que c´est le 1er lancement de l´appli
/ /La valeur par défaut est la valeur que prendra la variable si
/ /La section / ident n´existe pas autrement dit le fichier INI
/ /n´existe pas encore
nbOuvertures:= ReadInteger(´Licence´, ´Nombre d´´ouvertures´, 0);
Inc(nbOuvertures);
/ /On incrément le nombre de lancements et l´on écrit
Label1.Caption:= ´Application lancée ´ + IntToStr(nbOuvertures) + ´ fois´;
WriteInteger(´Licence´, ´Nombre d´´ouvertures´, nbOuvertures);
FINALLY
Free;
END;
end;

encore encore une fois .

Pitite question par quoi se traduit WITH ?

AVEC