Converter Codigo c+ para delphi

[Francis carlos]

Ola!!

já tentei usar um programa C2 Delphi pra converter + não ficou muito bom.

quero por este code em uma dll

#define WINNT 1 // Define for using EndTask API

#include <windows>

#include <conio>

#include <stdio>

struct ProcInfo

{

HWND hWnd;

DWORD dwProcId;

CHAR szTitle[255];

CHAR szClass[255];

};

void main()

{

DWORD dwProcId;

HWND hWnd;

ProcInfo mProc[255];

int mIdList[255];

int nCount = 0;

int nPID = 0;

int i = 0;

printf("Detectação de Processos Ocultos\n");

printf("Author: SNOT [snot@skinsmuonline.com]\n");

printf("Copyright ©SNOT, 2010 - Todos os Direitos Reservados\n\n");

hWnd = FindWindow(0,0);

while( hWnd > 0)

{

if (GetParent(hWnd) == 0) // && IsWindowVisible(hWnd)

{

GetWindowThreadProcessId(hWnd, &dwProcId);

// Kiem tra xem OpenProcess co bi chan bang Hooking khong ?

if (!OpenProcess(PROCESS_QUERY_INFORMATION, FALSE, dwProcId))

{

mProc[nCount].hWnd = hWnd;

mProc[nCount].dwProcId = dwProcId ;

GetWindowTextA(hWnd, mProc[nCount].szTitle, 255);

GetClassNameA(hWnd, mProc[nCount].szClass, 255);

printf("%2d. Processo Id: %d\n - Nome da Classe: %s\n - Janela Titulo: %s\n",

nCount+1, dwProcId, mProc[nCount].szClass, mProc[nCount].szTitle);

printf(" - Janela Encontrada: 0x%X\n - Status Janela: %s\n\n",

hWnd, IsWindowVisible(hWnd) ? "Shown" : "Hidden");

nCount++;

for (i = 0; i <nPID> 0)

{

printf("\n<?> Você Deseja Finalizar Todas (Y/N): ");

CHAR c = getchar();

if (c == 'Y' || c == 'y')

{

for (i = 0; i < nCount; i++)

{

if (IsWindow(mProc.hWnd)) // Cua so nay con ton tai khong ?

{

// Thu tat lan luot bang 4 buoc ?

SendMessageA(mProc.hWnd, WM_CLOSE, 0, 0); // 1. Close

SendMessageA(mProc.hWnd, WM_QUIT, 0, 0); // 2. Quit

SendMessageA(mProc.hWnd, WM_DESTROY, 0, 0); // 3. Destroy

EndTask(mProc.hWnd, FALSE, TRUE); // 4. EndTask

printf("\n [+] Encontrado Janelas 0x%08X de Processos de ID %4d. Terminado: ",

mProc.hWnd, mProc.dwProcId);

printf( IsWindow(mProc.hWnd) ? "Error" : "OK" ); // Kiem tra lai ket qua ?

}

}

}

}

printf("\n\nVISITE MEU WEBSITE:\n\n");

printf(" [+] http://www.google.com.br");

getch();

}

[Jhonas]

tente esse

http://www.delphi-jedi.org/files/darth/HeadConv.zip

abraço

[Francis carlos]

tente esse

http://www.delphi-jedi.org/files/darth/HeadConv.zip

abraço

não é bem isso

esse programa parece que da load em dll c+

o que eu quero é comverter o code esse programa num converte .cpp nem .h