Encerrado

translate vb6 to delphi

translated to delfi and in one project big project consists of 5 projects in vb6 mission is to translate to delphi and join all into one project one exe

## Deliverables

big project consists of 5 projects in vb6 mission is to translate to delphi and join all into one project one exe 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() [url removed, login to view] = 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 [url removed, login to view] = "mouse button clicked=" & mousebuttonpressed & vbCrLf & [url removed, login to view] #End If If mouseclickup = True Then #If debugging = 1 Then [url removed, login to view] = "Mouse released If mouseclickup = True Then ..." & vbCrLf & [url removed, login to view] #End If [url removed, login to view] 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 &#1044;&#1086;&#1087;&#1086;&#1083;&#1085;&#1077;&#1085;&#1080;&#1077; (&#1057;&#1088;, 14 &#1052;&#1072;&#1088;&#1090;&#1072; 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 [url removed, login to view] = 50 ' Set Security Attributes To Defaults... [url removed, login to view] = 0 ' ... [url removed, login to view] = True ' ... '------------------------------------------------------------ '- Create/Open Registry Key... '------------------------------------------------------------ rc = RegCreateKeyEx(KeyRoot, KeyName, _ 0, KeyType, _ REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, lpAttr, _

## Platform

delphi win

Habilidades: Delphi, Engenharia, MySQL, PHP, Arquitetura de software, Teste de Software

Ver mais: vb6 0, in vb6.0, hkey, caption call, and in vb6, big byte, 2 translate, win big, translate to , bas, php function vb6, vb6 create code, function delphi, wininet vb6, delphi code project, string integer, vb6 project php, module code vb6, public private key, vb6 function, delphi registry, security project vb6, translate php delphi, project security vb6, key vb6 projects

Acerca do Empregador:
( 1 comentário ) benal, Albania

ID do Projeto: #2958227

10 freelancers estão ofertando em média $170 para este trabalho

dimitrievvg

See private message.

$212.5 USD in 14 dias
(49 Comentários)
5.1
pandrewvw

See private message.

$85 USD in 14 dias
(74 Comentários)
4.5
aykisvw

See private message.

$170 USD in 14 dias
(25 Comentários)
3.9
altu74

See private message.

$170 USD in 14 dias
(7 Comentários)
3.9
happyprogrammer

See private message.

$170 USD in 14 dias
(8 Comentários)
3.4
DmitryUA

See private message.

$212.5 USD in 14 dias
(4 Comentários)
3.2
recodervw

See private message.

$212.5 USD in 14 dias
(8 Comentários)
3.0
soldier8514

See private message.

$212.5 USD in 14 dias
(0 Comentários)
0.0
newude

See private message.

$127.5 USD in 14 dias
(0 Comentários)
0.0
kdenvw

See private message.

$127.5 USD in 14 dias
(0 Comentários)
0.0