TJumpListDemo 项目分析¶
项目信息¶
- 项目名称: TJumpListDemo
- 下载链接: TJumpListDemo.rar
- 分析时间: 2026-03-05
文件结构¶
TJumpListDemo/
├── Extractor_Icon.ico
├── Project1.py
├── Project1.xml
├── Unit1.py
├── Unit1.pydfm
├── Unit1.sct
├── Unit1.sfm
主程序文件: Project1.py¶
from glcl import *
from Unit1 import *
def main():
Application.Initialize()
Application.Title = 'Project1'
Application.MainFormOnTaskbar = True
Application.Icon.LoadFromFile(os.path.join(os.path.dirname(os.path.abspath(__file__)), "Extractor_Icon.ico"))
MainForm = Form1(Application)
MainForm.Show()
FreeConsole()
Application.Run()
MainForm.Free()
if __name__ == '__main__':
main()
单元文件: Unit1.py¶
import os
from glcl import *
class Form1(Form):
def __init__(self, owner):
self.JumpList1 = JumpList(self)
self.LoadProps(os.path.join(os.path.dirname(os.path.abspath(__file__)), "Unit1.pydfm"))
# 设置AutoRefresh属性为True,并设置TaskList属性
# TaskList属性编辑器可以指定每一个TJumpListItem的Path和Icon
# Path可以是一个可执行程序的路径
# 右键任务栏图标,在弹出框中可以看到任务列表,是添加的TJumpListItem
# 点击每个TJumpListItem会打开相应Path指向的可执行程序
设计文件: Unit1.sct¶
设计文件: Unit1.sfm¶
object Form1: TForm
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 61
ClientWidth = 217
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'Segoe UI'
Font.Style = []
TextHeight = 20
object JumpList1: TJumpList
Enabled = True
CustomCategories = <>
TaskList = <
item
FriendlyName = 'Jump List Item 1'
end
item
Path = 'C:/Windows/Notepad.exe'
FriendlyName = 'Jump List Item 2'
end
item
Path = 'C:/Windows/System32/Calc.exe'
FriendlyName = 'Jump List Item 3'
end>
Left = 24
Top = 16
end
end
其他文件¶
- Extractor_Icon.ico
- Project1.xml
详细分析¶
功能概述¶
GUI组件演示
使用的组件¶
- Form1 (TForm)
- JumpList1 (TJumpList)
技术特点¶
- 包含2个GUI组件
- 定义0个事件处理
窗体属性¶
- caption: Form1
- height: 61
- width: 217
代码分析¶
导入的模块: - import os - from glcl import *
定义的类: - Form1
定义的方法: - init