alexqxp 发表于 2005-9-20 15:06:54

讨论

see
是否是路径设置的问题呢？

violetwind 发表于 2005-9-20 15:17:29

Re:讨论

可能是flash的版本？

violetwind 发表于 2005-9-20 15:18:40

Re:讨论

而且你的也没有最大化？
（按ESC可取消全屏）

violetwind 发表于 2005-9-20 15:23:40

Re:讨论

openfolder.ini文件如下：
Title = TITLE of the Dialog
maximize = true
swf = simwecd02b.swf


ansys = ansys
matlab = matlab
abaqus = abaqus
labview = 虚拟仪器
lsdyna = ls-dyna
proe = pro-e
adam = adam
ug = unigraphics

开始应该是全屏显示的
下面的等号左边是fscommand里的第二个参数(大小写不分)，右边是真正的目录
如ansys的button如下：
on(press){
fscommand("OPEN_FOLDER","ANSYS");
}

violetwind 发表于 2005-9-20 15:35:42

Re:讨论

我知道了，你没有openfolder.ini这个文件。
你把整个光盘映像放入虚拟光驱应该没有问题，有问题的我想也应该是没有安装flash插件或者没有mfc42d.dll，空白的就是没有找到flash,因为没有openfolder.ini这个文件来提供flash的路径。

alexqxp 发表于 2005-9-20 15:36:14

Re:讨论

拿到别人的机器上打开发现需要调用MFC42D.DLL。
这就涉及到安装DLL文件的问题了。那这个EXE可能要打包才能保证在所有的机器上运行了。
我的目标是不打包。
因为如果要打包的话，那必然造成先运行SETUP，太麻烦了。
我不知道你是如何做的，但是目标是不调用XP没有的DLL。尽量简单点。

FLASH插件一般都安装了。但是MFC42D.DLL好多人没有。

violetwind 发表于 2005-9-20 15:39:29

Re:讨论

这个简单，再把mfc42d.dll这个文件也放到光盘中就可以 了

alexqxp 发表于 2005-9-20 15:45:08

Re:讨论

动画完了以后的按钮是怎样的，请贴个图上来好吗？我手上没有虚拟光驱。

violetwind 发表于 2005-9-20 15:49:20

Re:讨论

我没有改动flash，只是加了些脚本用来打开目录
（我取消了全屏）

alexqxp 发表于 2005-9-20 15:50:18

Re:讨论

后面那个文件夹是光盘目录吗？

violetwind 发表于 2005-9-20 15:55:20

Re:讨论

待会传几个完整点的图

alexqxp 发表于 2005-9-20 16:11:20

Re:讨论

等的时间顺便写下我的VB解决。

*****************************************
ShockwaveFlash1.Movie = App.Path & "\simwecd02.swf"'加载FLASH动画­
ShockwaveFlash1.Height = 5000
ShockwaveFlash1.Width = 6375
ShockwaveFlash1.Left = 2640
ShockwaveFlash1.Top = 1200
调用系统的VSFLEX3.OCX。
这样解决了动画播放问题。

*****************************************
关于光盘目录浏览。
1。确定光驱盘符。
Dim StrDrive As String         '盘符串(A:\ C:\ D:\...)

    Dim DriveID As String            '盘符(如:A:\)

    StrDrive = String(100, Chr$(0))'初始化盘符串

    Call GetLogicalDriveStrings(100, StrDrive) '返回盘符串

    Dim i As Integer

   '返回光盘盘符到数组

    For i = 1 To 100 Step 4             '注意这里是4

      DriveID = Mid(StrDrive, i, 3)'枚举盘符

      If DriveID = Chr$(0) & Chr(0) & Chr(0) Then Exit For '没有盘符,即时退出循环



      If GetDriveType(DriveID) = 5 Then Call ShellPro(DriveID)

      '如果枚举到的盘是CD-ROM,转到 ShellPro 子程序

    Next i

*****************************************
2。打开光盘目录，没有成功
   a = ShellExecute(Handle, "explore",DriveID, "", "", SW_SHOW)

有知道的请告知。

simwe 发表于 2005-9-20 17:11:35

Re:讨论

http://www.simwe.com/forum/upload/2005/09/20/56116128.jpg
这里的"Adam"应该是"Adams"吧？

alexqxp 发表于 2005-9-20 17:25:55

Re:讨论

是，写错了。
最终这些链接文字都要删除的。
只保留光盘目录链接。

violetwind 发表于 2005-9-21 08:47:23

Re:讨论

vb用shellexecute应该也能打开目录，但是具体怎么设置参数我不太清楚。

看看这个的效果：
1、光盘

violetwind 发表于 2005-9-21 08:48:49

Re:讨论

2、双击光盘后（全屏）

violetwind 发表于 2005-9-21 08:49:58

Re:讨论

3、取消全屏（按ESC）

violetwind 发表于 2005-9-21 08:51:09

Re:讨论

4、点下面的浏览光盘后打开光盘

violetwind 发表于 2005-9-21 08:52:41

Re:讨论

5、还有一个打开文件的例子

violetwind 发表于 2005-9-21 08:58:14

Re:讨论

奇怪，不知道这个抓图怎么中间会缺个条的
页: [1] 2
查看完整版本: 讨论