معرفة مسار سطح المكتب

السلام عليكم

أخي الكريم قم بالحصول على مسار النظام

var
PWindowsDir: array [0..255] of Char;
begin
  GetWindowsDirectory(PWindowsDir,255);
  showmessage(StrPas(PWindowsDir));
end;

و قم بوضع الإختصار في المسار Documents and Settings\All Users\Desktop

و سيكون الإختصار موجودا في كل أسطح المكتب الخاصة بالمستخدمين

زيادة عن ماقاله اخي روبر هناك وحدة ShlObj.pas فيها كل ماتحتاجه من مسارات ملفات النظام وماشابه

	 
	   uses ShlObj, ActiveX;

	   {$R *.dfm}

	   function GetDesktopPath{Or what ever System Path}(Folder:Integer): String;
	   var
		 PIDL: PItemIDList;
		 Path: LPSTR;
		 AMalloc: IMalloc;
	   begin
		 Path := StrAlloc(MAX_PATH);
		 SHGetSpecialFolderLocation(Application.Handle, Folder, PIDL);
		 if SHGetPathFromIDList(PIDL, Path) then Result := Path;
		 SHGetMalloc(AMalloc);
		 AMalloc.Free(PIDL);
		 StrDispose(Path);
	   end;

	   procedure TForm1.Button1Click(Sender: TObject);
	   begin
	 label1.Caption:=GetDesktopPath(CSIDL_DESKTOP);
	   end;

والله الموفق

شكرا على الإجابات الوافية