Código Delphi [-] if (FindWindow(PChar('XLMAIN'), nil) <> 0) then begin MessageDlg('Ejecutandose', mtInformation, [mbOK], 0); end else begin MessageDlg('No se está ejecutando', mtInformation, [mbOK], 0); end;
if (FindWindow(PChar('XLMAIN'), nil) <> 0) then begin MessageDlg('Ejecutandose', mtInformation, [mbOK], 0); end else begin MessageDlg('No se está ejecutando', mtInformation, [mbOK], 0); end;