[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 587
  • Last Modified:

Opening the "Connections, LAN Settings" window from Delphi

Hi,

How do I open the "Connections, LAN Settings" window from a Delphi program. I need to display the proxy settings. I know that these can be found in the registry, but I need to open the `original` window.


Thanks,
Aleksandar
0
Aleksandar Bradarić
Asked:
Aleksandar Bradarić
  • 4
  • 3
  • 2
1 Solution
 
shaneholmesCommented:
WinExec('rundll32 shell32.dll,Control_RunDLL ncpa.cpl,,0',SW_SHOW);

Shane
0
 
shaneholmesCommented:
also note, that the command is

'netcpl.cpl' on Win9X/Me


detect which OS is running


case Win32Platform of
  VER_PLATFORM_WIN32_NT     : Caption := 'WinNT/2000';
  VER_PLATFORM_WIN32_WINDOWS: Caption := 'Win9x/ME';
  VER_PLATFORM_WIN32s       : Caption := 'Win32s';
else
  Caption := 'unknown;'
end;
 
Shane
0
 
Aleksandar BradarićSoftware DeveloperAuthor Commented:
> WinExec('rundll32 shell32.dll,Control_RunDLL ncpa.cpl,,0',SW_SHOW);

Thanks Shane, but this opened "Network Connections"... BTW, I'm using WinXP Pro
0
Receive 1:1 tech help

Solve your biggest tech problems alongside global tech experts with 1:1 help.

 
shaneholmesCommented:
ah yeah, isn't that what you wanted.

You then have to choose a connection, to get to lan properties.

What if the person has two lan connections, a bridge connection,  and a wan connection in there, how would one know, which one to initialize....?

Shane
0
 
shaneholmesCommented:
are u talking about the browser (e.g. internet explorer) lan settings?

tools/internet options/connections/lan settings

Shane
0
 
Aleksandar BradarićSoftware DeveloperAuthor Commented:
> tools/internet options/connections/lan settings

Yes, that's what I had in mind. Sorry for not making it clear enough... How do I open it?
0
 
HillGrooverCommented:
This should *hopefully* do what you're wanting to accomplish. can't test it at my current location though.

function EnumChildProc(Wnd: hWnd; SL: TStrings): BOOL; stdcall;
var
   szFull: array[0..MAX_PATH] of Char;  //Buffer for window caption
begin
   Result := Wnd <> 0;
   if Result then
   begin
      GetWindowText(Wnd, szFull, SizeOf(szFull));  // put window text in buffer
      if (Pos(SL[0], StrPas(szFull)) > 0) and (SL.IndexOfObject(TObject(Wnd)) < 0) then
         SL.AddObject(StrPas(szFull), TObject(Wnd));  // Add item to list
      EnumChildWindows(Wnd, @EnumChildProc, Longint(SL));  //Recurse into child windows
   end;
end;

function ClickButton(ParentWindow: Hwnd; ButtonCaption: string): Boolean;
var
   SL: TStringList;
   H:  hWnd;
begin
   SL := TStringList.Create;
   try
      SL.AddObject(ButtonCaption, nil);  // First item in list is text to find
      EnumChildWindows(ParentWindow, @EnumChildProc, Longint(SL));
      H := 0;
      case SL.Count of
         1: Beep; {ShowMessage('Window text not found.');}
         2: H := hWnd(SL.Objects[1]);
      else
         Beep; {ShowMessage('Ambiguous text detected.');}
      end;
   finally
      SL.Free;
   end;
      Result := H <> 0;
   if Result then
      PostMessage(H, BM_CLICK, 0, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   boo: hWnd;
begin
   { Run the Internet Options Dialog and display the Connections tab }
   WinExec('rundll32 inetcpl.cpl LaunchConnectionDialog', 0);

   { Create a Handle to the IE Options Dialog }
   boo := FindWindow(nil, 'Internet Properties');

   //Sleep(1000); //this shouldn't be required but can be used as a safeguard if
   //running on a slow machine and doesn't display the dialog quickly enough

   { Pretty Self Explanatory - Click The Button that says LAN Settings }
   ClickButton(boo, 'LAN Settings...');
end;
0
 
Aleksandar BradarićSoftware DeveloperAuthor Commented:
> This should *hopefully* do what you're wanting to accomplish. can't test it at my current location though.

Works :) Thanks a lot :)
0
 
HillGrooverCommented:
Glad it helped :o)

ali
0

Featured Post

Receive 1:1 tech help

Solve your biggest tech problems alongside global tech experts with 1:1 help.

  • 4
  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now