[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 574
  • 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
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 
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

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

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