关于WritePrivateProfileString

Question

procedure WriteINI(qIniFile, qSection, qKey, qValue : string);
var i : integer;
begin
    WritePrivateProfileString(addr(qSection), addr(qKey), addr(qValue), addr(qIniFile));
    //WritePrivateProfileString('keybord1', 'key1', '455', 'D:\Work\DragonAndTiger\DandT\DandT.txt');
end;WritePrivateProfileString()这个函数接收的是PChar 的参数,,,但我要改成String的,,上面的写法什么不行(可以通过编译,可是调用的时候写不进东西,跟踪一下,,发现可能把String参数两个字节当成一个字符),,,哪位帮忙一下,应该什么写

Answer 1

你是想写Ini文件吧？？？为什么不使用Delphi提供的TIniFile类？？？这个类使用起来很简单！！！如果要使用WritePrivateProfileString，应该这样写：
WritePrivateProfileString(PChar(qSection), PChar(qKey), PChar(qValue), PChar(qIniFile));

Answer 2

TIniFile也是使用这些API的。。 不过使用起来方便很多了。。PChar(..)进行类型转换即可

Answer 3

http://www.delphijs.com/Article_Show.asp?ArticleID=933