| Вопрос: _lclose | Добавлено: 15.11.03 16:53 |
Автор вопроса:  BuilderSoft
|
|
Declare Function lClose Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) As Long Функция определяет если программа работает Private Function IsFileAlreadyOpen(FileName As String) As Boolean Dim hFile As Long Dim lastErr As Long ' Initialize file handle and error variable. hFile = -1 lastErr = 0 ' Open for for read and exclusive sharing. hFile = lOpen(FileName, &H10) ' If we couldn't open the file, get the last error. If hFile = -1 Then lastErr = Err.LastDllError Else ' Make sure we close the file on success. lClose (hFile) End If ' Check for sharing violation error. sFileAlreadyOpen = (hFile = -1) And (lastErr = 32) End Function Private Sub Form_Load() MsgBox IsFileAlreadyOpen("c:\autoexec.bat") End Sub Как сделать в XP ????? |
| Ответы | Всего ответов: 0 |
Страница: