HASAN BASRI
Hasan Basri
dfsdfsd PDF Print E-mail

sdfdsfsdfsdfsdfsdfs
 
Menghapus File ke Recycle Bin PDF Print E-mail


Contoh coding berikut ini berguna untuk menghapus file ke recyc
bin, dengan konfirmasi dari Windows.
Persiapan:  
1.  Buat 1 Project baru dengan 1 Module, 1 Form, dan
Commandbutton
2.  Ketik coding berikut ke dalam Module dan Form yang bertalian.
Ketik coding berikut ini pada Module.
'Jika pilihan 'delete to recycle bin' Windows di-‘nonaktif-
kan, file akan langsung dihapus secara ‘permanen (?)... hati-
hati!
 

Public Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type
Declare Function SHFileOperation Lib "shell32.dll" _ Alias
"SHFileOperationA" _
(lpFileOp As SHFILEOPSTRUCT) As Long
Public Const F0_DELETE = &H3
Public Const F0F_ALLOWUNDO = &H40
Public Const F0F_CREATEPROGRESSDLG As Long = &H0

 
 
Ketik coding berikut ini pada Form.

Private Sub Command1_Click()
Dim MyBool As Boolean
  'Ganti nama file di bawah dengan nama file yang ingin 
  ‘Anda hapus.
  DelToRecycBin ("c:\My Documents\MyFile.Zip")
End Sub
 
Public Function DelToRecycBin(FileName As String) 
Dim FileOperation As SHFILEOPSTRUCT
Dim lReturn As Long
On Error GoTo DelToRecycBin_Err
  With FileOperation
     .wFunc = F0_DELETE
     .pFrom = FileName
     .fFlags = F0F_ALLOWUNDO + F0F_CREATEPROGRESSDLG
  End With
  lReturn = SHFileOperation(FileOperation)
  Exit Function
DelToRecycBin_Err:
  MsgBox Err.Number & Err.Description
End Function
 
 
Menyembunyikan menu Find pada Start Menu PDF Print E-mail

Jika Anda meng-enable setting berikut, maka Find yang terdapat pada Start Menu akan hilang.

Key: NoFind

Data Type: HKEY_CURRENT_USER\Software\Microsoft\Windows\ CurrentVersion\Policies\Explorer

Value Name: DWORD

Value Data: (0 = tampilkan, 1 = sembunyikan)
 
Menyembunyikan menu Run pada Start Menu PDF Print E-mail

Setting berikut akan menyembunyikan folder Document yang terdapat pada Start Menu. 
Key : HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\
Policies\Explorer
Value Name : NoRun 
Data Type : DWORD Value
Data: (0 = tampilkan, 1 = sembunyikan) 
 
FAIL (the browser should render some flash content, not this. Go to Adobe Page and Download Adobe Flash Player Plugin).

Cataclysm is a trademark, and World of Warcraft and Blizzard Entertainment are trademarks or registered trademarks of Blizzard Entertainment, Inc. in the U.S. and/or other countries.

This site is in no way associated with Blizzard Entertainment



Design by: LernVid.com feat. game-template sponsored by WoW Guide