+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي التقنية (https://delphi4arab.net/forum/forumdisplay.php?fid=6)
+--- قسم : دلفي والتعامل مع النظام و الذاكرة (https://delphi4arab.net/forum/forumdisplay.php?fid=20)
+--- الموضوع : المسارات في دلفي (/showthread.php?tid=1950)
المسارات في دلفي - mobile - 23-04-2010
كود :
uses SHFolder;
function GetSpecialFolderPath(folder : integer) : string;
const
SHGFP_TYPE_CURRENT = 0;
var
path: array [0..MAX_PATH] of char;
begin
if SUCCEEDED(SHGetFolderPath(0,folder,0,SHGFP_TYPE_CURRENT,@path[0])) then
Result := path
else
Result := '';
end;
//RadioGroup1 OnClick
procedure TForm1.RadioGroup1Click(Sender: TObject) ;
var
index : integer;
specialFolder : integer;
begin
if RadioGroup1.ItemIndex = -1 then Exit;
index := RadioGroup1.ItemIndex;
case index of
//[Current User]\My Documents
0: specialFolder := CSIDL_PERSONAL;
//All Users\Application Data
1: specialFolder := CSIDL_COMMON_APPDATA;
//[User Specific]\Application Data
2: specialFolder := CSIDL_LOCAL_APPDATA;
//Program Files
3: specialFolder := CSIDL_PROGRAM_FILES;
//All Users\Documents
4: specialFolder := CSIDL_COMMON_DOCUMENTS;
end;
Label1.Caption := GetSpecialFolderPath(specialFolder) ;
end;المسارات في دلفي - AvimimuS - 25-04-2010
السلام عليكم
الوحدة SHFolder وفرتها دلفي لتسهل للمستخدم التعامل مع مسارات النضام
وهي تعتمد علي المكتبة shFolder.dll
ويمكن ايضا التعامل مع المسارات في دلفي بدون استعمال المكتبة:SHFolder
فهناك عدة دوال وفرتها ميكروزفت وتدعمها دلفي لتعامل مع المسارات
فلتعامل مع مسار ملف نستعمل الدالة:
PHP كود :
function ExtractFilePath(const FileName: string): string;
وهذه بعض دوال لتعامل مع بعض مسارات النضام:
PHP كود :
function GetWindowsDirectory(lpBuffer: PChar; uSize: UINT): UINT; stdcall;
function GetSystemDirectory(lpBuffer: PChar; uSize: UINT): UINT; stdcall;
function GetTempPath(nBufferLength: DWORD; lpBuffer: PChar): DWORD; stdcall;
وهدفها واضح من اسمها
مجرد اضافة ...
المسارات في دلفي - أبو معاذ - 27-04-2010
جزاك الله خيرا ،
إضافة رائعة .
المسارات في دلفي - TF6M - 29-04-2010
طريقة مختصرة , لاحظ الأمر (Set) في الـ Dos .
- يمكن أن نستفاد من المسارات المسجلة و أيضا تعريف مسارات أخرى ....
الدالة GetEnvironmentVariable , لجلب المسار المعرف من طرف النظام في قائمة الـ Set
كود :
Var
_i: Byte;
Const
EnVars :Array [0..4]Of String = (
'TEMP'
,'UserName'
,'UserProfile'
,'ProgramFiles'
,'AppData');
Begin
With MyListBox.Items Do
For _i:= 0 to High(EnVars) Do
Add(GetEnvironmentVariable(EnVars[_i]));
End;المسارات في دلفي - mobile - 02-05-2010
بارك الله فيكم جميعا على الا ضافات الرائعة وعلى المرور