《Windows程序设计》PASCAL例子

【实例截图】

【核心代码】

└─《Windows程序设计》PASCAL例子
    │  DeleteTemp.bat
    │  
    ├─1. 开始
    │  └─程序1-1
    │          HelloMsg.dpr
    │          
    ├─10. 菜单及其它资源
    │  ├─程序10-1
    │  │      IconDemo.bat
    │  │      IconDemo.dpr
    │  │      IconDemo.rc
    │  │      IconDemo.res
    │  │      IDI_ICON.ico
    │  │      
    │  ├─程序10-3
    │  │      PoePoem.bat
    │  │      PoePoem.dpr
    │  │      PoePoem.ico
    │  │      PoePoem.rc
    │  │      PoePoem.RES
    │  │      PoePoem.txt
    │  │      
    │  ├─程序10-4
    │  │      MenuDemo.bat
    │  │      MenuDemo.dpr
    │  │      MenuDemo.rc
    │  │      MenuDemo.RES
    │  │      
    │  ├─程序10-5
    │  │      MenuDemo.dpr
    │  │      
    │  ├─程序10-6
    │  │      PopMenu.bat
    │  │      PopMenu.dpr
    │  │      PopMenu.rc
    │  │      PopMenu.RES
    │  │      
    │  ├─程序10-7
    │  │      PoorMenu.dpr
    │  │      
    │  ├─程序10-8
    │  │      NoPopUps.bat
    │  │      NoPopUps.dpr
    │  │      NoPopUps.RC
    │  │      NoPopUps.RES
    │  │      
    │  └─程序10-9
    │          PopPad2.bat
    │          PopPad2.dpr
    │          PopPad2.ico
    │          PopPad2.RC
    │          PopPad2.RES
    │          
    ├─11. 对话框
    │  ├─程序11-1
    │  │      About1.bat
    │  │      About1.dpr
    │  │      About1.ico
    │  │      About1.RC
    │  │      About1.RES
    │  │      
    │  ├─程序11-2
    │  │      About2.bat
    │  │      About2.dpr
    │  │      About2.ico
    │  │      About2.RC
    │  │      About2.RES
    │  │      
    │  ├─程序11-3
    │  │      About3.bat
    │  │      About3.dpr
    │  │      About3.ico
    │  │      About3.RC
    │  │      About3.RES
    │  │      
    │  ├─程序11-4
    │  │      Colors2.bat
    │  │      Colors2.dpr
    │  │      Colors2.RC
    │  │      Colors2.RES
    │  │      
    │  ├─程序11-5
    │  │      HexCalc.bat
    │  │      HexCalc.dpr
    │  │      HexCalc.ico
    │  │      HexCalc.RC
    │  │      HexCalc.RES
    │  │      
    │  ├─程序11-6
    │  │      PopFile.pas
    │  │      PopFind.pas
    │  │      PopFont.pas
    │  │      PopPad3.bat
    │  │      PopPad3.dpr
    │  │      PopPad3.ico
    │  │      PopPad3.RC
    │  │      PopPad3.RES
    │  │      PopPrnt.pas
    │  │      
    │  └─程序11-7
    │          Colors3.dpr
    │          
    ├─12. 剪贴簿
    │  ├─程序12-1
    │  │      ClipText.bat
    │  │      ClipText.dpr
    │  │      ClipText.Rc
    │  │      ClipText.RES
    │  │      
    │  └─程序12-2
    │          ClipView.dpr
    │          
    ├─13. 使用打印机
    │  ├─程序13-1
    │  │      GetPrnDC.pas
    │  │      
    │  ├─程序13-2
    │  │      DevCaps2.bat
    │  │      DevCaps2.dpr
    │  │      DevCaps2.rc
    │  │      DevCaps2.RES
    │  │      
    │  ├─程序13-3
    │  │      FormFeed.dpr
    │  │      
    │  ├─程序13-4
    │  │      Print.dpr
    │  │      
    │  ├─程序13-5
    │  │      Print.dpr
    │  │      Print1.Pas
    │  │      
    │  ├─程序13-6
    │  │      Print.dpr
    │  │      Print2.Pas
    │  │      
    │  ├─程序13-7
    │  │      Print.bat
    │  │      Print.dpr
    │  │      Print.rc
    │  │      Print.RES
    │  │      Print3.Pas
    │  │      
    │  └─程序13-8
    │          PopFile.pas
    │          PopFind.pas
    │          PopFont.pas
    │          PopPad3.bat
    │          PopPad3.dpr
    │          PopPad3.ico
    │          PopPad3.RC
    │          PopPad3.RES
    │          PopPrnt.pas
    │          
    ├─14. 位图和Bitblt
    │  ├─程序14-1
    │  │      BitBlt.dpr
    │  │      Temp
    │  │      
    │  ├─程序14-10
    │  │      Bounce.dpr
    │  │      
    │  ├─程序14-11
    │  │      Scramble.dpr
    │  │      
    │  ├─程序14-12
    │  │      Blowup.bat
    │  │      Blowup.dpr
    │  │      Blowup.rc
    │  │      Blowup.RES
    │  │      
    │  ├─程序14-2
    │  │      Stretch.dpr
    │  │      
    │  ├─程序14-3
    │  │      Bricks.bmp
    │  │      Bricks1.bat
    │  │      Bricks1.dpr
    │  │      Bricks1.rc
    │  │      Bricks1.RES
    │  │      
    │  ├─程序14-4
    │  │      Bricks2.dpr
    │  │      
    │  ├─程序14-5
    │  │      Bricks.bmp
    │  │      Bricks3.bat
    │  │      Bricks3.dpr
    │  │      Bricks3.rc
    │  │      Bricks3.RES
    │  │      
    │  ├─程序14-6
    │  │      HelloBit.bat
    │  │      HelloBit.dpr
    │  │      HelloBit.rc
    │  │      HelloBit.RES
    │  │      
    │  ├─程序14-7
    │  │      Sketch.dpr
    │  │      
    │  ├─程序14-8
    │  │      Bighelp.bmp
    │  │      Editlabl.bmp
    │  │      Filelabl.bmp
    │  │      Fontlabl.bmp
    │  │      GrafMenu.bat
    │  │      GrafMenu.dpr
    │  │      GrafMenu.rc
    │  │      GrafMenu.RES
    │  │      
    │  └─程序14-9
    │          BitMask.bat
    │          BitMask.bmp
    │          BitMask.dpr
    │          BitMask.rc
    │          BitMask.RES
    │          
    ├─15. 与设备无关的位图
    │  ├─程序15-1
    │  │      DibHeads.bat
    │  │      DibHeads.dpr
    │  │      DibHeads.rc
    │  │      DibHeads.RES
    │  │      
    │  ├─程序15-2
    │  │      DibFile.pas
    │  │      ShowDib1.bat
    │  │      ShowDib1.dpr
    │  │      ShowDib1.rc
    │  │      ShowDib1.RES
    │  │      
    │  ├─程序15-3
    │  │      Apollo11.bmp
    │  │      Apollo11.dpr
    │  │      ApolloTD.bmp
    │  │      DibFile.pas
    │  │      
    │  ├─程序15-4
    │  │      SeqDisp.bat
    │  │      SeqDisp.dpr
    │  │      SeqDisp.rc
    │  │      SeqDisp.RES
    │  │      
    │  ├─程序15-5
    │  │      DibFile.pas
    │  │      ShowDib2.bat
    │  │      ShowDib2.dpr
    │  │      ShowDib2.rc
    │  │      ShowDib2.RES
    │  │      
    │  ├─程序15-6
    │  │      DibConv.bat
    │  │      DibConv.dpr
    │  │      DibConv.rc
    │  │      DibConv.RES
    │  │      
    │  └─程序15-7
    │          DIBsect.bat
    │          DIBsect.dpr
    │          DIBsect.rc
    │          DIBsect.RES
    │          
    ├─16. 调色盘管理器
    │  ├─程序16-1
    │  │      Grays1.dpr
    │  │      
    │  ├─程序16-10
    │  │      PalAnim.dpr
    │  │      Pipes.pas
    │  │      
    │  ├─程序16-11
    │  │      PalAnim.dpr
    │  │      Tunnel.pas
    │  │      
    │  ├─程序16-12
    │  │      PackeDib.pas
    │  │      
    │  ├─程序16-13
    │  │      ShowDib3.bat
    │  │      ShowDib3.dpr
    │  │      ShowDib3.rc
    │  │      ShowDib3.RES
    │  │      
    │  ├─程序16-14
    │  │      ShowDib4.bat
    │  │      ShowDib4.dpr
    │  │      ShowDib4.rc
    │  │      ShowDib4.RES
    │  │      
    │  ├─程序16-15
    │  │      ShowDib5.bat
    │  │      ShowDib5.dpr
    │  │      ShowDib5.rc
    │  │      ShowDib5.RES
    │  │      
    │  ├─程序16-16
    │  │      ShowDib6.bat
    │  │      ShowDib6.dpr
    │  │      ShowDib6.rc
    │  │      ShowDib6.RES
    │  │      
    │  ├─程序16-17
    │  │      ShowDib7.bat
    │  │      ShowDib7.dpr
    │  │      ShowDib7.rc
    │  │      ShowDib7.RES
    │  │      
    │  ├─程序16-18
    │  │      ShowDib8.bat
    │  │      ShowDib8.dpr
    │  │      ShowDib8.rc
    │  │      ShowDib8.RES
    │  │      
    │  ├─程序16-19~22
    │  │      DibHelp.pas
    │  │      
    │  ├─程序16-2
    │  │      Grays2.dpr
    │  │      
    │  ├─程序16-3
    │  │      Grays3.dpr
    │  │      
    │  ├─程序16-4
    │  │      SysPal1.dpr
    │  │      
    │  ├─程序16-5
    │  │      SysPal2.dpr
    │  │      
    │  ├─程序16-6
    │  │      SysPal3.dpr
    │  │      
    │  ├─程序16-7
    │  │      Bounce.pas
    │  │      PalAnim.dpr
    │  │      
    │  ├─程序16-8
    │  │      Fader.pas
    │  │      PalAnim.dpr
    │  │      
    │  └─程序16-9
    │          AllColor.pas
    │          PalAnim.dpr
    │          
    ├─17. 文字和字体
    │  ├─程序17-1
    │  │      PickFont.bat
    │  │      PickFont.dpr
    │  │      PickFont.rc
    │  │      PickFont.RES
    │  │      
    │  ├─程序17-10
    │  │      FontDemo.bat
    │  │      FontDemo.dpr
    │  │      FontDemo.rc
    │  │      FontDemo.RES
    │  │      FontOut1.pas
    │  │      
    │  ├─程序17-11
    │  │      FontDemo.bat
    │  │      FontDemo.dpr
    │  │      FontDemo.rc
    │  │      FontDemo.RES
    │  │      FontOut2.pas
    │  │      
    │  ├─程序17-12
    │  │      FontDemo.bat
    │  │      FontDemo.dpr
    │  │      FontDemo.rc
    │  │      FontDemo.RES
    │  │      FontFill.pas
    │  │      
    │  ├─程序17-13
    │  │      FontClip.pas
    │  │      FontDemo.bat
    │  │      FontDemo.dpr
    │  │      FontDemo.rc
    │  │      FontDemo.RES
    │  │      
    │  ├─程序17-2
    │  │      EzFont.pas
    │  │      
    │  ├─程序17-3
    │  │      EzTest.pas
    │  │      FontDemo.bat
    │  │      FontDemo.dpr
    │  │      FontDemo.rc
    │  │      FontDemo.RES
    │  │      
    │  ├─程序17-4
    │  │      FontDemo.bat
    │  │      FontDemo.dpr
    │  │      FontDemo.rc
    │  │      FontDemo.RES
    │  │      FontRot.pas
    │  │      
    │  ├─程序17-5
    │  │      ChosFont.bat
    │  │      ChosFont.dpr
    │  │      ChosFont.rc
    │  │      ChosFont.RES
    │  │      
    │  ├─程序17-6
    │  │      UniChars.bat
    │  │      UniChars.dpr
    │  │      UniChars.rc
    │  │      UniChars.RES
    │  │      
    │  ├─程序17-7
    │  │      Justify1.bat
    │  │      Justify1.dpr
    │  │      Justify1.rc
    │  │      Justify1.RES
    │  │      
    │  ├─程序17-8
    │  │      Justify2.bat
    │  │      Justify2.dpr
    │  │      Justify2.rc
    │  │      Justify2.RES
    │  │      
    │  └─程序17-9
    │          EndJoin.dpr
    │          
    ├─18. Metafile
    │  ├─程序18-1
    │  │      MetaFile.dpr
    │  │      
    │  ├─程序18-10
    │  │      EMF.bat
    │  │      EMF.dpr
    │  │      EMF.rc
    │  │      EMF.RES
    │  │      emf8.emf
    │  │      EMF8.pas
    │  │      
    │  ├─程序18-11
    │  │      EMF.bat
    │  │      EMF.dpr
    │  │      EMF.rc
    │  │      EMF.RES
    │  │      EMF9.pas
    │  │      
    │  ├─程序18-12
    │  │      EMF.bat
    │  │      EMF.dpr
    │  │      EMF.rc
    │  │      EMF.RES
    │  │      EMF10.pas
    │  │      
    │  ├─程序18-13
    │  │      EMF.bat
    │  │      EMF.dpr
    │  │      EMF.rc
    │  │      EMF.RES
    │  │      emf11.emf
    │  │      EMF11.pas
    │  │      
    │  ├─程序18-14
    │  │      EMF.bat
    │  │      EMF.dpr
    │  │      EMF.rc
    │  │      EMF.RES
    │  │      emf12.emf
    │  │      EMF12.pas
    │  │      
    │  ├─程序18-15
    │  │      EMF.bat
    │  │      EMF.dpr
    │  │      EMF.rc
    │  │      EMF.RES
    │  │      EMF13.pas
    │  │      
    │  ├─程序18-2
    │  │      EMF1.dpr
    │  │      
    │  ├─程序18-3
    │  │      EMF2.dpr
    │  │      emf2.emf
    │  │      
    │  ├─程序18-4
    │  │      EMF3.dpr
    │  │      emf3.emf
    │  │      
    │  ├─程序18-5
    │  │      EMF4.dpr
    │  │      emf4.emf
    │  │      
    │  ├─程序18-6
    │  │      EMF5.dpr
    │  │      
    │  ├─程序18-7
    │  │      EMF6.dpr
    │  │      
    │  ├─程序18-8
    │  │      EMF7.dpr
    │  │      emf7.emf
    │  │      
    │  └─程序18-9
    │          EmfView.bat
    │          EmfView.dpr
    │          EmfView.rc
    │          EmfView.RES
    │          
    ├─19. 多重文件界面
    │  └─程序19-1
    │          MDIDemo.bat
    │          MDIDemo.dpr
    │          MDIDemo.rc
    │          MDIDemo.RES
    │          
    ├─2. Unicode简介
    │  └─程序2-1
    │          ScrnSize.dpr
    │          
    ├─20. 多任务和多线程
    │  ├─程序20-1
    │  │      RndRctMT.dpr
    │  │      
    │  ├─程序20-2
    │  │      Multi1.dpr
    │  │      
    │  ├─程序20-3
    │  │      Multi2.dpr
    │  │      
    │  ├─程序20-4
    │  │      BigJob1.dpr
    │  │      
    │  └─程序20-5
    │          BigJob2.dpr
    │          
    ├─21. 动态链接库
    │  ├─程序21-1
    │  │      EDRLib.dpr
    │  │      
    │  ├─程序21-2
    │  │      EDRTest.dpr
    │  │      
    │  ├─程序21-3
    │  │      StrLib.dpr
    │  │      
    │  ├─程序21-4
    │  │      StrProg.bat
    │  │      StrProg.dpr
    │  │      StrProg.rc
    │  │      StrProg.RES
    │  │      
    │  ├─程序21-5
    │  │      BitLib.bat
    │  │      BitLib.dpr
    │  │      BitLib.Rc
    │  │      BitLib.RES
    │  │      Bitmap1.bmp
    │  │      Bitmap2.bmp
    │  │      Bitmap3.bmp
    │  │      Bitmap4.bmp
    │  │      Bitmap5.bmp
    │  │      Bitmap6.bmp
    │  │      Bitmap7.bmp
    │  │      Bitmap8.bmp
    │  │      Bitmap9.bmp
    │  │      
    │  └─程序21-6
    │          ShowBit.dpr
    │          
    ├─22. 声音与音乐
    │  ├─程序22-1
    │  │      TestMci.bat
    │  │      TestMci.dpr
    │  │      TestMci.rc
    │  │      TestMci.RES
    │  │      
    │  ├─程序22-10
    │  │      Drum.bat
    │  │      Drum.dpr
    │  │      Drum.ico
    │  │      Drum.rc
    │  │      Drum.RES
    │  │      DrumFile.pas
    │  │      DrumTime.pas
    │  │      
    │  ├─程序22-2
    │  │      SineWave.bat
    │  │      SineWave.dpr
    │  │      SineWave.rc
    │  │      SineWave.RES
    │  │      
    │  ├─程序22-3
    │  │      Record1.bat
    │  │      Record1.dpr
    │  │      Record1.rc
    │  │      Record1.RES
    │  │      
    │  ├─程序22-4
    │  │      Record2.dpr
    │  │      record2.wav
    │  │      
    │  ├─程序22-5
    │  │      Record3.dpr
    │  │      
    │  ├─程序22-6
    │  │      AddSynth.bat
    │  │      AddSynth.dpr
    │  │      AddSynth.rc
    │  │      AddSynth.RES
    │  │      
    │  ├─程序22-7
    │  │      WakeUp.dpr
    │  │      
    │  ├─程序22-8
    │  │      BachTocc.dpr
    │  │      
    │  └─程序22-9
    │          KBMidi.dpr
    │          
    ├─23. 领略Internet
    │  ├─程序23-1
    │  │      NetTime.bat
    │  │      NetTime.dpr
    │  │      NetTime.rc
    │  │      NetTime.RES
    │  │      
    │  └─程序23-2
    │          UpdDemo.bat
    │          UpdDemo.dpr
    │          UpdDemo.rc
    │          UpdDemo.RES
    │          
    ├─3. 窗口和消息
    │  └─程序3-1
    │          HelloWin.dpr
    │          
    ├─4. 输出文字
    │  └─程序4-1~程序4-4
    │          SysMets.pas
    │          SysMets1.dpr
    │          SysMets2.dpr
    │          SysMets3.dpr
    │          
    ├─5. 图形基础
    │  ├─程序5-1
    │  │      DevCaps1.dpr
    │  │      
    │  ├─程序5-2
    │  │      SineWave.dpr
    │  │      
    │  ├─程序5-3
    │  │      LineDemo.dpr
    │  │      
    │  ├─程序5-4
    │  │      Bezier.dpr
    │  │      
    │  ├─程序5-5
    │  │      AltWind.dpr
    │  │      
    │  ├─程序5-6
    │  │      WhatSize.dpr
    │  │      
    │  ├─程序5-7
    │  │      RandRect.dpr
    │  │      
    │  └─程序5-8
    │          Clover.dpr
    │          
    ├─6. 键盘
    │  ├─程序6-1
    │  │      SysMets.pas
    │  │      SysMets4.dpr
    │  │      
    │  ├─程序6-2
    │  │      KeyView1.dpr
    │  │      
    │  ├─程序6-3
    │  │      StokFont.dpr
    │  │      
    │  ├─程序6-4
    │  │      KeyView2.dpr
    │  │      
    │  └─程序6-5
    │          Typer.dpr
    │          
    ├─7. 鼠标
    │  ├─程序7-1
    │  │      Connect.dpr
    │  │      
    │  ├─程序7-2
    │  │      Checker1.dpr
    │  │      
    │  ├─程序7-3
    │  │      Checker2.dpr
    │  │      
    │  ├─程序7-4
    │  │      Checker3.dpr
    │  │      
    │  ├─程序7-5
    │  │      Checker4.dpr
    │  │      
    │  ├─程序7-6
    │  │      BlokOut1.dpr
    │  │      
    │  ├─程序7-7
    │  │      BlokOut2.dpr
    │  │      
    │  └─程序7-8
    │          SysMets.dpr
    │          uSysMets.pas
    │          
    ├─8. 定时器
    │  ├─程序8-1
    │  │      Beeper1.dpr
    │  │      
    │  ├─程序8-2
    │  │      Beeper2.dpr
    │  │      
    │  ├─程序8-3
    │  │      DigClock.dpr
    │  │      
    │  ├─程序8-4
    │  │      Clock.dpr
    │  │      
    │  └─程序8-5
    │          WhatClr.dpr
    │          
    └─9. 子窗口控件
        ├─程序9-1
        │      BtnLook.dpr
        │      
        ├─程序9-2
        │      OwnDraw.dpr
        │      
        ├─程序9-3
        │      Colors1.dpr
        │      
        ├─程序9-4
        │      PopPad1.dpr
        │      
        ├─程序9-5
        │      Environ.dpr
        │      
        └─程序9-6
                head.dpr