Aqui vai uma pequena utilidade que encontrei que possibilita agregarmos aos nossos aplicativos o recurso de abrir diretamente o painel de controle e suas opções individualmente.
O texto original estava em espanhol e eu traduzi:
Código: Selecionar todos
Procedure Main()
LOCAL aArray :=GetArray()
LOCAL aOpciones :={}
LOCAL nOpcion :=1
AEVAL(aArray,{|x| AADD(aOpciones,x[1])})
DO WHILE .T.
SCROLL()
@01,09 SAY "(c) LuchoMiranda@Telefonica.Net [Esc Salir]"
DISPBOX(02,09,24,61)
nOpcion :=ACHOICE(03,10,23,60,aOpciones,,,nOpcion)
IF nOpcion <>00
cRun :=aArray[nOpcion,2]
RUN &cRun.
ELSE
EXIT
ENDIF
ENDDO
RETURN(NIL)
FUNCTION GetArray()
LOCAL aArray := {;
{ "Painel de Controle" , "rundll32.exe shell32.dll,Control_RunDLL" } ,;
{ "Opcoes de Accessibilidade" , "rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1" } ,;
{ "Adicionar ou remover programas" , "rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1" } ,;
{ "Propriedades de video" , "rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0" } ,;
{ "Configuracao regional e de idioma" , "rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0" } ,;
{ "Dispositivos de jogos" , "rundll32.exe shell32.dll,Control_RunDLL joy.cpl" } ,;
{ "Propriedades do Mouse" , "rundll32.exe shell32.dll,Control_RunDLL main.cpl @0" } ,;
{ "Propriedades do Teclado" , "rundll32.exe shell32.dll,Control_RunDLL main.cpl @1" } ,;
{ "Assistente para adicionar impressoras" , "rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter" } ,;
{ "Propriedades de Dispositivos de som e audio" , "rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0" } ,;
{ "Opcoes de telefone e modem" , "rundll32.exe shell32.dll,Control_RunDLL modem.cpl" } ,;
{ "Propriedades do sistema" , "rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0" } ,;
{ "Propriedades de data e hora" , "rundll32.exe shell32.dll,Control_RunDLL timedate.cpl" } ,;
{ "Abrir Com (Associacoes)" , "rundll32.exe shell32.dll,OpenAs_RunDLL 'd:\path\filname.ext'" } ,;
{ "Impressoras e fax" , "rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL PrintersFolder" } ,;
{ "Fontes" , "rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL FontsFolder" } ,;
{ "Abrir 'About Info'" , "rundll32.exe shell32.dll,ShellAboutA Info-Box" } ,;
{ "Copia de discos" , "rundll32.exe diskcopy.dll,DiskCopyRunDll" } ,;
{ "Formatar 'Disco (A)'" , "rundll32.exe shell32.dll,SHFormatDrive" } ,;
{ "URL Rlogin / Telnet / TN3270" , "rundll32.exe url.dll,TelnetProtocolHandler %l" } ,;
{ "Abrir arquivo qualquer" , "rundll32.exe shell32.dll,OpenAs_RunDLL %1" } }
RETURN(aArray)
