• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 8 رای - 3.25 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: دایرکتوری سیستم عامل
حالت موضوعی
#1
یک تابع برای گرفتن دایرکتوری سیستم عامل:

کد:
procedure TForm1.Button5Click(Sender: TObject);
  function GetSystemDirectory : String;
  var
     pcSystemDirectory : PChar;
     dwSDSize          : DWORD;
  begin
     dwSDSize := MAX_PATH + 1;
     GetMem( pcSystemDirectory, dwSDSize );
     try
        if Windows.GetSystemDirectory( pcSystemDirectory, dwSDSize ) <> 0 then
           Result := pcSystemDirectory;
     finally
        FreeMem( pcSystemDirectory );
     end;
  end;
begin
   Label1.Caption:=GetSystemDirectory;
end;
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  بدست اوردن لیست درایورهای موجود بر روی سیستم توسط API (دلفی) Amin_Mansouri 0 5,131 08-17-2013، 09:56 AM
آخرین ارسال: Amin_Mansouri
  سورس کد شناسایی مرورگرهای نصب شده بر روی سیستم عامل (دلفی) Amin_Mansouri 0 5,263 08-17-2013، 09:35 AM
آخرین ارسال: Amin_Mansouri
  تب سیستم در دلفی Amir AMS 0 4,958 06-11-2013، 08:21 PM
آخرین ارسال: Amir AMS
  سورس کد بدست اوردن حافظه استفاده شده در سیستم عامل(دلفی) Amin_Mansouri 0 4,261 05-01-2013، 07:44 AM
آخرین ارسال: Amin_Mansouri
  نام سیستم Amin_Mansouri 0 2,452 08-01-2011، 07:44 PM
آخرین ارسال: Amin_Mansouri
  تغییر ساعت سیستم Amin_Mansouri 0 2,822 08-01-2011، 07:42 PM
آخرین ارسال: Amin_Mansouri
  تغییر تاریخ سیستم Amin_Mansouri 0 2,458 08-01-2011، 07:41 PM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


Browsing: 1 مهمان