¿cómo desvanecer o renombrar el proceso de mi aplicacion?

[jeremiselxi]

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.

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