Solved

open network applet in control panel and set button ID

Posted on 2000-02-16
10
131 Views
Last Modified: 2010-04-04

i want to open network applet in control panel and be able to choose
button ID

Esk
0
Comment
Question by:esk
  • 3
  • 3
  • 2
  • +1
10 Comments
 
LVL 6

Expert Comment

by:edey
Comment Utility
well to show the applet try:

shellExecute(0,nil,'c:\windows\control.exe','c:\windows\system\netcpl.cpl',nil,SW_SHOW);

Gl
Mike
0
 

Author Comment

by:esk
Comment Utility
what about the button ID?

Esk
0
 
LVL 6

Expert Comment

by:edey
Comment Utility
I'm not quite sure ehat you mean, do you want to 'click' one of the applet's buttons?

GL
Mike
0
 

Author Comment

by:esk
Comment Utility
yebb!!!
0
 
LVL 12

Expert Comment

by:rwilson032697
Comment Utility
A better way to show the network control panel is like this:

shellExecute(0,nil,'rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl','',nil,SW_SHOW);

(No clues yet about clicking the buttons...)

Cheers,

Raymond.


   
0
Better Security Awareness With Threat Intelligence

See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.

 
LVL 7

Accepted Solution

by:
ahalya earned 100 total points
Comment Utility
Here's a code snipet that would start the CPL applet and click the "Add" button.  (note that there is a minor bug in rwilson'd code: you have to pass rundll32 and the arguments seperately)



in your event handler...

var hIns : THandle;

begin;
hIns := ShellExecute(0,nil,'rundll32.exe', 'shell32.dll,Control_RunDLL netcpl.cpl',nil,SW_SHOW);
WaitForSingleObject(hIns, 10 *1000);

repeat
  h := FindWindow('#32770', 'Network');
  if h = 0 then sleep(10);
until h <> 0;

DlgID := 209; //for Add button
PostMessage(h, wm_Command, DlgID, MakeLong(h, BN_Clicked));


FYI, the following are the DLgIDs for some other buttons,

Ok : 1
Cancel : 2
Help : 9

Properties: 208
Add : 209
Remove : 210

Apply : 12321
File & Print Sharing: 113
0
 
LVL 7

Expert Comment

by:ahalya
Comment Utility
btw,

I have Windows95, 4.00.950B with IE 5.00.2314.1003 installed. (and ofcouse i meant rwilson's and not rwilsoned :-) Sorry about the typo Raymond.)
0
 
LVL 12

Expert Comment

by:rwilson032697
Comment Utility
ahalya,

Yes, there is a bug in my example :-(, but it isn't quite the one you point out. The following does in fact work, and what I would have written if it hadn't been rather late :o)  

ShellExecute(Handle, 'open', 'rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl', '', Nil, SW_Normal);

Cheers,

Raymond.
0
 
LVL 7

Expert Comment

by:ahalya
Comment Utility
wonderful. so they both work.  Let's see whether esk could click his buttons:-) with our code.
0
 

Author Comment

by:esk
Comment Utility
Thanks

Esk
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

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…
In my programming career I have only very rarely run into situations where operator overloading would be of any use in my work.  Normally those situations involved math with either overly large numbers (hundreds of thousands of digits or accuracy re…
Illustrator's Shape Builder tool will let you combine shapes visually and interactively. This video shows the Mac version, but the tool works the same way in Windows. To follow along with this video, you can draw your own shapes or download the file…
Get a first impression of how PRTG looks and learn how it works.   This video is a short introduction to PRTG, as an initial overview or as a quick start for new PRTG users.

763 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