touch.rc

这一系列是我平时收集的pascal深入核心编程

// Define
 #define IDD_TOUCH 103
 #define IDI_TOUCH 104
 #define IDC_UPDATECREATETIME 1000
 #define IDC_UPDATELASTACCESSTIME 1001
 #define IDC_UPDATEMODIFIEDTIME 1002
 #define IDC_SYSTEMTIME 1003

// Dialog
 IDD_TOUCH DIALOG DISCARDABLE -32768, 5, 100, 48
   STYLE WS_MINIMIZEBOX | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
   CAPTION "Touch"
   FONT 8, "MS Sans Serif"
 BEGIN
   CONTROL "Update &creation time", IDC_UPDATECREATETIME, "Button", BS_AUTOCHECKBOX | WS_TABSTOP, 4, 4, 79, 10
   CONTROL "Update &last-access time", IDC_UPDATELASTACCESSTIME, "Button", BS_AUTOCHECKBOX | WS_TABSTOP, 4, 18, 89, 10
   CONTROL "Update &modified time", IDC_UPDATEMODIFIEDTIME, "Button", BS_AUTOCHECKBOX | WS_TABSTOP, 4, 32, 80, 10
 END

// Icon
 IDI_TOUCH ICON DISCARDABLE "Touch.ico"