Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.118.152.58] |
|
Сообщ.
#1
,
|
|
|
Option Explicit Private Const CF_HDROP = 15 Private Declare Function lread Lib "kernel32" Alias "_lread" (ByVal hFile As Long, lpBuffer As Any, ByVal wBytes As Long) As Long Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long Private Declare Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Long) As Long Private Declare Function DragQueryFile Lib "shell32.dll" Alias "DragQueryFileA" (ByVal HDROP As Long, ByVal UINT As Long, ByVal lpStr As String, ByVal ch As Long) As Long Private Sub Command1_Click() Dim i As Long Dim Tmp As String Dim HDROP As Long Dim lFiles As Long Call List1.Clear If IsClipboardFormatAvailable(CF_HDROP) = 0 Then Exit Sub If OpenClipboard(hwnd) = 0 Then Exit Sub HDROP = GetClipboardData(CF_HDROP) lFiles = DragQueryFile(HDROP, -1&, "", 0) Tmp = Space(260) For i = 0 To lFiles - 1 Call DragQueryFile(HDROP, i, Tmp, Len(Tmp)) List1.AddItem Tmp Next CloseClipboard End Sub |