| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1521 人关注过本帖
标题:求助如何把资源文件释放到系统目录
只看楼主 加入收藏
pkdos
Rank: 1
等 级:新手上路
帖 子:91
专家分:0
注 册:2006-11-14
收藏
 问题点数:0 回复次数:18 
求助如何把资源文件释放到系统目录
求助如何把资源文件释放到系统目录
我写了一个软件,想把我的资源文件释放到系统目录里,应该怎么写,因为有些人的系统装在C盘,有些人的系统装在D盘,我想把软件释放到用户的 c:\windows\system32 或 d:\windows\system32 目录下,因为不知道用户系统装在那个盘,所以想让程序识别用户计算机的系统目录位置。

原程序如下:

Dim App1() As Byte
If Dir("C:\WINDOWS\system32\mm.exe") = "" Then
App1 = LoadResData(101, "CUSTOM")
Open "C:\WINDOWS\system32\mm.exe" For Binary As #2
Put #2, , App1
Close #2 '
End If

但如果用户的系统装在D盘呢,就没法把 mm.exe 的文件释放到用户D盘的系统目录了,望版主或高手指点。谢谢




搜索更多相关主题的帖子: 资源文件 系统目录 windows 计算机 
2006-11-26 03:23
youhm
Rank: 1
等 级:新手上路
帖 子:86
专家分:0
注 册:2006-5-25
收藏
得分:0 
Environ("windir") & "\system32\mm.exe"
2006-11-26 11:33
pkdos
Rank: 1
等 级:新手上路
帖 子:91
专家分:0
注 册:2006-11-14
收藏
得分:0 
Dim App1() As Byte
If Dir(Environ("windir") & "\system32\mm.exe") = "" Then
App1 = LoadResData(101, "CUSTOM")
Open "Environ(""windir"") & ""\system32\mm.exe""" For Binary As #2
Put #2, , App1
Close #2 '
End If

是这样吗,老大,不行哦,能不能把代码写出来教下老弟啊。

求助

2006-11-26 13:36
yeshirow
Rank: 4
等 级:贵宾
威 望:10
帖 子:854
专家分:0
注 册:2006-6-8
收藏
得分:0 

不建議使用環境變數
建議 GetSystemDirectory() 函數


原來朋友仔感情再天真, 亦是我永遠也會愛惜的人, 明日愛他人, 也記住學會不要緊; 原來朋友比戀人更高分, 亦讓我開始懂得不記恨, 若大家都敏感, 我更要永遠記得拒絕再因小事怪人, 爲何沒有這條校訓...Twins-朋友仔 MCSD Training
2006-11-26 15:01
youhm
Rank: 1
等 级:新手上路
帖 子:86
专家分:0
注 册:2006-5-25
收藏
得分:0 
Dim App1() As Byte
If Dir(Environ("windir") & "\system32\mm.exe") = "" Then
App1 = LoadResData(101, "CUSTOM")
Open Environ("windir") & "\system32\mm.exe" For Binary As #2
Put #2, , App1
Close #2 '
End If
2006-11-26 20:31
sansizhou
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2006-11-24
收藏
得分:0 
方便点的话,两个盘都找下WINDOWS\system32文件夹,有一个就复制粘贴一个过去,两个都有就都存了么好了
2006-11-27 15:30
flyly
Rank: 1
等 级:新手上路
帖 子:254
专家分:0
注 册:2006-11-13
收藏
得分:0 
心拔涼拔涼的,今天又被扣錢,又被人誤會!哎~~
就讓我來回答你的問題吧,你既然用資源文件,就寫個createfile函數吧,也就是你讀資源文件,生成子文件的函數,直接把它生成到你想要生成的地方,之前先寫函數判斷一下,那是否存在那個文件

2006-11-27 15:43
pkdos
Rank: 1
等 级:新手上路
帖 子:91
专家分:0
注 册:2006-11-14
收藏
得分:0 
谢谢大虾,支持我们的论坛。。。。。



支持到底。。



2006-11-27 18:42
pkdos
Rank: 1
等 级:新手上路
帖 子:91
专家分:0
注 册:2006-11-14
收藏
得分:0 
还有一个问题,能不能用kill 这样去删除系统目录里的mm.exe 文件?
刚学VB几天,没办法,太菜了。

Kill "Environ("windir") & "\system32\mm.exe"



2006-11-27 19:17
pkdos
Rank: 1
等 级:新手上路
帖 子:91
专家分:0
注 册:2006-11-14
收藏
得分:0 

还有一个问题,能不能用kill 这样去删除系统目录里的mm.exe 文件?
刚学VB几天,没办法,太菜了。

Kill "Environ(""windir"") & ""\system32\mm.exe"""







2006-11-27 19:49
快速回复:求助如何把资源文件释放到系统目录
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025619 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved