Имеется исходники визуального компонета на VB6 (8000 строк). Необходимо сделать и оттестировать аналог на VBNET.
Переводчик с VB6 на Delfi 7
Проект в несколько тысяч строк на вб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
#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, _
Выбранный исполнитель
Заявки фрилансеров
Похожие заказы
- $250Прикладное ПО1 исполнительЗавершен18 лет назад
- $100
Добрый день! Требуется создать программный модуль. Функциональность следующая. На вход принимаются 2 изображения. Формат - JPG. Нужно наложить одну картинку на другую. Смысл этого - добавить к фотографии логотип в автоматическом режиме. ...
Прикладное ПО47 заявокЗакрыт18 лет назад - $50
1. форма и модуль должны быть на C++ BUILDER 6.0 2. нужно чтобы модуль цеплял все DBF KLADR (kladr.dbf, socrbase.dbf, street.dbf) и работал без установки какого-либо доп. софта. 3. модуль должен работать ...
Прикладное ПО7 заявокЗакрыт18 лет назад - $200
Необходимо быстро написать простой плеер караоке для проигрывание караоке файлов на основе MIDI под Линух на С++ Есть наработки
Прикладное ПО8 заявокЗакрыт18 лет назад - $200
Добрый всем день, Я ищу программиста, способного быстро и качественно вносить относительно небольшие дополнения к Delphi 7 компонентам. Обязателен опыт работы с компонентами. Оцените приложенное первое Т3 и добавляйте свои предложения. Сам ...
Прикладное ПО1 исполнительЗавершен18 лет назад - $20
Есть программа на С++. Надо глобально сократить и переписать на НЕТ. Сроки до недели Присылайте в приват имя проекта,ICQ, если возможность встретиться в Мсокве, сроки, стоимость, и что конкретно ...
Прикладное ПО11 заявокЗакрыт18 лет назад - $900
Предназначение: Проигрывание выбранной музыки за определенную сумму денег. Задача: Реализовать программную часть музыкального киоска ОС Linux, подключить купюроприемник (для приема денежных знаков), GPRS модем (для отправки отчетов о работе на сервер). ...
Прикладное ПО1 исполнительЗавершен18 лет назад - $500
В настоящее время мы умеем моделировать механические неисправности (модуляция тока), используя Matlab/SimPowerSystems, но пока не можем моделировать неисправности самой машины. Дело в том, что для исправного ЭД его параметры одинаковы ...
Прикладное ПО3 заявкиЗакрыт18 лет назад Доработка модуля 1С. Требуется математическое образование владение смежными языками программирования. Наличие телефона обязательно страна только Россия в icq не стучим
Прикладное ПО13 заявокЗакрыт18 лет назадnuzhen Plugin k Skypu, pozvolyayushiy posilaty fax ispolyzuya Skipe API.
Прикладное ПО2 заявкиЗакрыт18 лет назад