begin process at 2013 05 25 11:35:09
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Delphi

 > 

Archives

 > 

Fichier / Disque

 > 

Protection des applications et utilisation du registre au lieu d'un fichier INI


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Protection des applications et utilisation du registre au lieu d'un fichier INI

mercredi 10 avril 2002 à 18:37:35 | Protection des applications et utilisation du registre au lieu d'un fichier INI

apz

Salut,
Pour proteger mon appli. j'ai utilisé un fichier ini
(Limite d'utilisation)


le code pour ecrire :

// var publique

fEmplacement : string;
Str0, Str1 : string;

procedure TMainForm.FormCreate(Sender: TObject);
Var
fIniFile : TIniFile;
begin

{-------- Emplacement du fichier ini --------}
fEmplacement:= ExtractFilePath(Application.ExeName) + 'Control.ini';

{-------- Initialisation du ini --------}
fIniFile:= TIniFile.Create(fEmplacement);

{-------- Lis dans le ini --------}
Str1:= fIniFile.ReadString('Nombre','Nbre Utilisation', '');
Str0:='2';
{-------- Affiche la réponse --------}
if Str1>= Str0 then
begin
ShowMessage(' c''est terminé..! vellez vous enregistrer');
Close;
end
else
ShowMessage('Il vous reste '+IntToStr(StrToInt(Str0)-StrToInt(Str1))+' essais ?!');

end;

///////////////////////////////////////////////////////

pour ecrire :

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
var
fIniFile : TIniFile;
begin
{-------- Initialisation du ini --------}
fIniFile:= TIniFile.Create(fEmplacement);

{-------- Écrit dans le fichier --------}
fIniFile.WriteString('Nombre', 'Nbre Utilisation', IntToStr(StrToInt(Str1)+1));

end;
///////////////////////////////////////////

Que devient ce code dans le cas ou je decide d'utiliser le registre pour proteger mon appli ?
mercredi 10 avril 2002 à 18:49:58 | Re : Protection des applications et utilisation du registre au lieu d'un fichier INI

Gysmo

Ceci pourrait t'aider :
UPS | Registre




-------------------------------
Réponse au message :
-------------------------------

Salut,
Pour proteger mon appli. j'ai utilisé un fichier ini
(Limite d'utilisation)


le code pour ecrire :

// var publique

fEmplacement : string;
Str0, Str1 : string;

procedure TMainForm.FormCreate(Sender: TObject);
Var
fIniFile : TIniFile;
begin

{-------- Emplacement du fichier ini --------}
fEmplacement:= ExtractFilePath(Application.ExeName) + 'Control.ini';

{-------- Initialisation du ini --------}
fIniFile:= TIniFile.Create(fEmplacement);

{-------- Lis dans le ini --------}
Str1:= fIniFile.ReadString('Nombre','Nbre Utilisation', '');
Str0:='2';
{-------- Affiche la réponse --------}
if Str1>= Str0 then
begin
ShowMessage(' c''est terminé..! vellez vous enregistrer');
Close;
end
else
ShowMessage('Il vous reste '+IntToStr(StrToInt(Str0)-StrToInt(Str1))+' essais ?!');

end;

///////////////////////////////////////////////////////

pour ecrire :

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
var
fIniFile : TIniFile;
begin
{-------- Initialisation du ini --------}
fIniFile:= TIniFile.Create(fEmplacement);

{-------- Écrit dans le fichier --------}
fIniFile.WriteString('Nombre', 'Nbre Utilisation', IntToStr(StrToInt(Str1)+1));

end;
///////////////////////////////////////////

Que devient ce code dans le cas ou je decide d'utiliser le registre pour proteger mon appli ?


Cette discussion est classée dans : fichier, ini, utilisation, str1, finifile


Répondre à ce message

Sujets en rapport avec ce message

protection de son appli [ par apz ] Salut,Pour proteger mon appli. j'ai utilisé un fichier ini (Limite d'utilisation)le code pour ecrire :// var publique fEmplacement : string;Str0, Str fichier .ini surchargé ?? [ par finipe ] Bonjour à tous. J'ai réalisé un petit prog utilisant des fichiers .ini pour conserver des infos. Tout fonctionne très bien, sauf depuis hier, alors qu lecture et écriture dans un fichier .ini [ par finipe ] Bonjour à tous !Je voudrais savoir comment faire pour : - écrire dans un .ini tous les items d'une listbox, de manière à pouvoir les récupérer en lisa fichier .ini [ par lanosic ] Bonjour, j'aimerais savoir comment enregistrer des donnée dans un fichier ini et comment les utiliser?Merci!Bonne journée a tous! Fichier ini [ par ak47 ] Salut!Je voudrais savoir si il est possible d'utiliser les .ini avec delphi (par exemple, si je fait une application et que je veux qu'elle aie un fic creer un fichier ini [ par snakefinger ] salut a tous ya t'il une commande en delphi pour creer un fichier ini.j'ai trouver le code dans visual basic mais je cherche en delphi .si quelq'un a fichier ini pour install QuickTime sur Win [ par didierauss ] Bonjour a tous,Je suis tous nouveau sur le site et avant toute chose je ne suis pas informaticien et je connais rien à la programmation, je suis graph Commentaire dans fichier ini [ par padsou ] Voila j'ai cherché de partout, dans l'aide de delphi, sur le net mais je n'ai pas trouvé comment mettre un commentaire dans un fichier ini. Comment pu Pb de lecture d'1 fichier .ini [ par teefun ] Salut à tous Je suis moyen en programmation avec delphi, je m'en sortait jusqu'au moment ou il fallait sauvegarder les paramètres de mon application , random+fichier ini [ par Enkorr ] Bonjour à tous.Voilà, j'ais un problème mais impossible de trouver la solution :(J'ais 32 tedit (dans une form2) que j'enregistre dans un fichier ini.


Nos sponsors


Sondage...

CalendriCode

Mai 2013
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Photothèque

A découvrir



 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,919 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales