Ejecucion en diferentes SistemasOperativos XP y Vista

Iniciado por jack06, 8 Julio 2008, 00:40 AM

0 Miembros y 2 Visitantes están viendo este tema.

jack06

Hola a todos bueno tengo una duda; bueno tengo un Boton la cual quiero ejecutar por ejemplo la calculadora de windows pero la duda es que como hago si es que estoy en sistema operativo de XP es obio que se va abrir la calcualdora y si estoy en  Windows Vista que se ejecutara la calculadora de vista y si en ninguno de estos sistemas no existiera la calculadora se desabiliatara el boton bueno no se si se entiende mi pregunta?? Salu2.
(̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ €l $åßîø nø d nµn¢å tødø lø qµ£ Þî£n$å, Þ£®ø $î£mÞ®£ Þî£n$å tødø lø qµ£ d (̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ

seba123neo

Hola,pues digamos que es facil,al llamar a la calculadora la ruta ya la tenes entonces solo comproba que existe el archivo y si no existe el boton lo pones en Enabled = False y si existe lo pones en True...

saludos.
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

jack06

Hola seba123neo gracias por la respuesta mira buscando en la pag. de recursos de visual encontre este code que utiliza el ShellExecute pero no entiendo bien el code haber si alguien me puede dar por lo menos una orientacion

Option Explicit 
' Declaración del api ShellExecute   
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _   
        (ByVal hwnd As Long, _   
         ByVal lpOperation As String, _   
         ByVal lpFile As String, _   
         ByVal lpParameters As String, _   
         ByVal lpDirectory As String, _   
         ByVal nShowCmd As Long) As Long 
 
'Constantre para el modo en que se abre la ventana: Normal   
Private Const SW_SHOWNORMAL = 1   

Private Sub Buscar_Windows(path As String)   
       
    ShellExecute hwnd, "Find", path, _   
                        vbNullString, _   
                        vbNullString, _   
                        SW_SHOWNORMAL   
 
End Sub 
 
Private Sub cmdFind_Click()   
 
'Abre la ventana de búsqueda en el directorio de windows   
Buscar_Windows "c:\windows" 
End Sub 
 

El code ase que se habra La Busqueda de Windows, eh yo estoy tratando de abrir casi todo el Office por no decir todo :P y la calculadora haber si me dan una breve explicacion del code gracias..
(̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ €l $åßîø nø d nµn¢å tødø lø qµ£ Þî£n$å, Þ£®ø $î£mÞ®£ Þî£n$å tødø lø qµ£ d (̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ

seba123neo

que no entendes?? es facil mira usa la api shellexecute,pero primero tenes que saber que esa api tiene muchos parametros,en este ejemplo se esta usando el parametro "find" como lo que ejecuta no es un archivo sino una RUTA entonces te abre la ventana de busqueda de archivos en la carpeta que le pusiste...el otro parametro que se usa para EJECUTAR archivos es el "open"(tambien se usa para abrir una determinada pagina de internet) ,proba cambiar el "find" por el "open" y pone la ruta de un archivo...te lo tiene que ejecutar...

saludos.
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson