یه 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;
+
نوشته شده در سه شنبه ششم شهریور 1386ساعت 16:4 توسط علی دانشمند
|
