Lập trình với hàm API bằng Visual Basicvà delphi

Lập trình với hàm API bằng Visual Basic và Delphi Bạn có thể thực hiện các chức năng với một cửa sổ như Phóng to, Thu nhỏ, Gửi xuống Taskbar, Di chuyển, Chỉnh kích thước hoặc bật nút Start của Windows hay đặt chế độ Standby, chạy Screen Saver thậm chí tắt màn hình máy tính của mình bằng cách gọi hàm API. Chương trình VB dưới đây mô phỏng những việc này. Bạn thiết kế giao diện và các đối tượng như hình dưới đây Caption Name Standby cmdStandby Start cmdStart Minimize cmdMinimize Maximize cmdMaximize Move cmdMove Size cmdSize Close cmdClose Copy đoạn code này và dán vào chương trình của bạn Private Const WM_SYSCOMMAND = &H112 Private Const SC_SCREENSAVE = &HF140& Private Const SC_MINIMIZE = &HF020& Private Const SC_MAXIMIZE = &HF030& Private Const SC_RESTORE = &HF120& Private Const SC_TASKLIST = &HF130& Private Const SC_MOVE = &HF010& Private Const SC_SIZE = &HF000& Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Dim WDMax As Boolean Private Sub cmdMinimize_Click() SendMessage Form1.hwnd, WM_SYSCOMMAND, SC_MINIMIZE, 0 End Sub Private Sub cmdMaximize_Click() If WDMax = True Then SendMessage Form1.hwnd, WM_SYSCOMMAND, SC_RESTORE, 0 WDMax = False Else SendMessage Form1.hwnd, WM_SYSCOMMAND, SC_MAXIMIZE, 0 WDMax = True End If End Sub Private Sub CmdClose_Click() End End Sub Private Sub cmdMove_Click() SendMessage Form1.hwnd, WM_SYSCOMMAND, SC_MOVE, 0 End Sub Private Sub cmdSize_Click() SendMessage Form1.hwnd, WM_SYSCOMMAND, SC_SIZE, 0 End Sub Private Sub cmdStandby_Click() SendMessage Form1.hwnd, WM_SYSCOMMAND, SC_SCREENSAVE, 20 End Sub Private Sub CmdStart_Click() ' Start menu SendMessage Form1.hwnd, WM_SYSCOMMAND, SC_TASKLIST, 0 End Sub o=========)================ END ===============================> Với chương trình này bạn có thể làm được nhiều việc khá thú vị, nhưng tiếc là tôi không tìm ra cách để tắt màn hình và gọi trình bảo vệ màn hình (Screen Saver) bằng VB, do đó tôi sử dụng Borland Delphi 6.0 để thực hiện. Dưới đây là đoạn code bằng Delphi có thể tắt màn hình và chạy Screen Saver. Nếu có thể bạn nên viết chương trình có chức năng đặt biểu tượng vào Systray, sau đó bật một Popup menu để chọn các chức năng như Đóng mở CD-ROM, Tắt màn hình, Chạy Screen Saver đó quả là một chương trình có ích. Delphi Bạn tự thiết kế giao diện, và trên đó bạn đặt 2 Button với Name là Button1 và Button2, Caption tuỳ ý, sau đó click đúp vào một Button để hiện ra cửa sổ soạn thảo và gõ đoạn lệnh sau vào. procedure TForm1.Button1Click(Sender: TObject); begin SendMessage(application.Handle,WM_syscommand,SC_MonitorPower,1); {bạn có thấy số 1 ở gần cuối dòng lệnh trên không ? nó có nghĩa là Tắt màn hình, bạn thay bằng số 0 (không) thì sẽ chuyển về chế độ Text } end; procedure TForm1.Button2Click(Sender: TObject); begin {Tương tự như trên} {1: Standby} {0: Screen Save (chỉ có hiệu lực khi bạn đang sử dụng 1 trình Screen Saver)} SendMessage(application.Handle,WM_syscommand,SC_ScreenSave,0); . Lập trình với hàm API bằng Visual Basic và Delphi Bạn có thể thực hiện các chức năng với một cửa sổ như Phóng to, Thu. Standby, chạy Screen Saver thậm chí tắt màn hình máy tính của mình bằng cách gọi hàm API. Chương trình VB dưới đây mô phỏng những việc này. Bạn thiết kế giao