usando el contenido de edit1

[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?

[[Caral]]

Hola
Ideas locas de novato.

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

No se la verdad.
Saludos

[[Chris]]

Empezado por Caral

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]

[[Caral]]

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