Форумы GIS-Lab.info

Код: Выделить всё

 Run Program "C:\Program Files (x86)\Microsoft Office\Office14\Excel.exe"

Код: Выделить всё

function GetExePath (Byval ExeName as string) as string 

Dim lRetVal As integer 
Dim hKey,sType,Ssize As integer 
Dim sValue,SKey As String 

GetExePath="c:\program files\" 
sType =REG_SZ 
Ssize =1024 

SKey="Software\Microsoft\Windows\CurrentVersion\App Paths\" & ExeName 
lRetVal = RegOpenKey(HKEY_LOCAL_MACHINE,SKey,hKey) 

If lRetVal <> ERROR_SUCCESS Then 
        exit function 
Else 
        sValue =string$(ssize,chr$(32)) 

        lRetVal = RegQueryValueEx(hKey,"Path", 0, sType , sValue, Ssize ) 
        If lRetVal <> ERROR_SUCCESS Then 
                exit function 
        Else 
                GetExePath =rtrim$(sValue) 
                if right$(rtrim$(sValue),1)<>"\" then 
                        GetExePath=rtrim$(sValue) & "\" 
                end if 
        End If 
        lRetVal = RegCloseKey(hKey) 

End If 

End function 

Код: Выделить всё

Run Program "cmd.exe /c start excel.exe"