Переводчик с VB6 на Delfi 7

Web/сайты Прочее

Был(а) онлайн: 09.12.18 17:23
Umen 24 года

1.0 Был(а) онлайн: 09.12.18 17:23

Недавно
Проект в несколько тысяч строк на вб6 нужно перевести в делфи
проекст состоит из под планов = несколько ехе
нужно объединить всё в одно дельфи план ехе

Дополнение (Ср, 14 Марта 2007 00:31):
Example

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 <> 0 Then
#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, _

Чтобы добавить заявку к этому заказу, нужно войти или зарегистрироваться

Мой блок

09.12.18 17:23
Umen 24