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, _