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

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.

Probá algo como:

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

Saludos!

:confused: 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)?

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

Gracias.

Hola,


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".

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

¿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:
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!

La escribí y no la voy a dejar de subir :D

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!