maxsecurite2
Messages postés181Date d'inscriptionvendredi 3 janvier 2003StatutMembreDernière intervention 9 avril 2010
-
22 janv. 2007 à 18:46
maxsecurite2
Messages postés181Date d'inscriptionvendredi 3 janvier 2003StatutMembreDernière intervention 9 avril 2010
-
24 janv. 2007 à 11:25
Bonjour,
Je suis un débutant de Delphi je viens vraiment tout juste de commencer et je commence vraiment à aimer sa !
en revanche j'aimerais savoir comment faire pour auto copier mon exe dans le repertoire de windows par défault j'utilise comme technique sa: CopyFile('Paramstr(1)','exe.exe',false); mais sa ne fonctionne pas !!
f0xi
Messages postés4205Date d'inscriptionsamedi 16 octobre 2004StatutModérateurDernière intervention12 mars 202235 23 janv. 2007 à 09:24
var
WD : string;
begin
// on recupere le repertoire windows
WD := GetEnvironmentVariable('Windir');
// on ajoute \ a la fin si il n'y en a pas
if WD[Length(WD)] <> '\' then
WD := WD + '\';
// on ajoute le nom du fichier
WD := WD + ExtractFileName(ParamStr(0));
// on copie
CopyFile(Paramstr(0), WD, false);
end;
si c'est pour copier un fichier passé en ligne de commande sous la forme :
executable FichierSource FichierCible
on fait :
begin
if FileExists(ParamStr(1)) and (ParamStr(2) <> EmptyStr) then
CopyFile(ParamStr(1), ParamStr(2), false)
else
writeln('Le fichier '+ParamStr(1)+' n'existe pas!');
maxsecurite2
Messages postés181Date d'inscriptionvendredi 3 janvier 2003StatutMembreDernière intervention 9 avril 2010 23 janv. 2007 à 18:14
merci pour votre aide mais je comprend pas ou je met tout ces codes :s
je suis vraiment débutant en delphi je viens tout juste de commencer merci de m'aider
merci d'avance
123
Vous n’avez pas trouvé la réponse que vous recherchez ?