%userprofile%

[Painkiller_13]

Как перевести такую строку %USERPROFILE%, в нормальный вид в DELPHI
чтоб воспринимал как путь

[Serge_Bliznykov]

вот как получить все переменные среды (из DelphiWorld)

procedure GetEnvironmentStringList(ss:TStrings);
{Переменные среды}
var
  ptr: PChar;
  s: string;
  Done: boolean;
begin
  ss.Clear;
  s:='';
  Done:=FALSE;
  ptr:=windows.GetEnvironmentStrings;
  while Done=false do begin
    if ptr^=#0 then begin
      inc(ptr);
      if ptr^=#0 then Done:=TRUE
      else ss.Add(s);
      s:=ptr^;
    end else s:=s+ptr^;
    inc(ptr);
  end;
end;

дальше самостоятельно разберётесь?..

[GunSmoker]

Интересует именно разворот переменной окружения или нужно просто узнать путь к профилю?

[Plexdeath]

uses ShlObj;

function GetSpecialPath(CSIDL: word): string;
var s: string;
begin
SetLength(s, MAX_PATH);
if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, true)
then s := '';
result := PChar(s);
end;

Событие на кнопку передаем название пути в переменную put

var
put : string;
begin
put := GetSpecialPath(CSIDL_PROFILE); // в твоем случае это //CSIDL_PROFILE
end;

Событие на кнопку передаем название пути в label

begin
label1.caption := GetSpecialPath(CSIDL_PROFILE); // в твоем случае это //CSIDL_PROFILE
end;

Подробная статья здесь

далее обрабатываем путь по вашему желанию

[Painkiller_13]

Спасибо как узнавать путь я разобрался как его использовать в функии например удалении например если я хочу удалить файл 123.txt которий находиться C:\Documents and Settings\username
как мне использовать то значение которое я получил?

[GunSmoker]

Есть мнение, что к полученному значению надо пристыковать имя файла и результат передать в функцию удаления файла.

[Plexdeath]

Удаление файла используя label

Код:

begin
label1.Caption := GetSpecialPath(CSIDL_PROFILE);
if DeleteFile(label1.caption+'\123.txt ') then
ShowMessage('Файл успешно удален!')
else
Showmessage ('Ошибка удаления файла');

Удаления файла используя переменную

Код:

var
put : string;
begin
put := GetSpecialPath(CSIDL_PROFILE);
if DeleteFile(put+'\123.txt') then
ShowMessage('Файл успешно удален!')
else
Showmessage ('Ошибка удаления файла');