[unko!]

Hola, estoi trabajando en un proyecto, es como un controlador remoto de otro pc, algo sencillo no muy complicado y estoy atorado

quiero finalizar procesos y para ello uso este codigo
(añadiendo TLHelp32 a los uses)

procedure TForm1.Button1Click(Sender: TObject);

function KillTask(FileName:String):integer;
var
ContinueLoop:BOOL;
FSnapshotHandle:THandle;
FProcessEntry32:TProcessEntry32;
const
PROCESS_TERMINATE=$0001;
begin
FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);
ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32);
while integer(ContinueLoop)<>0 do
begin
if
((UpperCase(ExtractFileName(FProcessEntry32.szExeFile))=UpperCase(FileName))
or (UpperCase(FProcessEntry32.szExeFile)=UpperCase(FileName)))
then

Result:=Integer(TerminateProcess(OpenProcess(PROCESS_TERMINATE,BOOL(0),

FProcessEntry32.th32ProcessID),0));
ContinueLoop:=Process32Next(FSnapshotHandle,FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;


begin
KillTask('Notepad.exe');
end;

Si funciona bien, pero lo que yo busco, es poner un Edit en el cual yo escribiria el nombre del ejecutable para que al presiionar el boton, use el text del edit y termine el proceso que escribi.

debo cambiar de alguna forma la seccion del codigo

begin
KillTask('Notepad.exe');
end;

pero no.se como y me acabe las ideas =(

alguien me ayuda?