renren 发表于 2009-5-18 15:49:18

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

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 发表于 2009-5-19 14:20:47

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

sensel 发表于 2009-5-24 22:52:23

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

zhuang513 发表于 2009-5-28 18:17:16

看不懂...!!

fzlrfzlr 发表于 2009-6-2 04:00:44

不是很懂~~~~~~~

FBWOLF 发表于 2009-6-3 12:00:47

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

lsq726 发表于 2009-8-10 10:26:17

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

milini 发表于 2009-8-10 14:20:18

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

suntalent 发表于 2009-8-10 17:17:51

路过水一下

tenliq 发表于 2010-1-31 18:26:12

GSGW32_Mount，返回一直是2或170，搞不懂。
现在暂时用别人做的命令行挂载。
sensel 发表于 2009-5-24 22:52 http://www.autoitx.com/images/common/back.gif


    你的这个GSGW32_Mount是怎么写的,能否贴出来看看?
页: [1]
查看完整版本: 哪个可以转换下`CGO2043服务器的装载磁盘函数为 AU3所使用？