terça-feira, 29 de setembro de 2009

Executa um módulo do painel de controle

Function RunControlPanel(sAppletFileName : string) : integer;
// Ex: RunControlPanelApplet('Access.cpl');
begin
Result := WinExec(PChar('rundll32.exe shell32.dll,'+
'Control_RunDLL '+ sAppletFileName),SW_SHOWNORMAL);
end;

Nenhum comentário:

Postar um comentário