كيف اعرف عنوان الويندوز برمجياً

تفضل اخي الكريم:

الكود التالي لمعرفة مجلد الوندوز:

var
  WinDir: PChar;
begin
  WinDir:= StrAlloc(100);
  GetWindowsDirectory(WinDir, 100);
  Label1.Caption:= WinDir;
  StrDispose(WinDir);
End;

الكود التالي لتحديد موقع برنامجك:

Var  Dir : String;
begin
 Dir := GetCurrentDir;
 Edit1.text:=Dir;
End;

تحياتي :D

السلام عليكم

ابحث عن ملفات فيها Shell Extention او SHbrowsFolder في الانترنت

Shell Extention يمكنك من استعراض جميع المجلدات الخاصة بالنظام