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!