Shutdown, Reboot, Open Cd-Room With delphi

6 05 2009

Pada tulisan sederhana ini, berisi tentang perintah-perintah sederhana pada Pemrograman Delphi, yaitu Shutdown, Reboot dan Membuka + Menutup Cd Room. Cukup Simple kan…….hehehehe

Berikut code untuk Shutdown nya :

WinExec('shutdown -s -t 0 -f', sw_normal);

Ket : perintah ‘shutdown -s -t 0 -f’ adalah perintah cmd dengan formatnya sbb====>

-r = Reboot

-s = Shutdown

-t 0 = waktu nya 0 sekon, bisa diisi sesuai kebutuhan

-f = Menutup atau menghentikan aplikasi lainnya yang sedang berjalan

Berikut code untuk Open / Close Cd-Room nya :

{ open Cd Room }
mciSendString('Set cdaudio door open wait', nil, 0, 0);

{ close Cd Room }
mciSendString('Set cdaudio door closed wait', nil, 0, 0);

Nah sangat sederhana bukan….oiya, jangan lupa untuk menambahkan MMSystem pada USES nya:

uses
MMSystem;

Actions

Information

One response

13 06 2011
demous

ka , saya newbie … mau nanya gimana ya cara manggil cmd lewat Delphi ??

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s




%d bloggers like this: