Hola Como están?
Pues veran tengo un problema con este codigo que no me cierra los programas, aqui les explico.
Código Delphi
[-]
procedure TForminformacion.tefxButton5Click(Sender: TObject);
var i:Integer;
begin
if ListVentanas.Selected = nil then
begin
Application.MessageBox('Selecciona algun proceso', 'No hay Seleccion.', MB_IconExclamation);
end
else
begin
Server.SendText('CerrarPrograma'+ListVentanas.Selected.Caption );
end;
end;
aqui seleciono el programa de un Tlistview y lo mando a un servidor
con el comando server.sendtext
esto me transmite la cadena de texto cerrarprograma+el handle de la ventana seleccionada.
y aqui hago el cierre
Código Delphi
[-]
if copy(date,1,14)='CerrarPrograma' then
begin
delete(date, 1,14);
cierra:= date; Copy(date, 1, Pos('º', date)-1);
memo1.Lines.text:= cierra;
h := FindWindow(nil,pChar(date) );
if h <> 0 then
PostMessage(h, WM_Close, 0,0);
end;
esto es para cerrar el programa, bueno aqui es donde tengo el problema
en vez de cerrarse el programa selecionado me aparece la ventana de apagar o reiniciar
espero algun consejo gracias de antenmano