INI为
[info]
1234567=5SxHp0V1f77wPOD5BmW2Cw==
2432233=5SxHp0V1f77wPOD5BmW2Cw==
[qqpath]
path=D:\qq\QQ.exe
要求点击一个button自动登陆2个QQ,,求思路,我现在主要不知道怎么把QQ号读到字符串中去?

解决方案 »

  1.   

    读取INI文件吗?//INI文件读配置
    Function ReadConfig(IniSetFileName,SectionName,ValueName:String):String;
    Var
      IniHandle:TIniFile;
    Begin
      If FileExists(ExtractFilePath(Application.ExeName)+IniSetFileName) Then
      Begin
        IniHandle := TIniFile.Create(ExtractFilePath(Application.ExeName)+IniSetFileName);
        Result:=IniHandle.ReadString(SectionName,ValueName,'');
        IniHandle.free;
      End
      Else
        MessageDLG('读配置文件'+ExtractFilePath(Application.ExeName) + IniSetFileName+'不存在',MtError,[Mbyes],0);
    end;
      

  2.   


    uses IniFilesprocedure TForm1.Button1Click(Sender: TObject);
    var
      F: TIniFile;
      s: TStringList;
    begin
      F := TIniFile.Create('c:\1.ini');
      s := TStringList.Create;
      try
        F.ReadSectionValues('info',s);
        ShowMessage(s.Text);
      finally
        F.Free;
        s.Free;
      end;
    end;