怎样运行这样dll下函数？
dll 函数代码如下
Function AccessCreateDatabase(Const DataBase, PassWord: PChar): boolean;
Stdcall;
Var
STempFileName: String;
vCatalog: OleVariant;
Begin
STempFileName := GetTempPathFileName;
Try
vCatalog := CreateOleObject( 'ADOX.Catalog ');
vCatalog.Create(format(SConnectionString, [STempFileName, PassWord]));
result := CopyFile(PChar(STempFileName), PChar(DataBase), True);
DeleteFile(STempFileName);
Except
result := false;
End;
End;
我调试发现执行vCatalog := CreateOleObject( 'ADOX.Catalog ');程序就自动关闭了。
谁能告诉我如何解决
[解决办法]
用了except应该不会吧??
确定是到这步吗?
而且你这个函数怎么没有默认返回值?
