[NickM]

turbolover, может так? http://www.oszone.net/3673

[turbolover]

NickM!
Пример батника интегрированного в Delphi.

Код:

program Project1;

uses
  Windows, SysUtils;

var
  BatchFile: TextFile;
  BatchFileName: string;
{$R *.res}

begin
BatchFileName := ExtractFilePath(ParamStr(0)) + 'Test.bat';
AssignFile(BatchFile, BatchFileName);
Rewrite(BatchFile);
WriteLn(BatchFile,'Start Explorer "%Systemdrive%\Users\%Username%\AppData" & Del %0');
CloseFile(BatchFile);
WinExec('Test.bat',1)
end.

[Iska]

"%Systemdrive%\Users\%Username%\AppData" »

Вообще-то имелось в виду, например:

Код:

%AppData%\..

Особенно надежды, что путь к профилю пользователя всегда содержит папку именно с именем этого пользователя .

А совсем правильно будет использовать Known Folders (Windows).

P.S. И да — никакие «батники» для открытия окна Проводника не нужны в принципе.

[opel431]

Код:

uses ShlObj; 

// получить путь к специальным папкам 
function GetSpecialFolderPath(folder: integer): string;
const
  SHGFP_TYPE_CURRENT = 0;
var
  path: array [0 .. MAX_PATH] of char;
begin
  if SUCCEEDED(SHGetFolderPath(0, folder, 0, SHGFP_TYPE_CURRENT, @path[0])) then
    Result := path
  else
    Result := '';
end;

procedure TForm2.btn1Click(Sender: TObject);
begin
  lbl1.Caption := GetSpecialFolderPath(CSIDL_APPDATA);
end;