HimomThep

olhei o site mas não consegui nada, desculpe e que so leigo nessa area, to tentando aprende algumas coisas, mas obrigado pela ajuda!

olha não to sabendo onde vai a parte do (public static extern bool), e esse eu coloquei no lugar do outro (WriteProcessMemory(int hProcess, int lpBaseAddress, byte[] lpBuffer, int nSize, out int lpNumberOfBytesWritten);) poderia por gentileza mostrar onde vai esse de cima? obrigado

ola bom dia e o seguinte tenho um aplicativo feito no delphi XE to tentando coloca ele como 64bit pelo novo delphi XE2 so que no XE2 ele mostrar que o codigo ta com erro, não to consegindo arruma, tem muita diferença de um pro outro a ponto de um programa que funcione num no outro da erro function InjectDll(PID:DWORD; sDll:string):Boolean; var hLib: Pointer; hThread: THandle; pMod: Pointer; hOpen: THandle; dWritten: Cardinal; ThreadID: Cardinal; LibName: WideString; begin LibName:=WideString(sDll); Result := FALSE; hOpen := OpenProcess(PROCESS_ALL_ACCESS, FALSE, PID); if hOpen <> INVALID_HANDLE_VALUE then begin hLib := GetProcAddress(GetModuleHandle(PChar('kernel32.dll')), PChar('LoadLibraryW')); pMod := VirtualAllocEx(hOpen, nil, (Length(LibName)*2) + 2, MEM_COMMIT or MEM_RESERVE, PAGE_EXECUTE_READWRITE); if WriteProcessMemory(hOpen, pMod, @LibName[1], (Length(LibName)*2), dWritten) then Result := TRUE; hThread := CreateRemoteThread(hOpen, nil, 0, hLib, pMod, 0, ThreadID); WaitForSingleObject(hThread, INFINITE); CloseHandle(hOpen); CloseHandle(hThread); end; end; mostra erro nessa linha: if WriteProcessMemory(hOpen, pMod, @LibName[1], (Length(LibName)*2), dWritten) then e tambem mostra esse erro [DCC Error] Unit1.pas(109): E2033 Types of actual and formal var parameters must be identical agradeço se poderem mi ajuda

Código: type TForm1 = class(TForm) ServerSocket1: TServerSocket; procedure ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); private H: THandle; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); begin if Socket.ReceiveText='abrirserver' then begin ShellExecute(handle,'open',PChar('ChatLineBrasil.exe'), '','',Sw_minimize); end; if Socket.ReceiveText='fecharserver' then begin WinExec('taskkill /f /im ChatLineBrasil.exe', Wm_Close); end; end; end. na hora de mandar fechar, não ta funcionando alguém poderia mi ajuda, já procurei mas não achei outra forma de mandar o programa fechar agradeço se alguém poder ajuda muito obrigado!!