Discussion :

[jmjmjm]

Comment faire pour utiliser %systemroot% car quand je fait

fichier:='%systemroot%\\system32\\test.txt';

Assignfile(F,fichier);

sa me fait un erreur

[JustMe]

ça dois ressembler à GetSystemDir chez microsoft

[smyley]

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;...

[jmjmjm]

escusez moi mais je ne comprend pas tout on ne pe pas utiliser %systelrot% directement?? et comment marche votre fonction??

[rsc]

escusez moi mais je ne comprend pas tout on ne pe pas utiliser %systelrot% directement??

Non !

et comment marche votre fonction??

Voici une fonction qui te renvoie le chemin + nom du fichier système :

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}

ensuite tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Fichier := GetSystemFolder + '\.....'

[Bloon]

http://castelain.developpez.com/arti...Environnement/

Bloon