GetPrivateProfileString的问题

Question

showmessage('1');
GetPrivateProfileString('QQ','aaa','AAAA',a,100,'c:\1.ini');
showmessage(a)；
上面的语句能正常执行但是
GetPrivateProfileString('QQ','aaa','AAAA',a,100,'c:\1.ini');
showmessage(a)；就什么也不执行了

Answer 1

自己顶个
GetPrivateProfileString('QQ','aaa','AAAA',a,100,'c:\1.ini'); 
showmessage(a)；就什么也不执行了
执行了没反映

Answer 2

var
  lpReturnedString: PChar;   
begin
  Getmem(lpReturnedString, sizeof(lpReturnedString));
  GetPrivateProfileString('aa', 'aaa', 'AAAA', lpReturnedString, 255, 'c:\1.ini');
  ShowMessage(lpReturnedString);
end;-----------------------------------------------------------------------------------我建议楼可以采用delphi自带的 ini文件操作功能，我这里的代码你可以看看
uses IniFiles;
var
  MyIniFile: TIniFile;begin
  MyIniFile := TIniFile.Create(AppFilePath + 'UserConfig');
  with MyIniFile do
  begin
    GbdwRedialCount := ReadInteger('UserConfig', 'GbdwRedialCount', 3); 
    GbdwRedialPause := ReadInteger('UserConfig', 'GbdwRedialPause', 60); 
    GbdwfOptions2 := ReadInteger('UserConfig', 'GbdwfOptions2', 0); 
    GbdwIdleDisconnectSeconds := ReadInteger('UserConfig', 'GbdwIdleDisconnectSeconds', -1); 
    UserName := ReadString('Userinfo', 'UserName', '');
    UserPass := ReadString('Userinfo', 'UserPass', '');
    isRememberPass := ReadBool('UserConfig', 'isRememberPass', False);
  end;
  MyIniFile.Free;
end;

Answer 3

你的a是什么，是不是char型数组啊，pchar还要申请内存和释放

Answer 4

var 
  lpReturnedString: PChar;  
begin 
  Getmem(lpReturnedString, sizeof(lpReturnedString)); 
  GetPrivateProfileString('aa', 'aaa', 'AAAA', lpReturnedString, 255, 'c:\1.ini'); 
  ShowMessage(lpReturnedString); 
  FreeMem(lpReturnedString);
end;-----------------------
a=lpReturnedString