Login
Templates, Tools and Utilities
for Clarion Developers
Templates, Tools and Utilities
|
||
|
|
|
Icetips Article
Back to article list
Search Articles
Add Comment
Printer friendly
Direct link
Par2: Using RUN to call Control Panel Applets (WinBatch) 1999-11-10 -- Krsitian Hyllestad Based on information from the WinBatch tech support, I've converted
several RUN() commands to invoke Control Panel applets.
Code tested and works on Win98. Might be useful for some other
Clarioneers. Just Ctrl-C the code into clarion editor and it should
work.
==SEVERAL RUN() COMMANDS TO START CONTROL APPLETS========
Run('C:\WINDOWS\EXPLORER.EXE
::{{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{{992CFFA0-F557-101A-88EC-0
0DD010CCC48}')
message('Dial up')
Run('rundll32.exe shell32.dll,Control_RunDLL odbccp32.cpl')
!32bit ODBC
message('32bit ODBC')
Run('rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1')
!Add New Hardware
message('Add New Hardware')
Run('rundll32.exe shell32.dll,Control_RunDLL ACCESS.CPL')
!Accessibility Properties
message('Accessibility Properties')
Run('rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl')
!Add/Remove Programs
message('Add/Remove Programs')
Run('rundll32.exe shell32.dll,Control_RunDLL timedate.cpl')
!Date/Time
message('Date/Time')
Run('rundll32.exe shell32.dll,Control_RunDLL desk.cpl')
!Display
message('Display')
Run('rundll32.exe rnaui.dll,RnaWizard')
!Dialup Network wizard
message('Dialup Network wizard')
Run('rundll32.exe shell32.dll,Control_RunDLL main.cpl @0')
!Mouse
message('Mouse')
Run('rundll32.exe shell32.dll,Control_RunDLL main.cpl @1')
!Keyboard
message('Keyboard')
Run('rundll32.exe shell32.dll,Control_RunDLL main.cpl @2')
!Printers
message('Printers')
Run('rundll32.exe shell32.dll,Control_RunDLL main.cpl @3')
!Fonts
message('Fonts')
Run('rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL FontsFolder')
!Open Fonts Folder
message('Open Fonts Folder')
Run('rundll32.exe shell32.dll,Control_RunDLL mlcfg32.cpl')
!Mail and Fax
message('Mail and Fax')
Run('rundll32.exe shell32.dll,Control_RunDLL wgpocpl.cpl')
!Microsoft Mail Postoffice
message('Microsoft Mail Postoffice')
Run('rundll32.exe shell32.dll,Control_RunDLL modem.cpl')
!Modems
message('Modems')
Run('rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl')
!Multimedia
message('Multimedia')
Run('rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl')
!95 Network
message('95 Network')
Run('rundll32.exe shell32.dll,Control_RunDLL ncpa.cpl')
!NT Network
message('NT Network')
Run('rundll32.exe shell32.dll,Control_RunDLL odbcinst.dll')
!ODBC
message('ODBC')
Run('rundll32.exe shell32.dll,Control_RunDLL password.cpl')
!Passwords
message('Passwords')
Run('rundll32.exe shell32.dll,Control_RunDLL intl.cpl')
!Regional Settings
message('Regional Settings')
Run('rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @0')
!Sounds
message('Sounds')
Run('rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl')
!System
message('System')
Run('rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter')
!Open AddPrinters window
message('Open AddPrinters window')
Run('rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL
PrintersFolder') !Open Printers folder
message('Open Printers folder')
Run('rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL Connect')
!Open Map Network Drive window
message('Open Map Network Drive window')
Run('rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL Disconnect')
!Open Disconnect Network Drive window
message('Open Disconnect Network Drive window')
Run('rundll32.exe shell32.dll,SHFormatDrive')
!Format drive
message('Format drive')
Today is November 21, 2024, 3:52 am This article has been viewed 35221 times.
|
|