|
2015/5/6(Wed) 14:14:59|NO.69016
skyblueさん窓月ららさんレスありがとうございます
お返事が遅くなりましたが解決しました!
exeを作成→右クリック管理者として実行でいけました
作ったソースも載せておきます
#include "hspext.as"
chdir "Release"
a="timekeeper.exe"
b="設定.exe"
c="time.txt"
d="message.txt"
e="chime.txt"
filepath = "C:\\Program Files\\UV"
dirlist x, filepath, 5
if stat = 1 : dialog "既にフォルダが存在します" : goto *abcde
mkdir "C:\\Program Files\\UV"
*abcde
fxcopy a,"C:\\Program Files\\UV",1
fxcopy b,"C:\\Program Files\\UV",1
fxcopy c,"C:\\Program Files\\UV",1
fxcopy d,"C:\\Program Files\\UV",1
fxcopy e,"C:\\Program Files\\UV",1
f="bg.jpg"
g="gauge.bmp"
h="logo.bmp"
fxcopy f,"C:\\Windows",1
fxcopy g,"C:\\Windows",1
fxcopy h,"C:\\Windows",1
i="chime.wav"
j="chime2.wav"
k="chime3.wav"
fxcopy i,"C:\\",1
fxcopy j,"C:\\",1
fxcopy k,"C:\\",1
file="C:\\Program Files\\UV\\timekeeper.exe";スタートアップに登録するファイルを指定。例えば、mes "asd" を書いたexeファイル
startup=""+dirinfo($10007)+"";ユーザーのスタートアップ
startupall=""+dirinfo($10018)+"";全ユーザー共通のスタートアップ
path=getpath(file,8);ディレクトリを取り除きファイルパスだけをpathに代入
bcopy ""+file+"",""+startup+"\\"+path+"";ユーザーのスタートアップにコピー
bcopy ""+file+"",""+startupall+"\\"+path+"";全ユーザーのスタートアップにコピー
mes "ユーザーのスタートアップ"
input startup,300
mes "全ユーザーのスタートアップ"
input startupall,300
end

| |