急！请把这个函数转为VC的DLL函数。急丫！(100分)

function MakeCode(CodeMsg, SaveTo: pChar): pChar;stdCall;
var Data: TStringList;
TemppChar: pChar;
begin
if CodeMsg = nil then
begin
exit;
Result := '1001';
end
else
begin
try
Data := TStringList.Create();
Data.Text := CodeMsg;
Data.SaveToFile('Data.txt');
Data.Free;
DeleteFile('Data.txt');
Result := pChar('ok');
except
Result := '1002';
DeleteFile('Data.txt');
end;
end;

好像比较难，你还是自已转转吧

在VC有跟TStringList类差不多的吗？
或有什么类可以将CodeMsg串马上保存为TXT文件也行

CFile mFile;
CString strFile="c:/text.txt";
mFile.Open(strFile,CFile::modeWrite|CFile::modeCreate);
CString strContent=CodeMsg;//要保存的字符串
mFile.Write(strContent,strContent.GetLength());
mFile.Close();

直接用CreateFile，Write

用Delphi封装的Dll一样在VC中可以调用。
PChar对应的类型应该是char*。

接受答案了.