ShellExecute y "c:\WINDOWS\system32\telephon.cpl"

[Durbed]

Hola, quiero abrir las opciones de marcado de windows, lo estoy intentando mediante un shellexecute, lo raro es que si lo pongo en el ejecutar de windows (inicio->ejecutar->C:\Windows\System32\telephone.cpl), lo abre sin problemas. El shellexecute que utilizo es este:

Código Delphi [-]
ShellExecute(Handle, 'open', 'C:\Windows\System32\telephone.cpl', nil, nil, SW_SHOW);

Un saludo y gracias.

[delphi.com.ar]

Probá algo como:

Código Delphi [-]
WinExec('rundll32.exe shell32.dll,Control_RunDLL "C:\Windows\System32\telephone.cpl"', SW_SHOW);

Saludos!

[OSKR]

Chiezen!!!!, disculpa q me entrometa en este hilo sin aportar Federico, puedes decirme algo respecto al .cpl y porq se ha de correr como parámetro del kernel (o mejor dicho.....parte del kernel)?

[Durbed]

No me ha funcionado, pero tampoco me ha dado error, simplemente no ha pasado nada.

Gracias.

[dec]

Hola,

Empezado por Durbed

No me ha funcionado, pero tampoco me ha dado error, simplemente no ha pasado nada.

Lo que pasa es que no estás usando la ruta correcta: no es "telephone.cpl", sino "telephon.cpl". Si lo miras verás que el archivo "telephone.cpl" no existe en el directorio "System32" y sí existe "telephon.cpl".

[Durbed]

Muchas gracias a los dos, ya funciona perfectamente, esa es la tipica chorrada que te tiene liado media tarde XD

Un saludo y gracias de nuevo

[delphi.com.ar]

Empezado por OSKR

Chiezen!!!!, disculpa q me entrometa en este hilo sin aportar Federico, puedes decirme algo respecto al .cpl y porq se ha de correr como parámetro del kernel (o mejor dicho.....parte del kernel)?

¿Cómo parámetro del Kernel?.... Todos los procesos son objetos del Kernel!
RunDll o RunDll32 simplemente sirven para llamar a funciones exportadas por DLL´s:

RUNDLL.EXE Archivo.dll,Función Parámetro1, Parámetro2, Parámetro3

Y en este caso estamos llamando a Control_RunDLL de la librería Shell32.dll, cosa que podríamos escribir 100% en Delphi:

Código Delphi [-]
{ Declaración }
procedure Control_RunDLL(hWnd: HWND; hInst: HINST; cmd: LPCSTR; nCmdShow: DWORD); stdcall; external 'Shell32.dll';
...
{ Implementación }
begin
  Control_RunDLL(Handle, hInstance, 'telephon.cpl', SW_SHOW);
end;

Saludos!

[delphi.com.ar]

La escribí y no la voy a dejar de subir

Código Delphi [-]
type
  TControl_RunDLL = procedure(hWnd: HWND; hInst: HINST; cmd: LPCSTR; nCmdShow: DWORD); stdcall;
var
  hMod: HMODULE;
  Control_RunDLL: TControl_RunDll;
begin
  hMod := LoadLibrary('Shell32.dll');
  if hMod > 0 then
    try
      @Control_RunDLL := GetProcAddress(hMod, 'Control_RunDLL');
      if @Control_RunDLL <> nil then
        Control_RunDLL(Handle, hInstance, 'telephon.cpl', SW_SHOW);
    finally
      FreeLibrary(hMod);
    end
  else
    RaiseLastOsError;
end;

Saludos!