نام کاربری در مسیر My Documents و چگونگی تعریف به برنامه!!

[lord_viper]

میتونی بجای استفاده از pchar و تعیین طول برای اون از یه ارایه از نوع char استفاده کنی

کد:

procedure TForm1.Button1Click(Sender: TObject);
var
pid: PItemIDList;
a:array[0..256]of char;
begin
SHGetSpecialFolderLocation(form1.Handle,CSIDL_DESKTOP,pid);
SHGetPathFromIDList(pid,a);
edit1.Text:=a;
end;

موفق باشی