Comment faire pour utiliser %systemroot% car quand je fait
fichier:='%systemroot%\\system32\\test.txt';
Assignfile(F,fichier);
sa me fait un erreur
Comment faire pour utiliser %systemroot% car quand je fait
fichier:='%systemroot%\\system32\\test.txt';
Assignfile(F,fichier);
sa me fait un erreur
ça dois ressembler à GetSystemDir chez microsoft
Dans l'unité Windows
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 function GetSystemDirectory(lpBuffer: PChar; uSize: UINT): UINT; stdcall;... ou function GetWindowsDirectory(lpBuffer: PChar; uSize: UINT): UINT; stdcall;...
escusez moi mais je ne comprend pas tout on ne pe pas utiliser %systelrot% directement?? et comment marche votre fonction??
Non !Envoyé par jmjmjm
Voici une fonction qui te renvoie le chemin + nom du fichier système :Envoyé par jmjmjm
ensuite tu fais
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 function GetSystemFolder : String; var Dossier: array [0..MAX_PATH] of Char; begin Result := ''; if GetSystemDirectory (Dossier, SizeOf (Dossier)) <> 0 then Result := String (Dossier); end;{function GetSystemFolder}
Code : Sélectionner tout - Visualiser dans une fenêtre à part Fichier := GetSystemFolder + '\.....'
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager