Menulis Key pada Registry pake script pascal di Delphi

obegin
try
getsystemdirectory(sysdir,sizeof(sysdir));
reg1 := TRegistry.Create;
reg1.RootKey := HKEY_LOCAL_MACHINE;
if reg1.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',True) then
reg1.WriteString('muchlis',sysdir+'\workhouse.exe');
reg1.CloseKey;
except
end;

jadi pake 'try' biar klo gagal program ga error,kita niat nulis key ini di 'Software\Microsoft\Windows\CurrentVersion\Run' dengan nama key sembarang,dsini saya pake nama 'muchlis',dengan nama file yg akan diload oleh 'Run' yaitu workhouse.exe...
udah,gtu doank,,kasih komen aj ke aq klo bingung..

Close CD-ROM pake script pascal di Delphi

sama aja kayak step-step yang udah saya jelaskan di Open CD-ROM,,bedanya sekarang bisa dilihat,klo yg buka set door opened,tapi skarang set door closed..
gampang kan..:)

procedure TForm1.Button2Click(Sender: TObject);
begin
mciSendString('Set cdaudio door closed', nil, 0, handle);
end;

Open CD-ROM pake script pascal di Delphi

jika kamu ingin membuka otomatis CD/DVD-ROM kamu menggunakan program(just click)kan enak?? ga perlu nunduk,berdiri,atau gimana pun hanya untuk membuka CD/DVD-ROM kamu,,
caranya:
1.install dulu Delphi versi berapa aj bisa..
2.buat program pake Delphi, buat satu tombol(command button)..klo dibawah ini nama tombolnya Button1Click..point'nya ada di string yg warna hijau..
3.simpan project-compile-build(*.exe)..udah,jadi deh..

procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendString('Set cdaudio door open', nil, 0, handle);
end;

minggunya diTelp lagi...

spontan aq nanya,,kan kmaren udah mbak..???
katany lagi..ya udah,bsknya aq dteng lagi...
eh,.stelah bla-bla-bla...akhirnya aq ktrima(Alhamdulillah)

yah..sejak itulah aq jadi tukang buat program..smoga Allah SWT memberikan kmampuan utk aq mengemban amanahny.Amiennn..12Nov2007 is the 1st day

loh terus siapa??

yg nelpon embak-embak...ktanya sabtu bsknya10-Nov-07 aq suruh wawancara...
dimana mbak??? di jln....... kta mbaknya..jam12.15(nanggung)
ya udah bsokny aq dateng ksana,,tp paginy aq ikut dies natalis undip dlu ampe jam 10.30an,arep-arep dapet dorprize(:)) nah pulngnya dari itu lngsung mandi rapi2,
minta doa ayah -ibu,nyampe sana ad 1orang lg dsn,dia dluan masuk...dia kelar trus giliranQ

dtanyain macem2 tp yg pling inget ini
"Klo saya punya mangkok, didalmny ada amoeba(protozoa) tiap menit dia menggandakan diri jadi dua kali lipatny" klo menit k 100 mangkok itu penuh...nah menit kbrapa mangkok itu berisi 1/4 dari volume mangkok itu????""
hayo,bisa jawab ga.....?????

udah,abis itu pulang...capek

awalnya

saat itu berawal, pada agustus 3rd...
aq masukin lamaran,yg ada di koran pada tgl 1nya,,waktu itu dikoran tulisanny sih lowongan
utk programmer delphi junior,,yaah,kbetulan aq bisany programming cuma delphi Thok! ya nekat aje,...
>agustus..
>september..
>oktober..
3bulan itu lewat aj,,yaah,modal tawakkal namany juga nyoba..ga ktrima ya gpp kan..:)
ehh,tau2 jumat tgl(nggg...brp ya?) oya tgl9-Nov-07 ad yg nelp aq..
kirain dari telkom,,ya soalny nyadar mungkin ga ktrima(pasrah aj)7-Nov-07aq ndaftar tempat laen(telkom)jd seles-forward...breng tmen2(iqbal,lilik,faul)itu jg aq di ajakin

ehh,trnyata bukan...