..: رقص دانش :..

تعیین مسیر Desktop

یه Button روی فرم بذارید و این دستورات رو بنویسید .

procedure TForm1.Button1Click(Sender: TObject);
var
pid1: PitemIDList;
buf: Array[0..Max_PATH] of char;
begin
if Succeeded(ShGetSpecialFolderLocation(Handle,CSIDL_DESKTOP,pid1)) then
begin
if ShGetPathfromIDList(pid1,buf) then ShowMessage(buf) ;
CoTaskMemFree(pid1);
end;
end;

+ نوشته شده در چهاردهم بهمن 1385ساعت توسط حسین |

فهرست اصلي

صفحه نخست
پست الكترونيك
آرشيو مطالب

آرشيو مطالب