home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 July / Chip_2000-07_cd.bin / sharewar / visds / visds.exe / Verinfo.dsc < prev    next >
Text File  |  2000-05-05  |  2KB  |  55 lines
  1. REM ****************************************************
  2. REM verinfo.dsc v. 3.5
  3. REM use of @VERINFO
  4. REM (c) 1995 - 2000 S.A.D.E. 
  5.  
  6.     title Version Information
  7.   DIALOG CREATE,Version Information,-1,0,312,232
  8.   DIALOG ADD,EDIT,filename,10,10,260,19
  9.   DIALOG ADD,BUTTON,browse,10,280,24,20,...
  10.     DIALOG ADD,STATUS,status,Click the button to choose a file
  11.     DIALOG ADD,TEXT,TEXT1,40,10,,,Size:
  12.   DIALOG ADD,TEXT,size,40,60,80,18
  13.     DIALOG ADD,TEXT,TEXT3,56,10,,,Date:
  14.   DIALOG ADD,TEXT,datetime,56,60,240
  15.     DIALOG ADD,TEXT,TEXT4,72,10,,,Version:
  16.     DIALOG ADD,TEXT,version,72,60,200
  17.     DIALOG ADD,TEXT,TEXT5,88,10,,,Name:
  18.   DIALOG ADD,TEXT,name,88,60,240
  19.     DIALOG ADD,TEXT,TEXT6,104,10,,,Company:
  20.   DIALOG ADD,TEXT,company,104,60,240
  21.     DIALOG ADD,TEXT,TEXT7,120,10,,,Product:
  22.   DIALOG ADD,TEXT,product,120,60,240
  23.     DIALOG ADD,TEXT,TEXT8,136,10,,,Version:
  24.   DIALOG ADD,TEXT,prodver,136,60,240
  25.     DIALOG ADD,TEXT,TEXT9,152,10,,,Copyright:
  26.   DIALOG ADD,TEXT,copr,152,60,240
  27.   DIALOG ADD,TEXT,TEXT10,168,10,,,Desc:
  28.   DIALOG ADD,TEXT,desc,168,60,240,40
  29.   DIALOG SHOW
  30. :evloop
  31.     wait event
  32.     goto @event()
  33. :browseBUTTON
  34.     %F = @filedlg("EXE files|*.exe|DLL files|*.dll",Choose file,@windir()\*.exe)
  35.     if @not(@ok())
  36.         goto evloop
  37.     end
  38.     dialog set,filename,%F
  39.     parse "name;company;product;version;desc;prodver;copr",|||||||||
  40.     parse "%S;%T",@file(@dlgtext(filename),ZT)
  41.     dialog set,size,%S bytes
  42.     dialog set,datetime,@datetime(dd mmm yy  t,%T)
  43.     %Z = @verinfo(@dlgtext(filename),TNCPVDXY)
  44.     parse "%T;name;company;product;version;desc;prodver;copr",%Z
  45.     dialog clear,status
  46.     if @equal(%T,NE)
  47.         dialog set,status,16-bit Windows executable file
  48.     end
  49.     if @equal(%T,PE)
  50.         dialog set,status,32-bit Windows executable file
  51.     end
  52.     goto evloop
  53. :CLOSE
  54.     exit
  55.