Bom pessoal , estou iniciando nessa programação, e estava ajudando um amigo com uma source mas ele não funcionou e não encontrei nenhum possivel erro. ela está em pascal. gostaria de converter ela pra C++ pois acho mais facil pra mim pois estou começando. vou postar ela aki, e gostaria de se possivel alguém com mais conheçimento podesse me ajudar a converter ela para C++ . eu Usei até o Delphi to C++ Builder mas Não deu certo pois ele não converte certo e da muitos erros quando tento compilar. Desde já Agradeço a Todos. Procedure Bitch; begin Beep(500,502); While true do PINTEGER($03132580)^:= (1234859904); PINTEGER($0313257C)^:= (1234859904); PINTEGER($03132584)^:= (1234859904); sleep(200); end; Procedure Xtrap(Reason: DWORD); var MAD:THandle; FUT:Cardinal; begin if (Reason = DLL_PROCESS_ATTACH) then MAD:=OpenProcess(PROCESS_ALL_ACCESS,True,GetCurrentProcessID); CreateRemoteThread(MAD,0,0,@Bitch,0,0,FUT); if (Reason = DLL_PROCESS_DETACH) then FreeLibraryAndExitThread(HInstance,0); end; begin DllProc := @Bitch; Xtrap(DLL_PROCESS_ATTACH); end. Quarquer coisa tá ai o MSN : diegodac_1@hotmail.com
