翻译:procedure TForm1.Button2Click(Sender: TObject); type LAUNCHINTERNETCONTROLPANEL= function(hwd:THANDLE):Longint;stdcall; var hInetcpl:THANDLE ; pLaunchInternetControlPanel: LAUNCHINTERNETCONTROLPANEL; begin hInetcpl := LoadLibrary('inetcpl.cpl'); if(hInetcpl>0) then begin pLaunchInternetControlPanel :=LAUNCHINTERNETCONTROLPANEL(GetProcAddress(hInetcpl,'LaunchInternetControlPanel')); if @pLaunchInternetControlPanel<>nil then begin pLaunchInternetControlPanel(Form1.Handle ); end; FreeLibrary(hInetcpl); end; end;
----------------------------------------------