Home
 
 

Control Panel

Running Up Control Panel:

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
    WinExec('Rundll32 Shell32.dll, Control_RunDLL', SW_SHOW);
end;
Running Up The Windows 95 Screensaver Options Dialog:

procedure TForm1.ScreenSaverClick(Sender: TObject); 
begin 
    WinExec('rundll32 shell32.dll,Control_RunDLL desk.cpl,,1',SW_SHOW); 
end;
Running Up Windows 95 Calculator:

procedure TForm1.CalcClick(Sender: TObject); 
begin 
    WinExec('C:\WINDOWS\CALC.EXE', SW_SHOWNormal); 
end;
Multimedia Properties - Audio:

procedure TForm1.AudioClick(Sender: TObject);
begin
     WinExec('rundll32 shell32.dll,Control_RunDLL MMSys.cpl,,0',SW_SHOW);
end;
Multimedia Properties - Video:

procedure TForm1.VideoClick(Sender: TObject);
begin
    WinExec('rundll32 shell32.dll,Control_RunDLL MMSys.cpl,,1',SW_SHOW);
end;
Multimedia Properties - Midi:

procedure TForm1.MidiClick(Sender: TObject);
begin
    WinExec('rundll32 shell32.dll,Control_RunDLL MMSys.cpl,,2',SW_SHOW);
end;
Multimedia Properties - CD Music:

procedure TForm1.CDMusicClick(Sender: TObject);
begin
    WinExec('rundll32 shell32.dll,Control_RunDLL MMSys.cpl,,3',SW_SHOW);
end;
Display Properties - Background:

procedure TForm1.BackgroundClick(Sender: TObject);
begin
    WinExec('rundll32 shell32.dll,Control_RunDLL desk.cpl,,0',SW_SHOW); 
end;
 
 

Home