[angelp4492]

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