Đưa tập tin CHM vào ứng dụng Visual Foxpro

Đó hỏi: Em có làm tiểu luận bằng Foxpro. Em muốn nhúng tập tin Help.chm vào thì phải làm sao? Xin cảm ơn quý báo.

Đây trả lời: Bạn có thể sử dụng các lệnh sau đây (nên đặt ở vị trí của lệnh chạy đầu tiên trong ứng dụng Visual Foxpro) để mỗi khi người sử dụng nhấn phím F1 thì nội dung tập tin Help.CHM được hiển thị:
SET HELP ON && Kích hoạt tác dụng của phím F1
SET HELP TO Help.CHM && Quy định tập tin trợ giúp (lưu ý đường dẫn đến tập tin này)
Nếu có nhu cầu trợ giúp theo ngữ cảnh (Context-Sensitive Help), nghĩa là: đang ở form nào, text box nào... mà nhấn phím F1 thì trợ giúp xuất hiện đúng nội dung chỉ định, về lý thuyết bạn phải xây dựng tập tin .CHM công phu hơn với việc đặt tên các mục (gọi là ContextID) thật chi tiết. Sau đó, để liên kết một đối tượng (ví dụ một text box) với một mục trong tập tin trợ giúp, bạn gán thuộc tính HelpContextID của đối tượng đó bằng với ContextID của mục này.
Bạn cũng có thể sử dụng cú pháp: Application.Help([cFileName] [, nContextID] [, cHelpTopic]) để mở một nội dung trợ giúp mong muốn. Ví dụ, gán lệnh sau đây cho một mục trên trình đơn của ứng dụng sẽ cho phép mở hộp thoại tìm kiếm như hình:
Application.Help("KeToan.HLP", , "CHUONG CAN CHIP”)
Chuỗi “CHUONG CAN CHIP” trong ví dụ trên chỉ dùng để đánh lừa Visual Foxpro, để nó mở hộp thoại tìm kiếm.
Lệnh sau đây cũng có thể mở tập tin Help.CHM:
Application.Help("Help.CHM", ,)

CHƯƠNG CAN CHÍP

Khóa và mở khóa lệnh Run

Đó hỏi: Em muốn khóa hộp thoại Run thì phải làm thế nào? Ngược lại muốn mở lại hộp thoại Run? Mong e-CHÍP chỉ cho em.

Đây trả lời: Để khóa (không cho sử dụng) hay mở khóa lịnh Run, cách nhanh nhất là bạn tạo 2 file như sau:
1. File khóa có tên khoarun.reg với nội dung:
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoRun"=dword:00000001
2. File mở khóa có tên mokhoarun.reg với nội dung giống như trên nhưng dòng NoRun có số cuối cùng là 0 thay vì 1 ("NoRun"=dword:00000000).
Khi muốn vô hiệu lịnh Run, bạn chỉ cần chạy file khoarun.reg (hay khi muốn cho hiệu lực trở lại lịnh Run, bạn chạy file mokhoarun.reg) trong Windows để thay đổi Registry rồi log off hay khởi động lại Windows.
Ngoài ra, bạn có thể cho đổi tên lịnh Run trong menu Star để che mắt người khác bằng cách tạo file doitenrun.vbs có nội dung:
Option Explicit
Set ws = WScript.CreateObject("WScript.Shell")
Dim ws, t, p1, n, cn, MyBox, Title
Dim itemtype
p1 = "HKCR\CLSID\{2559a1f3-21d7-11d4-bdaf-00c04f60b9f0}\"
n = ws.RegRead(p1 & "LocalizedString")
t = "Change the Name of Run on Start Menu"
cn = InputBox("Type in the name to replace Run with.", t, n)
If cn <> "" Then
ws.RegWrite p1 & "LocalizedString", cn
End If
Title = "Run on the Start Menu has now been renamed."
MyBox = MsgBox(Title,64,"Finished")

Khi cần đổi tên lịnh Run, bạn chạy file này rồi gõ tên mới trong hộp thoại của VBScript.

Phục hồi biểu tượng Show Desktop

[Đầu trang]