usando el contenido de edit1
 

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)

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
pero no.se como y me acabe las ideas =(

alguien me ayuda?

Hola
Ideas locas de novato.

Código Delphi [-]
begin
KillTask(+Edit1.Text+);
end;

No se la verdad.
Saludos

Sería mejor

Código Delphi [-]
begin
KillTask(Edit1.Text);
end;

[FONT=verdana,geneva,lucida,'lucida grande',arial,helvetica,sans-serif]

Da lo mismo, pero sin los +.

Saludos.
[/font]

Hola
Se me ocurre otra locura.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);

function KillTask(FileName:String):integer;
var
Nombre: String;
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
nombre:= Edit1.text;
KillTask('Nombre');
end;

Saludos