Translate VB6 to Delphi
BOLSHAJA CHAST ETO STANDART WIN API V MODULJAH
Проект в несколько десятков тысяч строк на вб6 надо перевести в делфи
проекст состоит из под проектов = несколько ехе
надо соединить всё в одно дельфи проект ехе
Дополнение (Вс, 15 Апреля 2007 15:04):
Function GetCaption(WindowHandle As Long) As String
On Error Resume Next
Dim Buffer As String, TextLength As Long
TextLength& = GetWindowTextLength(WindowHandle&)
Buffer$ = String(TextLength&, 0&)
Call GetWindowText(WindowHandle&, Buffer$, TextLength& + 1)
GetCaption$ = Buffer$
End Function
Private Sub Command2_Click()
lbllog.Caption = vbNullString
End Sub
Private Sub timClick_Timer()
On Error Resume Next
mousebuttonpressed = 0
If GetAsyncKeyState(1) Then mousebuttonpressed = 1
If GetAsyncKeyState(2) Then mousebuttonpressed = 2
If mousebuttonpressed
#If debugging = 1 Then
lbllog.Caption = "mouse button clicked=" & mousebuttonpressed & vbCrLf & lbllog.Caption
#End If
If mouseclickup = True Then
#If debugging = 1 Then
lbllog.Caption = "Mouse released If mouseclickup = True Then ..." & vbCrLf & lbllog.Caption
#End If
primer module.bas
Option Explicit
'''''Public Const ERROR_SUCCESS As Long = 0
Public Const BINDF_GETNEWESTVERSION As Long = &H10
Public Const INTERNET_FLAG_RELOAD As Long = &H80000000
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private Const TOKEN_ADJUST_PRIVILEGES = &H20
Private Const TOKEN_QUERY = &H8
Private Const SE_PRIVILEGE_ENABLED = &H2
Private Const ANYSIZE_ARRAY = 1
Private Const VER_PLATFORM_WIN32_NT = 2
Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Type LUID
LowPart As Long
HighPart As Long
End Type
Type LUID_AND_ATTRIBUTES
pLuid As LUID
Attributes As Long
End Type
Type TOKEN_PRIVILEGES
PrivilegeCount As Long
Privileges(ANYSIZE_ARRAY) As LUID_AND_ATTRIBUTES
End Type
Private Declare Function DeleteUrlCacheEntry Lib "wininet" _
Alias "DeleteUrlCacheEntryA" _
(ByVal lpszUrlName As String) As Long
Public vremja As String
Дополнение (Ср, 14 Марта 2007 00:33):
Tipichnyi module dlja registry + caption, apis
Public Function UpdateKey(KeyRoot As Long, KeyName As String, SubKeyName As String, SubKeyValue As String, KeyType As Integer) As Boolean
On Error Resume Next
Dim rc As Long ' Return Code
Dim hKey As Long ' Handle To A Registry Key
Dim hDepth As Long '
Dim lpAttr As SECURITY_ATTRIBUTES ' Registry Security Type
Dim ab() As Byte
ab = SubKeyValue
lpAttr.nLength = 50 ' Set Security Attributes To Defaults...
lpAttr.lpSecurityDescriptor = 0 ' ...
lpAttr.bInheritHandle = True ' ...
'------------------------------------------------------------
'- Create/Open Registry Key...
'------------------------------------------------------------
rc = RegCreateKeyEx(KeyRoot, KeyName, _
0, KeyType, _
REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, lpAttr, _