[deathor]

Люблю ентот форум! Сам спрашиваю - сам отвечаю! =)

На счет перегона строчки в норм вид...

Делается енто вот так:

Код:

function RunMacro(const Macro: string): string;
var
  P: array[0..4096] of char;
begin
   Result := Macro;
   ExpandEnvironmentStrings( PChar( Result ), P, SizeOf( P ) );
   Result := P;
end;

// вставляем в любую процедуру...
ShowMessage( RunMacro( a ) );

вместо "а" вставляем интересующую нас строку... (например: %userprofile%\cookie)