Код для работы с fileed.dll

[All_Ex]

Выкладываю код VB6 для использования fileed.dll.(двое просили)

Private Declare Function FileEdit Lib "e:\VB6.0\Проект\fileed\fileed. dll" (ByVal hEdit As Long) As Long
Private Declare Function EditFile Lib "e:\VB6.0\Проект\fileed\fileed. dll" (ByVal hEdit As Long) As Long

Private Sub Command1_Click() 'ввод файла в Edit
Dim Rf As Long
Dim hEdit As Long
hEdit = Text1.hWnd
Rf = FileEdit(hEdit)
End Sub

Private Sub Command2_Click() 'вывод Edit в файл
Dim Rf As Long
Dim hEdit As Long
hEdit = Text1.hWnd
Rf = EditFile(hEdit)
End Sub

Private Declare Function SumCod Lib "e:\VB6.0\Проект\CRC32\fileed.d ll" (ByVal FileName As String) As Long

Private Sub Command1_Click() 'вычисление CRC32 файла
Dim FileName As String
Dim Rez As Long
Dim Sum As String
FileName = "E:\dUp.exe"
Rez = SumCod(FileName)
Sum = Hex(Rez)
Text1.Text = Sum
End Sub

Пути напишите свои.Получите стандартные диалоговые окна или CRC32 файла на выходе.
Желаю удачи.