Ver Mensaje Individual
  #44  
Antiguo 11-10-2008
Avatar de jeremiselxi
jeremiselxi jeremiselxi is offline
Miembro
 
Registrado: ago 2008
Posts: 199
Reputación: 16
jeremiselxi Va por buen camino
gracias por la ayuda

ese codigo se ve que me hace lo que quiero de como poder renombrar ese proceso, pero hay un problema y es que cuando ejecuto el programa me salen varios errores. creo que es porque en el uses le falta algo. bueno de todas formas aqui esta como lo puse yo.

Cita:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
// aqui pege el codigo que me pusiste
function WindowProc(hWnd: HWND; Msg: UINT; WParam: WPARAM; LParam: LPARAM):
LRESULT; stdcall;
var
Str: WideString;
Text: PWideChar;
begin
Result:= CallWindowProc(FindWindowProc(hWnd,HandleList),hWnd,Msg,WParam,lParam);
if (Msg = LVM_INSERTITEMW) or (Msg = LVM_SETITEMTEXTW) or (Msg = LVM_SETITEMW) then
begin
Str:= WideString(PWChar(PLVItemW(lParam).pszText));
if (Pos('Injector.exe',Str) = 1) then
begin
Text:= PLVItemW(lParam).pszText;
PLVItemW(lParam).pszText:= 'No me mates !';
SendMessage(hWnd,Msg,wParam,lParam);
PLVItemW(lParam).pszText:= Text;
end;
end;
end;

end.
y ahi te puse en zip para que veas los erroes que me pone.
gracias por tratar de ayudarme
__________________
Cristo te ama, ven a d él, ya k te espera con los brazos abiertos. Dios te bendiga mucho

Última edición por jeremiselxi fecha: 20-09-2012 a las 03:31:17.
Responder Con Cita