home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1997 February
/
VPR9702A.ISO
/
FFILLY
/
KOUZA11
/
chg_wal3.tfy
< prev
Wrap
Text File
|
1996-11-29
|
849b
|
28 lines
//chg_wal3.tfy
main(){
str BMPfile; //文字変数の宣言
int Pic,Win,Select; //整数変数の宣言
Start:; //[Start]
BMPfile=StrInput(".bmp","BitMap Files(*.bmp)|*.bmp||",1,0x1800,"*.bmp",1);
//ファイル一覧からのBMPファイルの選択
if(BMPfile==""){ //ファイル名が指定されない場合
goto Start; //[Start]に戻る
}
Pic=LoadPic(BMPfile); //画像読み込み
Win=OpenWin(Pic); //ウインドウを開く
Select=MsgBox("このBMPを壁紙にしますか?",0x023); //確認
if(Select==6){ //「はい」の場合
SysParam(20,0,BMPfile,3); //壁紙をチェンジ
}
else if(Select==7){ //「いいえ」の場合
DelPic(Pic); //ピクチャーの破棄
CloseWin(Win); //ウインドウを閉じる
goto Start; //[Start]に戻る
}
else{ //「キャンセル」の場合
DelPic(Pic); //ピクチャーの破棄
CloseWin(Win); //ウインドウを閉じる
}
}