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