你用Getprivateprofileint这个函数

解决方案 »

  1.   

    var
    StrResult: array[0..256] of Char;
    begin
    GetPrivateProfileString('windows', 'run', nil, strresult, 256, 'c:\windows\win.ini');
      Edit1.text := StrResult;
      

  2.   

    其中windows是[]中标题的名字
    nullport是=号前的名字
    nil是在没找到值的情况下返回的值
    strresult是存放取得的字符
    256是最大长度
      

  3.   

    首先在Uses 中添加 IniFiles单元;function GetDEF:boolean;
    var MyIni:TIniFile;
    begin
      MyIni:=TIniFile.Create('XXXX.ini');
      GetDEF:=MyIni.ReadBool('ABC', 'DEF', True);
      MyIni.Free;
    end;值为1时,GetDEF函数返回True
    值为0时,GetDEF函数返回False