Solved

Opening the  "Connections, LAN Settings" window from Delphi

Posted on 2004-03-27
9
533 Views
Last Modified: 2010-05-18
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
Comment
Question by:leannonn
  • 4
  • 3
  • 2
9 Comments
 
LVL 11

Expert Comment

by:shaneholmes
ID: 10696315
WinExec('rundll32 shell32.dll,Control_RunDLL ncpa.cpl,,0',SW_SHOW);

Shane
0
 
LVL 11

Expert Comment

by:shaneholmes
ID: 10696402
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
 
LVL 17

Author Comment

by:leannonn
ID: 10696599
> 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
 
LVL 11

Expert Comment

by:shaneholmes
ID: 10696613
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
Why You Should Analyze Threat Actor TTPs

After years of analyzing threat actor behavior, it’s become clear that at any given time there are specific tactics, techniques, and procedures (TTPs) that are particularly prevalent. By analyzing and understanding these TTPs, you can dramatically enhance your security program.

 
LVL 11

Expert Comment

by:shaneholmes
ID: 10696761
are u talking about the browser (e.g. internet explorer) lan settings?

tools/internet options/connections/lan settings

Shane
0
 
LVL 17

Author Comment

by:leannonn
ID: 10697808
> 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
 
LVL 4

Accepted Solution

by:
HillGroover earned 500 total points
ID: 10698176
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
 
LVL 17

Author Comment

by:leannonn
ID: 10698220
> This should *hopefully* do what you're wanting to accomplish. can't test it at my current location though.

Works :) Thanks a lot :)
0
 
LVL 4

Expert Comment

by:HillGroover
ID: 10698421
Glad it helped :o)

ali
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…
You have products, that come in variants and want to set different prices for them? Watch this micro tutorial that describes how to configure prices for Magento super attributes. Assigning simple products to configurable: We assigned simple products…

747 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now