Вот кодес с другого форума, из этой переменной окружения и адрес рабочего стала получите:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
SetLength(s, 1000);
windows.GetEnvironmentVariable('USERPROFILE',pchar(S),length(s));
caption:=s;
end;