急!这个函数是DELPHI语法,高手请把这个函数转VC的DLL函数。急丫!
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;