!!! Enregistrer un chemin UNIQUEMENT à la 1ère utilisation
floherz
Messages postés1Date d'inscriptionjeudi 25 septembre 2003StatutMembreDernière intervention 3 mars 2004
-
3 mars 2004 à 18:35
JulioDelphi
Messages postés2226Date d'inscriptiondimanche 5 octobre 2003StatutMembreDernière intervention18 novembre 2010
-
5 mars 2004 à 00:07
Bonjour
Je développe un lecteur et gestionnaire de .mp3.
J'aimerais, à la TOUTE PREMIERE utilisation (et uniquement à la première utilisation), afficher une feuille avec une editbox et un bouton.
Dans l'editbox il s'agirait de rentrer le chemin du dossier où sont stockés tous les MP3. Le bouton validerait ce chemin et il serait valable après pour lire tous les MP3.
A la deuxième utilisation, et les suivantes, cette feuille n'apparaîtra plus.
On m'a parlé de manipuler un fichier .ini (pour écrire le chemin du dossier) ou d'aller dans la registry mais je ne m'y retrouve pas.
TheShAmAn
Messages postés148Date d'inscriptionlundi 3 février 2003StatutMembreDernière intervention 1 février 2006 4 mars 2004 à 10:43
bah tu pourrais po voir ca avec ton INSTALL??? lorske tu demande d'installer ton soft... tu leur demande de sélectionner un rep ou vont etre les musik...
Mais bon... c de manipuler un FICHIER.INI ki est la meilleur solution. Fo juste ke tu en créé un ;)
cs_mike255
Messages postés120Date d'inscriptionmercredi 14 août 2002StatutMembreDernière intervention26 mai 2007 4 mars 2004 à 21:51
Ajoute dans tes Uses l'unité IniFiles
Utilise les fonctions de cette unité pour ecrire et lire dans un fichier Ini. Regarde l'aide pour TIniFile
Pour créer ton fichier Ini :
var MonFichierIni : TIniFile;
begin
MonFichierIni := TIniFile.Create(Application.GetNamePath+'monini.ini');
end;
Si tu veux executer la boite de dialogue qu'un seule fois tu peux simplement lire une variable dans le fichier ini qui sera 0 si c'est la premiere fois (la fonction qui permet de lire une valeur prend comme parametre une valeur par defaut) . Tu n'auras donc qu'à mettre ensuite cette variable à 1
JulioDelphi
Messages postés2226Date d'inscriptiondimanche 5 octobre 2003StatutMembreDernière intervention18 novembre 201014 5 mars 2004 à 00:07
hello ;)
et si tu veux utiliser la base de registre (ce ke je prefere 872561 fois) :
ds les uses : Registry, puis mettre :
var
reg: TRegistry;
DossierDesMp3: string;
en variable globale (au dessus de implementation)
dans le OnCreate de ta Form :
procedure TFormX.FormCreate(Sender: TObject);
begin
reg := TRegistry.Create;
with reg do
begin
RootKey := HKEY_CURRENT_USER;
OpenKey('Software/XXXXXXXXX/', true);
if not ValueExists('CheminDesMP3') then <FAIRE L ACTION SI C LA PREMIERE FOIS>
else
DossierDesMp3 := ReadString('CheminDesMP3');
Free;
end;
end;
...
remplacer XXXXXXX par le nom de ton appli ou ton pseudo ou meme les deux (ex: 'Software/Pseudo/Application')
replacer <...> par la procedure ki fait choisir le chemin (avec un simple edit par exemple).
DossierDesMp3 contient le dossier si ce n'est pas la premiere execution, sinon faire pour la selection du dossier avec un imputbox par exemple :
...
begin
while DossierDesMp3='' do DossierDesMp3 := InputBox('Entrez le chemin','Celui de vos MP3',DossierDesMp3);
reg := TRegistry.create;
with reg do
begin
RootKey := HKEY_CURRENT_USER;
OpenKey('Sofware/XXXXXXXX',true);
WriteString('CheminDesMP3', DossierDesMp3);
Free;
end;
end;
voila ça semble plus compliké ke le .ini mais c'est que la j'ai deja mis le code pour tout recup :D je ne l'ai pas testé mais si ya erreur, tu devrais t'en sortir (oubli de qqchose peut etre), sinon reposte ;p