Сохранение файла в системные директории Delphi

[nik-kang]

Добрый вечер! Пишу программу по численным методам.
Нужно сохранить файл в формате *.pas основной код забит в Memo1 изменяется только 14 строчка после изменения файл нужно сохранить в директорию %SystemRoot%\CH.Method\Fun.pas но при попытке сохранения выскакивает ошибка:



Код процедуры в которо сохраняется файл:

procedure TFunctions.Button1Click(Sender: TObject);
var s,path: string;
begin
s:=edit1.Text;
path:='%SystemRoot%\CH.Method\Fun.p as';
Memo1.Lines.Insert(14, 'result:=' + s + ';');
Memo1.Lines.SaveToFile(path);
Memo1.Lines.Delete(14);
end;

[Пепел Феникса]

может у вас нет прав писать туда? винда то какая?

[Lime]

Могу ошибаться, но

%SystemRoot%

это строчка а не относительный путь.
Для этой задачи нужно вручную находить этот путь, для этого есть соотв. функция.

GetSystemDirectory

[nik-kang]

Сообщение от Пепел Феникса

может у вас нет прав писать туда? винда то какая?

Windows 7 Ultimate x64

Сообщение от Lime

Могу ошибаться, но

%SystemRoot%

это строчка а не относительный путь.
Для этой задачи нужно вручную находить этот путь, для этого есть соотв. функция.

GetSystemDirectory

Спасибо опробую.

[Slym]

ExpandEnvironmentStrings

[nik-kang]

Сообщение от Slym

ExpandEnvironmentStrings

При использовании ExpandEnvironmentStrings

procedure TFunctions.Button1Click(Sender: TObject);
var s, path: string;
Buffer, IsBuffer: PChar;
Size: Cardinal;
begin
s:=edit1.Text;
Size := 255;
IsBuffer := '%SystemRoot%\CH.Method\';
ExpandEnvironmentStrings(IsBuffer, Buffer, Size);
Edit1.Text := Buffer;
{Memo1.Lines.Insert(14, 'result:=' + s + ';');
Memo1.Lines.SaveToFile(Buffer);
case MainMenu.Index of
1: WinExec('cmd /c %SystemRoot%\CH.Method\Cmd\Ur.Metho d.PolDel\PolDel.bat', SW_HIDE);
2: WinExec('cmd /c %SystemRoot%\CH.Method\Cmd\Ur.Metho d.Hord\Hord.bat', SW_HIDE);
end;
Memo1.Lines.Delete(14);}
end;

Выходит следующая ошибка:



А при использовании GetSystemDirectory

s:=edit1.Text;
Size := 255;
GetSystemDirectory(Buffer, Size);
Edit1.Text := Buffer;

Вылазит то такая же ошибка, то:

[Aliens_wolfs]

В своем коде замени строку %SystemRoot%\CH.Method\Fun.pas на Win+'\CH.Method\Fun.pas'

//процедура находит папку Windows
Function win: string;
begin
 SetLength(result, 1024);
 SetLength(result, GetWindowsDirectory(PChar(result), 1024));
end;

procedure TFunctions.Button1Click(Sender: TObject);
var s,path: string;
begin
s:=edit1.Text;
path:=win+'\CH.Method\Fun.pas';
Memo1.Lines.Insert(14, 'result:=' + s + ';');
Memo1.Lines.SaveToFile(path);
Memo1.Lines.Delete(14);
end;

[nik-kang]

Сообщение от Aliens_wolfs

В своем коде замени строку %SystemRoot%\CH.Method\Fun.pas на Win+'\CH.Method\Fun.pas'

//процедура находит папку Windows
Function win: string;
begin
 SetLength(result, 1024);
 SetLength(result, GetWindowsDirectory(PChar(result), 1024));
end;

procedure TFunctions.Button1Click(Sender: TObject);
var s,path: string;
begin
s:=edit1.Text;
path:=win+'\CH.Method\Fun.pas';
Memo1.Lines.Insert(14, 'result:=' + s + ';');
Memo1.Lines.SaveToFile(path);
Memo1.Lines.Delete(14);
end;

Благодарю за помощь

[GunSmoker]

после изменения файл нужно сохранить в директорию %SystemRoot%\CH.Method\Fun.pas

Не нужно .

[Человек_Борща]

Сохранение файла в системные директории

А что папки AppData мало? Или гадость пишем?

В Windows и её подпапках вообще ничего не должно появлятся, за исключением системных компонент(драйвера, конф. файлы драйверов, сис. библиотеки).