Directorios window.

[rauros]

Saludos a todos. Me gustaría saber como puedo usar los directorios tipo %Windows% o %root% . Sé que hay funciones en windows.dcu pero solo para algunos de los anteriores...

[droguerman]

Que es exactamente lo que deseas hacer

[rauros]

Crear directorios con CreateDirectory. Por ejemplo, si quiero poner en mis documentos una carpeta llamad mis juegos:

Código Delphi [-]
CreateDirectory(%User%+'/Mis documentos/Mis juegos');

[[seoane]]

Se me ocurre algo como esto:

Código Delphi [-]
function InsertarVariables(Str: String): String;
var
  i: Integer;
  EnvBlock, P: PChar;
begin
  Result:= Str;
  EnvBlock:= GetEnvironmentStrings;
  if EnvBlock <> nil then
  try
    with TStringList.Create do
    try
      P:= EnvBlock;
      while P^ <> #0 do
      begin
        if Pos('=',String(P)) > 1 then
          Add(String(P));
        inc(P,StrLen(P)+1);
      end;
      for i:= 0 to Count - 1 do
        Result:= StringReplace(Result,'%'+ Names[i] +'%', ValueFromIndex[i],
          [rfIgnoreCase,rfReplaceAll]);
    finally
      Free;
    end;
  finally
    FreeEnvironmentStrings(EnvBlock);
  end;
end;

// Por ejemplo
ShowMessage(InsertarVariables('%Windir%\miprograma.exe'));