PowerBuilder Launch Control Panel

PowerBuilder Launch Control Panel 1

Internet
ODBC
Network Connection
Modem
Multimedia
Accessibility
Keyboard
Font
Hardware Wizard
Wireless connection
Mouse
Add Printer
System
Display
Printers and Faxes
Date/Time
Screen saver settings
Desktop Briefcase
Power Management
User Account
Game Controller
Add/Remove Programs
Regional Options
Language
Advanced
Control Panel

Window Example

forward
global type w_main from window
end type
type cb_25 from commandbutton within w_main
end type
type cb_21 from commandbutton within w_main
end type
type cb_15 from commandbutton within w_main
end type
type cb_12 from commandbutton within w_main
end type
type cb_3 from commandbutton within w_main
end type
type cb_11 from commandbutton within w_main
end type
type cb_26 from commandbutton within w_main
end type
type cb_24 from commandbutton within w_main
end type
type cb_23 from commandbutton within w_main
end type
type cb_22 from commandbutton within w_main
end type
type cb_20 from commandbutton within w_main
end type
type cb_18 from commandbutton within w_main
end type
type cb_17 from commandbutton within w_main
end type
type cb_16 from commandbutton within w_main
end type
type cb_14 from commandbutton within w_main
end type
type cb_13 from commandbutton within w_main
end type
type cb_10 from commandbutton within w_main
end type
type cb_9 from commandbutton within w_main
end type
type cb_8 from commandbutton within w_main
end type
type cb_6 from commandbutton within w_main
end type
type cb_5 from commandbutton within w_main
end type
type cb_1 from commandbutton within w_main
end type
type gb_1 from groupbox within w_main
end type
type cb_19 from commandbutton within w_main
end type
type cb_2 from commandbutton within w_main
end type
type cb_4 from commandbutton within w_main
end type
type cb_7 from commandbutton within w_main
end type
end forward

global type w_main from window
integer width = 2510
integer height = 1496
boolean titlebar = true
string title = "Launch Control Panel"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_25 cb_25
cb_21 cb_21
cb_15 cb_15
cb_12 cb_12
cb_3 cb_3
cb_11 cb_11
cb_26 cb_26
cb_24 cb_24
cb_23 cb_23
cb_22 cb_22
cb_20 cb_20
cb_18 cb_18
cb_17 cb_17
cb_16 cb_16
cb_14 cb_14
cb_13 cb_13
cb_10 cb_10
cb_9 cb_9
cb_8 cb_8
cb_6 cb_6
cb_5 cb_5
cb_1 cb_1
gb_1 gb_1
cb_19 cb_19
cb_2 cb_2
cb_4 cb_4
cb_7 cb_7
end type
global w_main w_main

type variables

end variables

on w_main.create
this.cb_25=create cb_25
this.cb_21=create cb_21
this.cb_15=create cb_15
this.cb_12=create cb_12
this.cb_3=create cb_3
this.cb_11=create cb_11
this.cb_26=create cb_26
this.cb_24=create cb_24
this.cb_23=create cb_23
this.cb_22=create cb_22
this.cb_20=create cb_20
this.cb_18=create cb_18
this.cb_17=create cb_17
this.cb_16=create cb_16
this.cb_14=create cb_14
this.cb_13=create cb_13
this.cb_10=create cb_10
this.cb_9=create cb_9
this.cb_8=create cb_8
this.cb_6=create cb_6
this.cb_5=create cb_5
this.cb_1=create cb_1
this.gb_1=create gb_1
this.cb_19=create cb_19
this.cb_2=create cb_2
this.cb_4=create cb_4
this.cb_7=create cb_7
this.Control[]={this.cb_25,&
this.cb_21,&
this.cb_15,&
this.cb_12,&
this.cb_3,&
this.cb_11,&
this.cb_26,&
this.cb_24,&
this.cb_23,&
this.cb_22,&
this.cb_20,&
this.cb_18,&
this.cb_17,&
this.cb_16,&
this.cb_14,&
this.cb_13,&
this.cb_10,&
this.cb_9,&
this.cb_8,&
this.cb_6,&
this.cb_5,&
this.cb_1,&
this.gb_1,&
this.cb_19,&
this.cb_2,&
this.cb_4,&
this.cb_7}
end on

on w_main.destroy
destroy(this.cb_25)
destroy(this.cb_21)
destroy(this.cb_15)
destroy(this.cb_12)
destroy(this.cb_3)
destroy(this.cb_11)
destroy(this.cb_26)
destroy(this.cb_24)
destroy(this.cb_23)
destroy(this.cb_22)
destroy(this.cb_20)
destroy(this.cb_18)
destroy(this.cb_17)
destroy(this.cb_16)
destroy(this.cb_14)
destroy(this.cb_13)
destroy(this.cb_10)
destroy(this.cb_9)
destroy(this.cb_8)
destroy(this.cb_6)
destroy(this.cb_5)
destroy(this.cb_1)
destroy(this.gb_1)
destroy(this.cb_19)
destroy(this.cb_2)
destroy(this.cb_4)
destroy(this.cb_7)
end on

type cb_25 from commandbutton within w_main
integer x = 699
integer y = 720
integer width = 603
integer height = 128
integer taborder = 150
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Desktop Briefcase"
end type

event clicked;//Desktop build briefcase
Run('rundll32.exe syncui.dll,Briefcase_Create')
end event

type cb_21 from commandbutton within w_main
integer x = 1975
integer y = 240
integer width = 421
integer height = 128
integer taborder = 140
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "font"
end type

event clicked;Run('rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL FontsFolder')
end event

type cb_15 from commandbutton within w_main
integer x = 59
integer y = 720
integer width = 603
integer height = 128
integer taborder = 220
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Screen saver settings"
end type

event clicked;//Set the specified screen saver file as the Windows screen saver, and display the screen saver properties window
Run('rundll32.exe desk.cpl,InstallScreenSaver C:\WINDOWS\system32\ss3dfo.scr')
end event

type cb_12 from commandbutton within w_main
integer x = 1339
integer y = 560
integer width = 603
integer height = 128
integer taborder = 210
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Printers and Faxes"
end type

event clicked;Run('rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL PrintersFolder')
end event

type cb_3 from commandbutton within w_main
integer x = 1975
integer y = 400
integer width = 421
integer height = 128
integer taborder = 200
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Add Printer"
end type

event clicked;Run('rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter')

end event

type cb_11 from commandbutton within w_main
integer x = 59
integer y = 400
integer width = 603
integer height = 128
integer taborder = 180
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Hardware Wizard"
end type

event clicked;RUN ("rundll32.exe shell32.dll,Control_RunDLL hdwwiz.cpl")
end event

type cb_26 from commandbutton within w_main
integer x = 1925
integer y = 1200
integer width = 457
integer height = 128
integer taborder = 220
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Control Panel"
end type

event clicked;Run("rundll32.exe shell32.dll,Control_RunDLL")
end event

type cb_24 from commandbutton within w_main
integer x = 1047
integer y = 1200
integer width = 457
integer height = 128
integer taborder = 220
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Advanced"
end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,2")
end event

type cb_23 from commandbutton within w_main
integer x = 553
integer y = 1200
integer width = 457
integer height = 128
integer taborder = 200
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "language"
end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,1")
end event

type cb_22 from commandbutton within w_main
integer x = 59
integer y = 1200
integer width = 457
integer height = 128
integer taborder = 210
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Regional Options"
end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,0")
end event

type cb_20 from commandbutton within w_main
integer x = 59
integer y = 880
integer width = 603
integer height = 128
integer taborder = 190
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Game Controller"
end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL Joy.cpl")
end event

type cb_18 from commandbutton within w_main
integer x = 699
integer y = 560
integer width = 603
integer height = 128
integer taborder = 170
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "display"
end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL desk.cpl")
end event

type cb_17 from commandbutton within w_main
integer x = 59
integer y = 560
integer width = 603
integer height = 128
integer taborder = 160
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "System"
end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl")
end event

type cb_16 from commandbutton within w_main
integer x = 1339
integer y = 80
integer width = 603
integer height = 128
integer taborder = 150
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Network connection"
end type

event clicked;//Run("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl")
Run("rundll32.exe shell32.dll,Control_RunDLL ncpa.cpl")

end event

type cb_14 from commandbutton within w_main
integer x = 699
integer y = 880
integer width = 603
integer height = 128
integer taborder = 130
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Add/Remove Programs"
end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl")
end event

type cb_13 from commandbutton within w_main
integer x = 1339
integer y = 400
integer width = 603
integer height = 128
integer taborder = 120
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Mouse"
end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL Main.cpl")
end event

type cb_10 from commandbutton within w_main
integer x = 1975
integer y = 560
integer width = 421
integer height = 128
integer taborder = 80
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Date/Time"
end type

event clicked;Run("rundll32.exe shell32.dll,Control_RunDLL Timedate.cpl")
end event

type cb_9 from commandbutton within w_main
integer x = 1975
integer y = 720
integer width = 421
integer height = 128
integer taborder = 90
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "User account"
end type

event clicked;Run("rundll32.exe shell32.dll,Control_RunDLL nusrmgr.cpl") //User account

end event

type cb_8 from commandbutton within w_main
integer x = 1339
integer y = 240
integer width = 603
integer height = 128
integer taborder = 80
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Keyboard"
end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1")
end event

type cb_6 from commandbutton within w_main
integer x = 59
integer y = 240
integer width = 603
integer height = 128
integer taborder = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Multimedia"
end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl")
end event

type cb_5 from commandbutton within w_main
integer x = 1975
integer y = 80
integer width = 421
integer height = 128
integer taborder = 50
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Modem"
end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL Modem.cpl")

end event

type cb_1 from commandbutton within w_main
integer x = 59
integer y = 80
integer width = 603
integer height = 128
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Internet"
end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl")
end event

type gb_1 from groupbox within w_main
integer x = 18
integer y = 1112
integer width = 1559
integer height = 240
integer taborder = 210
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "Regional Settings"
end type

type cb_19 from commandbutton within w_main
integer x = 699
integer y = 400
integer width = 603
integer height = 128
integer taborder = 190
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Wireless connection"
end type

event clicked;RUN ("rundll32.exe shell32.dll,Control_RunDLL irprops.cpl")

end event

type cb_2 from commandbutton within w_main
integer x = 699
integer y = 80
integer width = 603
integer height = 128
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "ODBC"
end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL Odbccp32.cpl")
end event

type cb_4 from commandbutton within w_main
integer x = 1339
integer y = 720
integer width = 603
integer height = 128
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Power Management"
end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL PowerCfg.cpl")
end event

type cb_7 from commandbutton within w_main
integer x = 699
integer y = 240
integer width = 603
integer height = 128
integer taborder = 70
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Accessibility"
end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL Access.cpl")
end event

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

354

355

356

357

358

359

360

361

362

363

364

365

366

367

368

369

370

371

372

373

374

375

376

377

378

379

380

381

382

383

384

385

386

387

388

389

390

391

392

393

394

395

396

397

398

399

400

401

402

403

404

405

406

407

408

409

410

411

412

413

414

415

416

417

418

419

420

421

422

423

424

425

426

427

428

429

430

431

432

433

434

435

436

437

438

439

440

441

442

443

444

445

446

447

448

449

450

451

452

453

454

455

456

457

458

459

460

461

462

463

464

465

466

467

468

469

470

471

472

473

474

475

476

477

478

479

480

481

482

483

484

485

486

487

488

489

490

491

492

493

494

495

496

497

498

499

500

501

502

503

504

505

506

507

508

509

510

511

512

513

514

515

516

517

518

519

520

521

522

523

524

525

526

527

528

529

530

531

532

533

534

535

536

537

538

539

540

541

542

543

544

545

546

547

548

549

550

551

552

553

554

555

556

557

558

559

560

561

562

563

564

565

566

567

568

569

570

571

572

573

574

575

576

577

578

579

580

581

582

583

584

585

586

587

588

589

590

591

592

593

594

595

596

597

598

599

600

601

602

603

604

605

606

607

608

609

610

611

612

613

614

615

616

617

618

619

620

621

622

623

624

625

626

627

628

629

630

631

632

633

634

635

636

637

638

639

640

641

642

643

644

645

646

647

648

649

650

651

652

653

654

655

656

657

658

659

660

661

662

663

664

665

666

667

668

669

670

671

672

673

674

675

676

677

678

679

680

681

682

683

684

685

686

687

forward

global type w_main from window

end type

type cb_25 from commandbutton within w_main

end type

type cb_21 from commandbutton within w_main

end type

type cb_15 from commandbutton within w_main

end type

type cb_12 from commandbutton within w_main

end type

type cb_3 from commandbutton within w_main

end type

type cb_11 from commandbutton within w_main

end type

type cb_26 from commandbutton within w_main

end type

type cb_24 from commandbutton within w_main

end type

type cb_23 from commandbutton within w_main

end type

type cb_22 from commandbutton within w_main

end type

type cb_20 from commandbutton within w_main

end type

type cb_18 from commandbutton within w_main

end type

type cb_17 from commandbutton within w_main

end type

type cb_16 from commandbutton within w_main

end type

type cb_14 from commandbutton within w_main

end type

type cb_13 from commandbutton within w_main

end type

type cb_10 from commandbutton within w_main

end type

type cb_9 from commandbutton within w_main

end type

type cb_8 from commandbutton within w_main

end type

type cb_6 from commandbutton within w_main

end type

type cb_5 from commandbutton within w_main

end type

type cb_1 from commandbutton within w_main

end type

type gb_1 from groupbox within w_main

end type

type cb_19 from commandbutton within w_main

end type

type cb_2 from commandbutton within w_main

end type

type cb_4 from commandbutton within w_main

end type

type cb_7 from commandbutton within w_main

end type

end forward

global type w_main from window

integer width = 2510

integer height = 1496

boolean titlebar = true

string title = "Launch Control Panel"

boolean controlmenu = true

boolean minbox = true

boolean maxbox = true

boolean resizable = true

long backcolor = 67108864

string icon = "AppIcon!"

boolean center = true

cb_25 cb_25

cb_21 cb_21

cb_15 cb_15

cb_12 cb_12

cb_3 cb_3

cb_11 cb_11

cb_26 cb_26

cb_24 cb_24

cb_23 cb_23

cb_22 cb_22

cb_20 cb_20

cb_18 cb_18

cb_17 cb_17

cb_16 cb_16

cb_14 cb_14

cb_13 cb_13

cb_10 cb_10

cb_9 cb_9

cb_8 cb_8

cb_6 cb_6

cb_5 cb_5

cb_1 cb_1

gb_1 gb_1

cb_19 cb_19

cb_2 cb_2

cb_4 cb_4

cb_7 cb_7

end type

global w_main w_main

type variables

end variables

on w_main.create

this.cb_25=create cb_25

this.cb_21=create cb_21

this.cb_15=create cb_15

this.cb_12=create cb_12

this.cb_3=create cb_3

this.cb_11=create cb_11

this.cb_26=create cb_26

this.cb_24=create cb_24

this.cb_23=create cb_23

this.cb_22=create cb_22

this.cb_20=create cb_20

this.cb_18=create cb_18

this.cb_17=create cb_17

this.cb_16=create cb_16

this.cb_14=create cb_14

this.cb_13=create cb_13

this.cb_10=create cb_10

this.cb_9=create cb_9

this.cb_8=create cb_8

this.cb_6=create cb_6

this.cb_5=create cb_5

this.cb_1=create cb_1

this.gb_1=create gb_1

this.cb_19=create cb_19

this.cb_2=create cb_2

this.cb_4=create cb_4

this.cb_7=create cb_7

this.Control[]={this.cb_25,&

this.cb_21,&

this.cb_15,&

this.cb_12,&

this.cb_3,&

this.cb_11,&

this.cb_26,&

this.cb_24,&

this.cb_23,&

this.cb_22,&

this.cb_20,&

this.cb_18,&

this.cb_17,&

this.cb_16,&

this.cb_14,&

this.cb_13,&

this.cb_10,&

this.cb_9,&

this.cb_8,&

this.cb_6,&

this.cb_5,&

this.cb_1,&

this.gb_1,&

this.cb_19,&

this.cb_2,&

this.cb_4,&

this.cb_7}

end on

on w_main.destroy

destroy(this.cb_25)

destroy(this.cb_21)

destroy(this.cb_15)

destroy(this.cb_12)

destroy(this.cb_3)

destroy(this.cb_11)

destroy(this.cb_26)

destroy(this.cb_24)

destroy(this.cb_23)

destroy(this.cb_22)

destroy(this.cb_20)

destroy(this.cb_18)

destroy(this.cb_17)

destroy(this.cb_16)

destroy(this.cb_14)

destroy(this.cb_13)

destroy(this.cb_10)

destroy(this.cb_9)

destroy(this.cb_8)

destroy(this.cb_6)

destroy(this.cb_5)

destroy(this.cb_1)

destroy(this.gb_1)

destroy(this.cb_19)

destroy(this.cb_2)

destroy(this.cb_4)

destroy(this.cb_7)

end on

type cb_25 from commandbutton within w_main

integer x = 699

integer y = 720

integer width = 603

integer height = 128

integer taborder = 150

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "Desktop Briefcase"

end type

event clicked;//Desktop build briefcase

Run('rundll32.exe syncui.dll,Briefcase_Create')

end event

type cb_21 from commandbutton within w_main

integer x = 1975

integer y = 240

integer width = 421

integer height = 128

integer taborder = 140

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "font"

end type

event clicked;Run('rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL FontsFolder')

end event

type cb_15 from commandbutton within w_main

integer x = 59

integer y = 720

integer width = 603

integer height = 128

integer taborder = 220

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "Screen saver settings"

end type

event clicked;//Set the specified screen saver file as the Windows screen saver, and display the screen saver properties window

Run('rundll32.exe desk.cpl,InstallScreenSaver C:\WINDOWS\system32\ss3dfo.scr')

end event

type cb_12 from commandbutton within w_main

integer x = 1339

integer y = 560

integer width = 603

integer height = 128

integer taborder = 210

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "Printers and Faxes"

end type

event clicked;Run('rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL PrintersFolder')

end event

type cb_3 from commandbutton within w_main

integer x = 1975

integer y = 400

integer width = 421

integer height = 128

integer taborder = 200

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "Add Printer"

end type

event clicked;Run('rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter')

end event

type cb_11 from commandbutton within w_main

integer x = 59

integer y = 400

integer width = 603

integer height = 128

integer taborder = 180

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "Hardware Wizard"

end type

event clicked;RUN ("rundll32.exe shell32.dll,Control_RunDLL hdwwiz.cpl")

end event

type cb_26 from commandbutton within w_main

integer x = 1925

integer y = 1200

integer width = 457

integer height = 128

integer taborder = 220

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "Control Panel"

end type

event clicked;Run("rundll32.exe shell32.dll,Control_RunDLL")

end event

type cb_24 from commandbutton within w_main

integer x = 1047

integer y = 1200

integer width = 457

integer height = 128

integer taborder = 220

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "Advanced"

end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,2")

end event

type cb_23 from commandbutton within w_main

integer x = 553

integer y = 1200

integer width = 457

integer height = 128

integer taborder = 200

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "language"

end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,1")

end event

type cb_22 from commandbutton within w_main

integer x = 59

integer y = 1200

integer width = 457

integer height = 128

integer taborder = 210

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "Regional Options"

end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,0")

end event

type cb_20 from commandbutton within w_main

integer x = 59

integer y = 880

integer width = 603

integer height = 128

integer taborder = 190

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "Game Controller"

end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL Joy.cpl")

end event

type cb_18 from commandbutton within w_main

integer x = 699

integer y = 560

integer width = 603

integer height = 128

integer taborder = 170

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "display"

end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL desk.cpl")

end event

type cb_17 from commandbutton within w_main

integer x = 59

integer y = 560

integer width = 603

integer height = 128

integer taborder = 160

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "System"

end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl")

end event

type cb_16 from commandbutton within w_main

integer x = 1339

integer y = 80

integer width = 603

integer height = 128

integer taborder = 150

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "Network connection"

end type

event clicked;//Run("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl")

Run("rundll32.exe shell32.dll,Control_RunDLL ncpa.cpl")

end event

type cb_14 from commandbutton within w_main

integer x = 699

integer y = 880

integer width = 603

integer height = 128

integer taborder = 130

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "Add/Remove Programs"

end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl")

end event

type cb_13 from commandbutton within w_main

integer x = 1339

integer y = 400

integer width = 603

integer height = 128

integer taborder = 120

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "Mouse"

end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL Main.cpl")

end event

type cb_10 from commandbutton within w_main

integer x = 1975

integer y = 560

integer width = 421

integer height = 128

integer taborder = 80

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "Date/Time"

end type

event clicked;Run("rundll32.exe shell32.dll,Control_RunDLL Timedate.cpl")

end event

type cb_9 from commandbutton within w_main

integer x = 1975

integer y = 720

integer width = 421

integer height = 128

integer taborder = 90

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "User account"

end type

event clicked;Run("rundll32.exe shell32.dll,Control_RunDLL nusrmgr.cpl") //User account

end event

type cb_8 from commandbutton within w_main

integer x = 1339

integer y = 240

integer width = 603

integer height = 128

integer taborder = 80

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "Keyboard"

end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1")

end event

type cb_6 from commandbutton within w_main

integer x = 59

integer y = 240

integer width = 603

integer height = 128

integer taborder = 60

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "Multimedia"

end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl")

end event

type cb_5 from commandbutton within w_main

integer x = 1975

integer y = 80

integer width = 421

integer height = 128

integer taborder = 50

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "Modem"

end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL Modem.cpl")

end event

type cb_1 from commandbutton within w_main

integer x = 59

integer y = 80

integer width = 603

integer height = 128

integer taborder = 10

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "Internet"

end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl")

end event

type gb_1 from groupbox within w_main

integer x = 18

integer y = 1112

integer width = 1559

integer height = 240

integer taborder = 210

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

long textcolor = 33554432

long backcolor = 67108864

string text = "Regional Settings"

end type

type cb_19 from commandbutton within w_main

integer x = 699

integer y = 400

integer width = 603

integer height = 128

integer taborder = 190

boolean bringtotop = true

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "Wireless connection"

end type

event clicked;RUN ("rundll32.exe shell32.dll,Control_RunDLL irprops.cpl")

end event

type cb_2 from commandbutton within w_main

integer x = 699

integer y = 80

integer width = 603

integer height = 128

integer taborder = 20

boolean bringtotop = true

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "ODBC"

end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL Odbccp32.cpl")

end event

type cb_4 from commandbutton within w_main

integer x = 1339

integer y = 720

integer width = 603

integer height = 128

integer taborder = 40

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "Power Management"

end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL PowerCfg.cpl")

end event

type cb_7 from commandbutton within w_main

integer x = 699

integer y = 240

integer width = 603

integer height = 128

integer taborder = 70

boolean bringtotop = true

integer textsize = -9

integer weight = 400

fontcharset fontcharset = ansi!

fontpitch fontpitch = variable!

fontfamily fontfamily = swiss!

string facename = "Tahoma"

string text = "Accessibility"

end type

event clicked;Run ("rundll32.exe shell32.dll,Control_RunDLL Access.cpl")

end event

Find Projects On Github click here

Good Luck!

PowerBuilder Tips & Tricks

May 28, 2021

Was this article helpful?

Connection Information

PowerBuilder Launch Control Panel

My Website Links