Fungsi Windows API

Kali ini saya Posting tentrang WINDOWS API, Windows API (Application Programming Interface) merupakan kumpulan fungsi-fungsi eksternal yang terdapatdalam file-file perpustakaan windows (selanjutnya sering disebut sebagai libary windows) atau file libary lainnya yang dapat digunakan oleh program kita. Fungsi ini dapat menangani semua yang berhubungan dengan Windows, seperti pengaksesan disk, interface printer, grafik windows, kotak dialog (buka file, simpan file, memilih font, memilih warna, dan lain-lain), windows shell, settings sistem komputer, penanganan file, mengakses sistem registry, memainkan musik, dan sebagainya. Fungsi ini menyediakan fitur-fitur standar untuk semua program yang berbasis windows.
Semua fungsi windows API hampir terdapat dalam direktor sistem milik windows (biasanya terdapat dalam direktori C:\Windows\System dan C:\Windows, bergantung pada setting pertama installasi Windows) dan paling banyak berekstensi .DLL yang digunakan oleh sistem operasi windows.
Selain itu fungsi ini juga untuk memastikan secara konsisten penggunaan semua sumber yang terdapat dalam Windows. File-file itulah yang disebut dengan Windows API.
Kali ini, windows API yang saya buat adalah untuk me'rename drive, menghapus recent document, dan juga menutup program windows yang sedang berjalan, okelah cek it dot...

       

MENGGANTI LABEL DRIVE Option Explicit Private Declare Function SetVolumeLabel Lib "kernel32" Alias "SetVolumeLabelA" (ByVal lpRootPathName As String, ByVal lpVolumeName As String) As Long Public Function ChangeVolumeLabel(DriveLetter As String, _    NewDriveVolume As String) As Boolean 'Example: 'ChangeVolumeLabel("C:\", "CDrive")     Dim lAns As Long On Error Resume Next lAns = SetVolumeLabel(DriveLetter, NewDriveVolume) ChangeVolumeLabel = (lAns <> 0)     End Function

       

MENGHAPUS RECENT DOCUMENT Option Explicit Private Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long, ByVal PV As String) Public Function ClearDocumentsMenu() As Boolean     'Returns true if successful, false otherwise     SHAddToRecentDocs 2, vbNullString     ClearDocumentsMenu = Err.LastDllError = 0 End Function

       

MENUTUP PROGRAM YANG SEDANG BERJALAN Option Explicit 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 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Const WM_CLOSE = &H10 Public Sub CloseProgram(ByVal Caption As String)  Dim Handle As Variant  Handle = FindWindow(vbNullString, Caption)  If Handle = 0 Then Exit Sub  SendMessage Handle, WM_CLOSE, 0&, 0& End Sub

Buat sebuah 3 buah module, lalu paste'kan script diatas dan buat form sesuai kreasi kalian...
Ok sekian dulu pembahasan windows API kali ini, semoga bisa bermanfaat.
download disini untuk mendownload program lengkapnya