讨论

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

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

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

可能是flash的版本？

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

待会传几个完整点的图

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

等的时间顺便写下我的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

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

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

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

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

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

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

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

2、双击光盘后（全屏）

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

3、取消全屏（按ESC）

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

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

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

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

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

奇怪，不知道这个抓图怎么中间会缺个条的

账号		自动登录	找回密码
密码			注册

账号		自动登录	找回密码
密码			立即注册

[Simwe资源光盘] 讨论

本帖子中包含更多资源

Re:讨论

本帖子中包含更多资源

Re:讨论

Re:讨论

评分

Re:讨论

Re:讨论

Re:讨论

Re:讨论

Re:讨论

本帖子中包含更多资源

Re:讨论

Re:讨论

Re:讨论

Re:讨论

Re:讨论

Re:讨论

本帖子中包含更多资源

评分

Re:讨论

本帖子中包含更多资源

Re:讨论

本帖子中包含更多资源

Re:讨论

本帖子中包含更多资源

Re:讨论

本帖子中包含更多资源

Re:讨论