About
Salam hangat.
This blog contains material about Delphi programming, tools and accessories. The contents of this blog is completely free to be distributed, and will be very nice if there is a link back to this blog.
Before move on, would you like to give us a vote?
Well, if you get benefits from this blog, please do not hesitate to provide aid for development. Anything positive. Link back, share to social networking, global tagging or advice to a friend.
If you need linkback to your blog, simply leave a comment on any post. Please note that the comment must be relevan to this blog themse/topics and contains only one link, as we mark any comment violates these two terms as spam, and eventually remove them.
If you want a persistent link to your blog/site, with 80×80 pixels customized picture, then contact me. I’m on http://www.facebook.com/joko.rivai. Note that I do not sell backlink.
Have a happy coding.
Regards 
This is the default footer layout. You can easily add or remove columns in the footer.
Hai Saya Ismail Orang Gila Sedunia. Kak Jo Kapan Peki ajarka Main Cattening
regards
salam kenal
saya baca di http://www.delphi-id.org, kita kirimkan ka pesan yg isinya ingin kenalan, terima kasih atas pesannya
kita sdh pakarnya mi delphi, banyak jg program-program yg kita buat, salut ka sama kita
Salam kenal om Joko..
Salut you !!!!!!!!,mas joko your great meski urusannya gak nyambung…. ntar daku berguru yeeee!!! hehehehe
Lumayan juga web mu ini….tambah maju orang banda
Thanks Abang Mathoo. Salam kanal. jua par tamang2 samua…
salam kenal
dari pecinta delphi tapi ngak pandai2 sampai sekarang
aku bisa belajarkan sama teman
riau-dumai
aku mau bljar teknik interface ni kak
bisa di bantuin gak
aplikasi kontrol……………………
riau-dumai
oh ya kak ada yang lupa ni
aku mau blajar buat wordpress tampilannya kayak punya
kakak nii.
tolong bantuannya dong…
riau-dumai
aku mau blajar buat wordpress tampilannya kayak punya
Daftar aja di wordpress.com, kemudian login, setup theme dan widget-widtgetnya, sudah itu update widgetnya dengan teks-teks atau link-link yang bermanfaat, kayak di samping kanan nih contohnya. Selanjutnya, update gambar-gambar seperti gambar header dan yang lainnya seperlunya.
Mulailah mmposting isi kepala dan hati Anda. Jangan pernah ragu untuk berbagi.
‘what you hide today, will ve revealed tomorrow….’
Jadi jangan pernah ragu berbagi….
Salam Delphi
orang makasar yang jago delphi toh..
keep it going bro. xixixiiii.. nyasar nyampe sini. blogger sejati 
Kapan bisa ke Makasar. dari dulu pingin kesana gak pernah kesampean.. 
mas bisa tolong saya,
saya pake delphi6, winXP, LX-300 LPT1
saya pengen cetak tapi langsung akses printer
font-nya milik printer
pake kertas panjang (roll)
dan nggak langsung eject kertas
trims
Saya menemukan beberapa link yang mungkin bermanfaat buat Anda:
Di Programmerheaven.com
Yang harus diingat, sesuaikan nama port dengan port yang Anda pakai. Apakah LPT1, LPT2 atau lainnya.
wah..cool..salam kenal yah..btw minta email dong..pengen nanya2 banyak nih
Salam kenal balik dah
. Kirim email bisa lewat email balasan yang autoreply ke email Anda. Asalkan email yang Anda input saat menulis komentar ini benar, sebuah autoreply telah dikirim ke Anda dan Anda bisa membalasnya bila ingin meluangkan waktu mengontak saya 
Ngemeng-ngemeng, beli POS di perusahaan Anda diskon ga’? He he he bercanda
ternyata org makassar toh.
mau nanya lagi neh ttg firebird.
gmn caranya pasang password ya di firebird?
Hai, salam kenal…
makasih sudah mau mampir ke blog saya
waduh, isi blognya tentang programming ya?
hehe saya kurang paham, jadi ndak bisa komen
tapi mungkin bblog ini akan saya promosikan ke teman-teman saya yang emang bagiannya programming…kalau boleh
Regina
Makasih juga sebelumnya
Hi….
Mav neyh qW bru buka blog neyh tyz mulai t’tarik budz mze rada2 g ngerty..
MoOnd BnTuandx YaWh kA’
Thenk BanGetZ dEcH uDhacH maMpEeR kE BloG sAya Ini.
Deh, bahasanya hampir2 hampir saya kaga ngerti
He he he, sorry bercanda.
Salam kenal ya…
Salut untuk mas Joko! Untuk kedua kali saya terbantu saat belajar membuat program dengan bahasa Delphi, yang tidak bisa saya temukan contoh2nya bahkan pada situs2 besar seperti DelphiAbout. Masih jarang orang yang mau berbagi ilmu seperti mas Joko ini. Terima kasih ya, sekali lagi salut!
Salut dan makasih kembali, Mas Thinker Factory
Mas Joko, lama ngga ketemu, lg cuti dari FB
Mas Joko, bisa minta diajarin lg?
Saya pake shellexecute untuk menjalankan 2 perintah DOS,
misal perintah ke-1:
ShellExecute(Handle, ‘open’, PChar(‘command.com’), PChar(‘/c copy D:Data1*.* D:Data2′), nil, SW_HIDE);
lalu perintah ke-2:
ShellExecute(Handle, ‘explore’, PChar(‘d:data2′), nil, nil, SW_SHOW);
masalah muncul pas dipake di PC yg lelet, jadi sebelum perintah ke-1 selesai, perintah ke-2 udah dijalankan, hasilnya ngga sesuai kan?
gimana caranya supaya setiap perintah bisa dieksekusi hingga selesai baru perintah berikutnya dijalankan (juga untuk lebih dari 2 perintah)
thanks sebelumnya mas Joko, u are the best!
Mas Hery, coba search di google dengan keyword “Delphi ExecAndWait”. pasti banyak hasilnya.
Nah, yang jadi masalah, Command.com maupun CMD.EXE harus diberi perintah lewat StdIn, bukan Parameter Proses, jadi perintah
Command.com dir /p c:Windows takkan berhasil dengan cara ini, beda dengan ShellExecute().
Kenapa gak pake aja CopyFile() punya Delphi?
TQ buat infonya
Masalah pertama, ada juga perintah native Windows yang mau ta pake, seperti CACLS.EXE
Masalah kedua, kalo beberapa perintah tadi dijalankan berurutan di PC yg lambat, sebelum perintah pertama selesai, perintah berikutnya sdh jalan. (saya tes di Celeron 1,6, selain di PC itu ngga ada masalah)
Solusinya gimana mas Joko?
Sepert di atas, CMD.exe dan COMMAND.com membaca perintah lewat StdIn, bukan lewat parameter.
Sedangkan CACLS.EXE masih menerima parameter, jadi shellExecute dapat dijalankan.
procedure ExecAndWait(AppName, CommandLine: string; CommandShow: Longint); var exInfo: TShellExecuteInfo; Ph: DWORD; begin FillChar(exInfo, SizeOf(exInfo), 0); with exInfo do begin cbSize := SizeOf(exInfo); fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT; Wnd := GetActiveWindow(); ExInfo.lpVerb := 'open'; ExInfo.lpParameters := PChar(CommandLine); lpFile := PChar(AppName); nShow := CommandShow; end; if ShellExecuteEx(@exInfo) then Ph := exInfo.HProcess else begin ShowMessage(SysErrorMessage(GetLastError)); Exit; end; while WaitForSingleObject(ExInfo.hProcess, 50) <> WAIT_OBJECT_0 do Application.ProcessMessages; CloseHandle(Ph); end;Dan dapat dipanggil :
procedure TForm1.Button1Click(Sender: TObject); begin ExecAndWait('cacls.exe','', sw_SHOW); end;Thanks buat pencerahannya, ta test dulu
Hy..
nama kuw anas, ini link kuw http://nanazbazie.wordpress.com..
salam kenal yach.. lol:
Sudah saya tambahkan link ke
http://nanazbazie.wordpress.com/
Jangan lupa tambahkan link ke blog ini di website Anda ya
*tadi saya lihat blom ada*
saya udah tambah khan..
nanti kunjungi blog saya yach..
Sukses selalu bro_
Boleh ne tukeran link http://sifaris.blogspot.com
Mas, boleh gak tukeran link http://sifaris.blogspot.com
Link ke http://sifaris.blogspot.com sudah ditambahkan di blogroll. Silahkan cek di widget blogroll di kanan halaman. Makasih
belum apa2 sudah UUD
@andica:Makasih kritikannya. Anda tidak harus ke blog ini bila tidak suka…