Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Microo10
23 / 18 / 0
Регистрация: 18.08.2011
Сообщений: 391
#1

Перевести код из c++ в delphi - C++

13.06.2012, 12:33. Просмотров 519. Ответов 0
Метки нет (Все метки)

Умоляю помогите,очень нужно((
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
/****************************************************************************
* *
* File : dllmain.c *
* *
* Purpose : Generic Win32 Dynamic Link Library (DLL). *
* *
* History : Date Reason *
* 00/00/00 Created *
* *
****************************************************************************/
 
#define WIN32_LEAN_AND_MEAN /* speed up */
#include <windows.h>
#include <windowsx.h>
#include <commctrl.h>
#include <tchar.h>
 
/*
* Include our "interface" file and define a symbol
* to indicate that we are *building* the DLL.
*/
#define _JF_NOREC_
#include "JF_NOREC.h"
 
#define WeaponMgr 0xC48B90
#define NoRecoil1 0x053C
#define NoRecoil2 0x06A4
#define NoRecoil3 0x2DC5
#define NoRecoil4 0x36F4
#define NoRecoil5 0x0EEC
#define NoRecoil6 0x1054
#define NoRecoil7 0x11BC
 
 
 
 
void Hacks()
{
 
 
DWORD cCShell = (DWORD)GetModuleHandleA( "CShell.dll" );
DWORD pWeaponMgr = *(DWORD*)(cCShell + WeaponMgr);
 
float recoil_Value=0.0f;
while(1)
{
 
if (pWeaponMgr) 
{
for(int i=0; i<577; i++) 
{
if((*(DWORD*)((*(DWORD*)(cCShell+WeaponMgr))+(4*i)) ) != 0) 
{
DWORD pNoRecoil = *(DWORD*)(pWeaponMgr + (4*i));
for(int y=0; y<9; y++)
{
if(pNoRecoil) 
{
*(float*)(pNoRecoil + (NoRecoil1 + (4*y))) =recoil_Value;
*(float*)(pNoRecoil + (NoRecoil2 + (4*y))) =recoil_Value;
*(float*)(pNoRecoil + (NoRecoil3 + (4*y))) = recoil_Value;
*(float*)(pNoRecoil + (NoRecoil4 + (4*y))) = recoil_Value;
*(float*)(pNoRecoil + (NoRecoil5 + (4*y))) = recoil_Value;
*(float*)(pNoRecoil + (NoRecoil6 + (4*y))) = recoil_Value;
*(float*)(pNoRecoil + (NoRecoil7 + (4*y))) = recoil_Value;
 
}
}
}
}
}
 
Sleep(200);
 
}
}
/****************************************************************************
* *
* Function: DllMain *
* *
* Purpose : DLL entry and exit procedure. *
* *
* History : Date Reason *
* 00/00/00 Created *
* *
****************************************************************************/
 
BOOL APIENTRY DllMain(HINSTANCE hInstDLL, DWORD fdwReason, LPVOID lpvReserved)
{
static int AlreadeRunned=0;
if(!AlreadeRunned)
{
DisableThreadLibraryCalls(hInstDLL);
CreateThread(0, 0, (LPTHREAD_START_ROUTINE)Hacks,0, 0, 0);
AlreadeRunned=1;
MessageBeep(MB_OK);
MessageBox(0,"NoRecoil run! Enjoy ;)","www.crazyfrost.com",MB_OK);
}
/* Return success */
return TRUE;
}
 
Источник: [url]http://fpteam-cheats.com/board/showthread.php?t=180943&page=6[/url]
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.06.2012, 12:33
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести код из c++ в delphi (C++):

Перевести код программы из Delphi в C++ - C++
Добрый день! Стоит задача транслировать код из Delphi в C++. Среда Embarcodero. Вроде бы ничего сложного, точки на стрелки меняй себе и...

перевести код на С++ или написать свой код - C++
Задано предложение. Составить программу вывода на экран слов, в которых первая и последняя буквы совпадают. program Project1; ...

Visual c++ код перевести в gcc linux код - C++
Ниже есть код. Нужно сделать так, что бы он компилировался и работал в линуксе(компиляция с помощью gcc). #include &quot;stdio.h&quot; #pragma...

Перевести код программы Паскаля в код С++ - C++
В массиве Х (15) найти произведение и количество элементов расположенных между наибольшими и наименьшими элементами кто может перевести...

Перевести с Delphi на C/C++. - C++
program zadacha5; {$APPTYPE CONSOLE} uses SysUtils; var a,b,s,k,v :real ; begin

Перевести с DELPHI в С++ - C++
Кто-нибудь сможет помочь переписать код с delphi на с++? И вообще возможно ли это?

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.06.2012, 12:33
Привет! Вот еще темы с ответами:

Перевести функцию с Delphi на C++ - C++
Ребята, может кто знает хотя бы примерно C или C++ , не понимаю код делфи, а функция на нём. type TSingleArray = Array of Single; ...

Перевести простую программку с Delphi - C++
Имеется программа на Delphi. Нужно перевести на C++ procedure TForm1.Button1Click(Sender: TObject); var s, sum, i, j, n: integer; p:...

Перевести код на c++ - C++
Всем привет! Столкнулся с такой проблемой... есть код на freebasic нужно его перевести на с++... Ну вот что-то никак не выходит... ...

Перевести код с C# на C++ - C++
using System; using System.Collections.Generic; using System.Linq; using System.Text; namespace ConsoleApplication1 { ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru