哪个可以转换下`CGO2043服务器的装载磁盘函数为 AU3所使用？

renren

procedure TForm1.Button1Click(Sender: TObject);
var
  driveidx:integer;
  Drive:Char;
  ImgFile:PChar;
  Size:int64;
  r:integer;
begin
    gsgw32_unloaddriver;
    r:=GSGW32_LoadDriver;
    showmessage(inttostr(r));
    Drive:= 'G' ;
    driveIdx:=0;
    Size := int64(80*1024)*1024*1024;
if GSGW32_mount(driveidx,drive,pointer(@Size),pchar('E:\IIO.IMG'))=0 then
  ShowMessage('成功!')
else
  ShowMessage('失败!');
end;

哪个可以把这段 Delphi   转换成   AU3 调用的。

下面是我收集整理下的。

function GSGW32_Mount(idx:Integer; Drive:Char; a3:Int64; const
ImgFile:PChar):Cardinal;stdcall; external 'RNDINTER.dll';
function GSGW32_Umount(Drive:Char):Cardinal;stdcall; external 'RNDINTER1.dll';
function GSGW32_GetStatus(Driver:Char; idx:Integer; a3:Integer;
ImgFile:PChar):Cardinal;stdcall; external 'RNDINTER.dll';
function GSGW32_LoadDriver:Integer;stdcall; external 'RNDINTER.dll';
function GSGW32_UnloadDriver:Integer;stdcall; external 'RNDINTER.dll';
function GSGW32_GetAllNetDiskDrive(
lpOutBuffer:PChar):Cardinal;stdcall;external 'RNDINTER.dll';

renren

....................

sensel

GSGW32_Mount，返回一直是2或170，搞不懂。
现在暂时用别人做的命令行挂载。

zhuang513

看不懂...!!

fzlrfzlr

不是很懂~~~~~~~

FBWOLF

AU3调用API的数据结构太难搞了！

lsq726

同问~~~~~~~~~~~``

milini

只知道把服务器的IP添加到注册表某键值，再运行rundll32 RNDINTER.dll RND32_StartSGXP就可以出盘了。

suntalent

路过水一下

tenliq

GSGW32_Mount，返回一直是2或170，搞不懂。
现在暂时用别人做的命令行挂载。
sensel 发表于 2009-5-24 22:52

    你的这个GSGW32_Mount是怎么写的,能否贴出来看看?