Mengganti Template Blog Dengan Cordobo Park

Entah kenapa tiba-tiba saja pingin ganti template blog ini....

Seperti biasa, langsung ke situs btemplates untuk berburu templates, maklum belum bisa bikin sendiri.

Hunting pun dimulai, menelusuri tiap kategori, untuk mencari template yg berkenan dihati. Setelah hampir ~2 jam pencarian, akhirnya ketemu juga yang diinginkan, yaitu Template Cordobo Park, demonya bisa dilihat disini.

Gimana?
Tidak salah pilihan saya? Menarik 'kan?

Hasilnya:

Adminer v 3.1.0, Web Based MySQL Management Tool

Sudah lama tidak ngecek situs: adminer.org, ternyata sudah sampai versi 3.1.0, yang dirilis tanggal 16 Nopember 2010.

Sudahkah Anda mencoba Adminer?
Pertama kali saya mencobanya tanggal 19 April 2010, saat itu masih pakai Adminer v 2.3.1 dan langsung tertarik.

Kenapa?
- Scriptnya single file (adminer.php), dengan size ~200KB
- Instalasi tidak ribet, cukup kopi adminer.php ke direktori publik webserver.
- Login akses memanfaatkan priveleges User MySQL
- User friendly, dengan ser Interface simpel, tapi menarik dan mudah digunakan.

Informasi lebih detil, silahkan kunjungi situsnya : http://www.adminer.org

Tertarik mencobanya?
Silahkan Download atau lihat Demonya


Keren 'kan...??
Apakah ini menjadi pilihan terbaik pengganti PhpMyAdmin?

Disable ALT+TAB, ALT+ESC, CTRL+ESC, etc on Windows( XP, 2000, Seven) Dengan Delphi [Part III]

Tutorial ini merupakan lanjutan dari sebelumnya (Part II) yang hanya berfungsi untuk mematikan / Disable Task Manager ( Disable CTRL+ALT+DEL ).

Setelah beberapa kali googling, akhirnya menemukan tutorial sangat menarik, sesuai keinginan, yang didapat dari Forum delphiarea.

Sudah berupa kode komplit, berupa unit DisableWinKeys.pas, dibuat oleh Andrea Belli, hasil migrasi prject DLL buatan Gambiz@delphiarea.com

Setelah dipelajari, Unit tersebut berfungsi untuk mematikan tombol:
- CTRL+ESC
- ALT+TAB
- ALT+ESC

Dan penulis modifikasi unit tersebut untuk menambahkan beberapa variasi kombinasi tombol yaitu:
- CTRL+ENTER
- WINKEY (Left/Right),
- MENUKEY (Left/Right

Berikut Kode lengkapnya:

	(************************************************************
	this unit migrated from dll project(by Kambiz@delphiarea.com)
	downloaded at:
	http://forum.delphiarea.com/viewtopic.php?f=5&t=1744#p6504
	Originally created by:
	Andrea Belli@delphiarea.com
	March 5th, 2010, 12:51 am
	enhanced: CTRL+ESC,ALT+TAB,ALT+ESC
	modified by;
	rehmoe@yahoo.com
	11:23 29/11/2010 more key added,
	enhanced: CTRL+ESC,
	ALT+TAB,
	ALT+ESC,
	CTRL+ENTER,
	WINKEY (Left / Right),
	MENKEY(Left/Right)
	**************************************************************)
	unit DisableWinKeys;
	interface
	uses Windows;
	type
	PKBDLLHOOKSTRUCT = ^TKBDLLHOOKSTRUCT;
	TKBDLLHOOKSTRUCT = packed record
	vkCode: DWORD;
	scanCode: DWORD;
	flags: DWORD;
	time: DWORD;
	dwExtraInfo: DWORD;
	end;
	function DisableWindowsUI: Boolean;
	function EnableWindowsUI: Boolean;
	function IsWindowsUIDisabled: Boolean;
	const
	WH_KEYBOARD_LL = 13;
	const
	LLKHF_ALTDOWN = $0020;
	var
	hKeyboardHook: HHOOK = 0;
	implementation
	function LowLevelKeyboardHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): HRESULT; stdcall;
	var
	pkbhs: PKBDLLHOOKSTRUCT;
	begin
	pkbhs := PKBDLLHOOKSTRUCT(lParam);
	if nCode = HC_ACTION then
	begin
	// Disable CTRL+ESC
	if (pkbhs^.vkCode = VK_ESCAPE) and WordBool(GetAsyncKeyState(VK_CONTROL) and $8000) then
	begin
	Result := 1;
	Exit;
	end;
	// Disable ALT+TAB
	if (pkbhs^.vkCode = VK_TAB) and LongBool(pkbhs^.flags and LLKHF_ALTDOWN) then
	begin
	Result := 1;
	Exit;
	end;
	// Disable ALT+ESC
	if (pkbhs^.vkCode = VK_ESCAPE) and LongBool(pkbhs^.flags and LLKHF_ALTDOWN) then
	begin
	Result := 1;
	Exit;
	end;
	//=============START:modified=====================================================
	// Disable CTRL+ENTER
	if (pkbhs^.vkCode = VK_RETURN) and LongBool(pkbhs^.flags and LLKHF_ALTDOWN) then
	begin
	Result := 1;
	Exit;
	end;
	// Disable winkey(Left / Right)
	if (pkbhs^.vkCode = VK_LWIN) or (pkbhs^.vkCode = VK_RWIN) then
	begin
	Result := 1;
	Exit;
	end;
	// Disable menukey(Left/Right)
	if (pkbhs^.vkCode = VK_MENU) or (pkbhs^.vkCode = VK_LMENU) or (pkbhs^.vkCode = VK_RMENU) then
	begin
	Result := 1;
	Exit;
	end;
	//==================END:Modified================================================================
	end;
	Result := CallNextHookEx(hKeyboardHook, nCode, wParam, lParam);
	end;
	function DisableWindowsUI: Boolean;
	begin
	if hKeyboardHook = 0 then
	hKeyboardHook := SetWindowsHookEx(WH_KEYBOARD_LL, @LowLevelKeyboardHook, HInstance, 0);
	Result := (hKeyboardHook <> 0)
	end;
	function EnableWindowsUI: Boolean;
	begin
	Result := False;
	if (hKeyboardHook <> 0) and UnhookWindowsHookEx(hKeyboardHook) then
	begin
	hKeyboardHook := 0;
	Result := True;
	end;
	end;
	function IsWindowsUIDisabled: Boolean;
	begin
	Result := (hKeyboardHook <> 0)
	end;
	end.

view raw DisableWinKeys.pas hosted with ❤ by GitHub

Cara pemanggilannya:
(Pastikan DisableWinKeys sudah ditambahkan pada bagian uses)

	//disable
	procedure TForm1.btn1Click(Sender: TObject);
	begin
	DisableWindowsUI
	end;
	//enable
	procedure TForm1.btn2Click(Sender: TObject);
	begin
	EnableWindowsUI
	end;

view raw code.snippet.disablewindowsui.pas hosted with ❤ by GitHub

Kode ini berfungsi dengan baik di Windows XP & Seven(tested),
semoga saja kompatible dengan versi-versi Windows lainnya

Disable CTRL-ALT-DEL Dengan Delphi [Part II]

Sudah membaca tutorial Bagaimana Caranya Disable System Key Dengan Delphi [Part 1] ?

Yup, kode tersebut hanya berlaku untuk Windows 9.x.
Oleh karena itu penulis googling dan menemukan kode yang diinginkan di forum delphiarea.
Kodenya:

	procedure DisableCtrAltDel(Val: Boolean);
	var
	MyReg: TRegistry;
	begin
	Try
	MyReg := TRegistry.Create;
	with MyReg do
	begin
	RootKey := HKEY_CURRENT_USER;
	OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System', True);
	if Val then
	WriteString('DisableTaskMgr', '1')
	else
	DeleteValue('DisableTaskMgr');
	CloseKey;
	end;
	Finally
	MyReg.Free;
	End;
	end;
	//--contoh pemanggilan prosedure
	procedure TForm1.btn1Click(Sender: TObject);
	begin
	//disable
	DisableCtrAltDel(True);
	end;
	procedure TForm1.btn2Click(Sender: TObject);
	begin
	//enable
	DisableCtrAltDel(false);
	end;

view raw code.snippet.disable-ctrl-alt-del.pas hosted with ❤ by GitHub

Berhasil 'kan? YUP..

Terus bagaimana dengan kombinasi tombol yang lain? CTRL-ESC, ALT-TAB?

Solusinya? ya googling again.... atau tunggu tutorial berikut

Direct Printing Dengan Delphi

Biar tidak terjadi kesalahpahaman, direct printing yang saya maksud adalah, suatu proses cetak/print secara langsung(direct) ke LPT (Port Printer), khususnya Teks yang di print menggunakan Printer Dotmatrix

Tujuannya adalah untuk kecepatan proses print, yang seringnya diimplementasikan untuk cetak struk/nota, maupun laporan(Text Base Reporting).

Lebih jelasnya, lihat gambar berikut:

'

Diatas merupakan contoh direct printing melalui Command Prompt Windows System.

Bagaimana jika dilakukan melalui pemrograman Delphi?

Ya, Command diatas disimpan dalam batch file ( .cmd / .bat ),
terus batch file tersebut dijalankan di Delphi perintah ShellExecute(), bisa kan.

Dengan cara itu bisa dilakukan, tapi disini kita akan coba implementasikan secara internal(tidak melalui perantara batch-file)

Perhatikan prosedure kode ini:

	procedure TextPrint(lst:TStringList);
	var
	F: TextFile;
	begin
	AssignFile(F,'LPT1');
	Rewrite(F);
	Write(F,lst.Gettext);
	CloseFile(F);
	end;
	//pemanggilan prosedur
	procedure TForm1.btn3Click(Sender: TObject);
	var
	infoNota : TStringlist;
	begin
	infoNota := TStringList.Create;
	try
	infoNota.Add('isinya teks, asumsi nota');
	infoNota.Add('isinya baris kedua');
	infoNota.Add('isinya baris ketiga, dst...');
	TextPrint(infoNota);
	finally
	infoNota.Free;
	end;
	end;

view raw code.snippet.textprint.pas hosted with ❤ by GitHub

Contoh diatas diatas akan mencetak semua teks(string) yang ada di dalam variabel infoNota(TStringlist).


Nah, anda lebih suka yang mana?

Bagaimana Caranya Disable System Key Dengan Delphi [Part 1]

Pertama kita harus tahu apa itu system key?
System Key yang saya maksud disini adalah kombinasi tombol antara lain CTRL+ALT+DEL, ALT+TAB, CTRL+ESC. Dan bagaimana caranya men-disable tombol-tombol tersebut dengan DELPHI?

Setelah googling sana sini, akhirnya dapat juga caranya, yaitu tutorial Disable ALT+TAB, CTRL+ESC, CTRL+ALT+DEL yang dibuat oleh Zarko Gajic

Berikut code nya:


Berhasil? Jawabannnya adalah YA & TIDAK

Karena prosedur tersebut Tidak berfungsi di OS WINNT System (XP, 2000)

 
jadi, solusinya?
mari kita googling lagi, atau baca tutorial berikutnya Disable CTRL-ALT-DEL Dengan Delphi [Part II]

ESC/P (Epson Standard Code for Printers)

ESC/P (Epson Standard Code for Printers),
merupakan kode/perintah yang dikembangkan oleh Epson, untuk mengendalikan Printer. ESC/P ini sering digunakan pada printer Dot-Matrix dan beberapa jenis Inkjet.

Kode-kode ini sangat bermanfaat bagi developer, yang ingin mengembangkan aplikasinya untuk berinteraksi secara langsung (direct printing) dengan tujuan untuk optimasi/kecepatan proses cetak, misal cetak struk/nota.

Ada beberapa variant ESC/P, yang tidak mengimplementasikan semua kode-kode yang ada.
Epson sendiri sering menggunakan ESC/P 2, merupakan variant dari ESC/P untuk masalah kompabilitas terhadap fitur-fitur baru dari suatu produknya, misalnya fitur ubah besar/kecil Font atau fitur print grafik.

Kenapa diberi ESC/P, karena penulisan kode diawali dengan ESC(kode ASCII= 27), contoh:
ESC E --> mengintruksikan untuk cetak Huruf tebal ON
ESC F --> mengintruksikan untuk cetak Huruf tebal Off

Untuk penjelasan detil mengenai Kode ESC/P maupun ESC/P 2, silahkan pelajari dokumen(.pdf), Epson Escape/P Reference Manual yang bisa di download secara gratis di WIKI




More Info : wiki

GExperts 1.33 (Stable Release)

Pembaca mungkin sudah membaca posting mengenai GExperts disini. Saat ini GExperts sudah sampai versi 1.33 (Stable Release). Detil perubahan bisa dilihat di readme.txt

 

More Info & Download

Delphi Tips Explorer 2008

 

Kumpulan berbagai macam tips delphi programming sesuai kategori,
dan dilengkapi fitur search sehingga memudahkan proses pencarian tips yang diinginkan

Download Link

http://www.maknyos.com/eomqcowszhvf/tip_explorer_2008_setup.exe.html

pass:
www.indofiles.org