Сейчас использую следующую оберточку (см. внизу письма) для API-шной функции. Но работает нестабильно - если раскоментировать строку то программа валится через раз
Кто-нибудь знает как все-же победить вывод ProgressTitle ???
- Код: Выделить всё
Private Function SHFileOperation(Sh As SHFILEOPSTRUCT, sTitle As String) As Long
Dim sa() As Byte, iLenSh As Long
'If Len(sTitle) Then Sh.lpszProgressTitle = sTitle & vbNullChar & vbNullChar
iLenSh = LenB(Sh)
ReDim sa(1 To iLenSh)
CopyMemory sa(1), Sh, iLenSh
CopyMemory sa(19), sa(21), 12
SHFileOperation = SHFileOperationA(sa(1))
CopyMemory sa(21), sa(19), 12
CopyMemory Sh, sa(1), iLenSh
End Function
Да, используется VB6 & SP6
