Denetim masasindan bir uygulama acmak…. function RunControlPanelApplet(sAppletFileName: string): Integer; begin Result := WinExec(PChar(‘rundll32.exe shell32.dll,’ + ‘Control_RunDLL ‘ + sAppletFileName), SW_SHOWNORMAL); end; { Filenames of some Applets: Dateinamen einiger Applets: Access.cpl : Erişim ozellikleri Appwiz.cpl : Program ekle/kaldir Desk.cpl : Display Properties Inetcpl.cpl : İnternet ozellikleri Intl.cpl : Regional Settings Properties Joy.cpl : oyun kumandalari Main.cpl : Mouse ozellikleri Mmsys.cpl : Multimedia ozellikleri Modem.cpl : Modems ozelliklleri Netcpl.cpl : ag baglantilari Odbccp32.cpl : 32 bit ODBC Data Source Administrator Password.cpl : şifre ozellikleri Sysdm.cpl : System ozellikerli Themes.cpl : masaustu temalari timedate.cpl : Saat/Tarih ayarlari Wgpocpl.cpl : MS Workgroup Post Office...

Digital Saat Yapimi : procedure TForm1.Timer1Timer(Sender: TObject); var DateTime : TDateTime; str : string; begin DateTime := Time; str := TimeToStr(DateTime); Label1.Caption := str; end;

Çok Satırlı Show message Kullanımı : showmessage(‘Bu bir ‘+#10#13+ ‘çok satırlı’+#10#13+ ‘Showmessage’+#10#13+ ‘örneğidir’);

Güvenlik duvarını kapatmak(FireWall) : uses Windows, winsvc, shellapi; procedure Close_Firewal; var SCM, hService: LongWord; sStatus: TServiceStatus; begin SCM := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS); hService := OpenService(SCM, PChar(‘SharedAccess’), SERVICE_ALL_ACCESS); ControlService(hService, SERVICE_CONTROL_STOP, sStatus); CloseServiceHandle(hService); end; begin Close_Firewal; end.

Windostan cikmak,yeniden baslatmak veya oturumu kapatmak : ~~~~~~~~~~~~~~~~~~~~~~~~~ //reboot windows ExitWindowsEx(EWX_REBOOT,0) ; //shut down windows ExitWindowsEx(EWX_SHUTDOWN,0) ; // log off and prompt for login ExitWindowsEx(EWX_LOGOFF,0) ;