دالة GetPrivateProfileString

[kachwahed]

السلام عليكم ورحمة الله
الأخ yanes أهلا ومرحبا بك في المنتدى
لنشاهد تعريف التابع GetPrivateProfileString من Win32 SDK

كود :

DWORD GetPrivateProfileString( LPCTSTR lpAppName, // points to section name LPCTSTR lpKeyName, // points to key name LPCTSTR lpDefault, // points to default string LPTSTR lpReturnedString, // points to destination buffer DWORD nSize, // size of destination buffer LPCTSTR lpFileName // points to initialization filename );

من خلال التعريف يمكن أن نصيغ تابع بلغة دلفي بهذا الشكل:

PHP كود :

function GetKeyValue(const Root, sValue: string; aFileName: string): string;
begin
  SetLength(Result, MAX_PATH);
  SetLength(Result,
    GetPrivateProfileString(
    PChar(Root), //اسم الجذر
    PChar(sValue), //اسم المفتاح
    '', //القيمة الافتراضية
    @Result[1], //قيمة المفتاح
    Length(Result), //حجم
    PChar(aFileName))); //اسم الملف
end;

//مثال لقراءة محتوى ملف INI
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetKeyValue('Root', 'DelphiRoot', ExtractFilePath(ParamStr(0)) + 'Delphi.ini'));
end; 


المشكلة تحديدا في تحويل البارامترات من String الى PChar وحقيقة اتعبني

معك حق،هناك لبس بخصوص ذلك

ربما سبب هذا هو عدم فهمي للمؤشرا

سأكتب موضوع حول ذلك خلال هذه الأيام بشيء من التفصيل إن شاء الله

بالتوفيق.