سوال درمورد تابع getsystemdirectory

[paria92]

سلام دوستان صبح همگی بخیر لطفاً اگه کسی میتونه به من کمک کنه
دوستان تابع getsystemdirectory کارش این هست که پوشه system32ویندوز رو پیداکنه و دوتا متغیر هم از نوع pchar و dword باید برای اون تعریف کنیم.حالا سوالم این هست که این تابع وقتی پوشه رو پیدا کرد اون رو کجا میریزه؟آیا باید یک تکست باکسی تعریف کنیم تا مسیر پوشه system32 رو در اون بریزه یا خیر؟کلا کی میتونه مثال ساده از کارکرد این تابع بزنه؟این کد رو هم خودم نوشتم کی میتونه بگه ایرادش کجاست خطا میده


procedure TForm1.btn1Click(Sender: TObject);
var
d:DWORD;
p:PChar;
begin
d:=255;
GetSystemDirectory(p,d);
edt1.Text :=p;
end;
end.

[دلفــي]

سلام دوستان صبح همگی بخیر لطفاً اگه کسی میتونه به من کمک کنه
دوستان تابع getsystemdirectory کارش این هست که پوشه system32ویندوز رو پیداکنه و دوتا متغیر هم از نوع pchar و dword باید برای اون تعریف کنیم.حالا سوالم این هست که این تابع وقتی پوشه رو پیدا کرد اون رو کجا میریزه؟آیا باید یک تکست باکسی تعریف کنیم تا مسیر پوشه system32 رو در اون بریزه یا خیر؟کلا کی میتونه مثال ساده از کارکرد این تابع بزنه؟این کد رو هم خودم نوشتم کی میتونه بگه ایرادش کجاست خطا میده


procedure TForm1.btn1Click(Sender: TObject);
var
d:DWORD;
p:PChar;
begin
d:=255;
GetSystemDirectory(p,d);
edt1.Text :=p;
end;
end.



خروجي تابع GetSystemDirectory مسير پوشه ي System32 و به صورت String هست ، پس اگه نياز به نمايش خروجي تابع داريد بايد در يك كنترل نمايشي مثل Label يا Edit قرار بديد



procedure TForm1.btn1Click(Sender: TObject);
var
d:DWORD;
p: Array [0 .. 256] of char;
begin
d:=255;
GetSystemDirectory(p,d);
edt1.Text :=p;
end;