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