makalah kewiraan
Sabtu, 19 Mei 2012
Good Governance and Clean Governance
KATA
PENGANTAR
Puji
dan Syukur penulis panjatkan kehadirat Tuhan Yang Maha Esa yang telah
memberikan Rahmat taufik dan hidayah – Nya sehingga Penulisan Makalah ini dapat
terselesaikan tepat pada waktunya.
Makalah
saya ini berjudul “Tata Kelola Pemerintahan yang baik (Good Governance)“. Didalam Makalah saya ini terdapat
beberapa pembahasan diantaranya, Pengertian dari Good Governance dan Prinsip –
Prinsip Pokok Good Governance dan Clean Governance.
Penulis
menyadari banyak kekurangan dalam penulisan makalah ini, itu dikarenakan
kemampuan penulis yang terbatas. Namun berkat bantuan dan dorongan serta
bimbingan dari Dosen Pembimbing serta berbagai bantuan dari berbagai pihak, akhirnya pembuatan makalah
ini dapat terselesaikan tepat pada waktunya.
Penulis
berharap dengan penulisan makalah ini dapat bermanfaat khususnya bagi penulis
sendiri dan bagi para pembaca pada umumnya serta semoga dapat menjadi bahan
pertimbangan dan meningkatkan prestasi dimasa yang akan datang.
Wassalam
Penulis
DAFTAR ISI
Kata Pengantar ......................................................................................................... i
Daftar Isi ................................................................................................................. ii
BAB I
Pendahuluan ................................................................................................ 1
BAB II
Pembahasan ................................................................................................. 2
1.
Pengertian
Good Governance ..................................................................... 2
2.
Prinsip
– Prinsip pokok Good Governance dan Clean Governance ............ 4
ª Prinsip
Good Governance ............................................................... 4
ª
Prinsip Clean Governance ............................................................... 6
BAB III
Penutup ........................................................................................................ 8
Daftar Pustaka ............................................................................................. 9
BAB I
Pendahuluan
Tata Kelola pemerintahan yang baik adalah seperangkat proses
yang diberlakukan dalam organisasi baik swasta maupun negeri untuk menentukan
keputusan. Tata laksana pemerintahan yang baik ini walaupun tidak dapat
menjamin sepenuhnya segala sesuatu akan menjadi sempurna - namun, apabila
dipatuhi jelas dapat mengurangi penyalah-gunaan kekuasaan dan korupsi. Banyak
badan-badan donor internasional, seperti IMF dan Bank Dunia, mensyaratkan
diberlakukannya unsur-unsur tata laksana pemerintahan yang baik sebagai dasar
bantuan dan pinjaman yang akan mereka berikan.
Lima Tahun setelah dimulainya
reformasi, keinginan untuk
memperoleh good governace and clean government masih jauh daripada
dipenuhi. Berbagai kendala menampakkan diri dalam bentuk gejolak politik,
ekonomi, sosial budaya, hukum, pemerintahan, yang simpang siur dan menimbulkan
ketidakpastian yang bermuara pada keresahan dan letupan-letupan yang
membahayakan sendi-sendi kehidupan masyarakat.
BAB II
Pembahasan
1. Pengertian Good
Governance
Istilah “governance” sebenarnya sudah dikenal dalam
literatur administrasi dan ilmu politik hampir 120 tahun, sejak Woodrow Wilson,
yang kemudian menjadi Presiden Amerika Serikat ke 27, memperkenalkan bidang
studi tersebut kira-kira 125 tahun yang lalu. Tetapi selama itu governance
hanya digunakan dalam literatur politik dengan pengetian yang sempit. Wacana
tentang “governance” dalam pengertian yang hendak kita perbincangkan pada
pertemuan hari ini -- dan yang diterjemahkan kedalam bahasa Indonesia sebagai tata-pemerintahan,
penyelenggaraan pemerintahan atau pengelolaan pemerintahan, tata-pamong -- baru
muncul sekitar 15 tahun belakangan, terutama setelah berbagai lembaga
pembiayaan internasional menetapkan “good governance” sebagai persyaratan utama
untuk setiap program bantuan mereka.
Good governance atau tata kepemerintahan yang baik merupakan
tuntutan yang muncul akibat praktek-praktek pengelolaan kepemerintahan yang
dinilai kurang baik. Beberapa faktor yang mendukung buruknya pengelolaan
kepemerintahan di Indonesia seperti tingginya KKN (korupsi, kolusi dan
nepotisme), pelanggaran HAM, tingkat pengangguran tang tinggi, kemiskinan, dan
hutang luar negeri yang tinggi Hakekatnya konsepsi GG adalah interaksi atau
peran aktif unsur-unsur pemerintahan, masyarakat dan dunia usaha yang dinamis,
sinergis serta bertanggungjawab di berbagai bidang guna mewujudkan tujuan
bermasyarakat, berbangsa dan bernegara. Prinsip-prinsip GG itu sendiri telah
banyak ditawarkan oleh barbagai kalangan, baik lembaga-lembaga internasional
(UNDP dan World Bank) maupun institusi nasional (Bappenas, Lembaga Adminsitrasi
Negara). UNDP menetapkan 8 prinsip , sebagai berikut: partisipasi,
taat hukum, transparansi, responsive, kesetaraan, efektif & efisien,
akuntabilitas dan visi strategik. Tampaknya konsep ini di adopsi oleh
Indonesia, yang selanjutnya dikembangka oleh Bappenas menjadi 14 prinsip,
sebagai berikut: wawasan kedapan (visionary), keterbukaan dan transparansi
(openness and transparency), partisipasi masyarakat (participation), tanggung
gugat ( accountability), supremasi hukum ( rule of law), demokrasi (democracy),
profesionaisme dan kompetensi (professionalism and competency) , daya tanggap
(responsivenees, efisien dan efektivitas (efficiency and effectiveness),
denstraslisasi (decentralization), kemitraan dengan dunia swasta dan masyarakat
(private sector and civil society partnership), komitmen pada pengurangan
kesenjangan (commitment to reduce inequality), komitment pada perlindungan
hukum (commitment to environmental protection) dan komitmen pada pasar yang
fair (commitment to fair market).
Konsep "good governance" sering muncul sebagai
model untuk membandingkan ekonomi efektif atau badan politik dengan ekonomi yang
layak dan badan politik Karena yang paling "sukses" pemerintah dalam
dunia kontemporer adalah negara demokrasi liberal terkonsentrasi di Eropa dan
Amerika. , negara-negara 'lembaga sering menetapkan standar yang digunakan
untuk membandingkan negara-negara lain institusi. Karena pemerintahan yang baik
istilah dapat difokuskan pada salah satu bentuk pemerintahan, organisasi
bantuan dan otoritas negara-negara maju sering akan fokus arti baik pemerintahan
untuk satu set persyaratan yang sesuai dengan agenda organisasi, membuat "good
governance" menyiratkan banyak hal yang berbeda dalam konteks yang berbeda
2. Prinsip – Prinsip pokok
Good Governance dan Clean Governance
v Prinsip Good Governance
a.
Kunci utama
memahami good governance,
menurut Masyarakat Transparansi Indonesia (MTI),
adalah pemahaman atas
prinsip-prinsip yang mendasarinya. Bertolak dari prinsip-prinsip ini didapat
tolok ukur kinerja suatu pemerintah.
b.
Menurut UNDP,
prinsip-prinsip good governance atau tata kepemerintahan yang baik meliputi:
Partisipasi masyarakat:
semua warga masyarakat mempunyai suara dalam pengambilan keputusan, baik
secara langsung maupun
melalui lembaga- lembaga perwakilan yang sah yang mewakili kepentingan
mereka. Partisipasi menyeluruh tersebut dibangun berdasarkan
kebebasan berkumpul dan mengungkapkan pendapat, serta
kepastian untuk berpartisipasi secara konstruktif.
Tegaknya supremasi
hukum:
kerangka hukum harus adil
dan diberlakukan tanpa pandang
bulu, termasuk didalamnya
hukum-hukum yang menyangkut hak asasi manusia.
Transparasi:
transparansi dibangun atas dasar informasi
yang bebas. Seluruh proses pemerintah,
lembaga-lembaga, dan informasi perlu dapat diakses oleh pihak-pihak yang berkepentingan, dan
informasi yang tersedia harus memadai
agar dapat dimengerti dan dipantau.
Peduli dan
stakeholder:
lembaga-lembaga dan
seluruh proses pemerintah harus berusaha melayani semua
pihak yang berkepentingan.
Berorientas pada
consensus:
tata
pemerintahan yang baik
menjembatani kepentingan-kepentingan yang berbeda demi terbangunnya
suatu konsensus menyeluruh dalam hal apa yang terbaik bagi kelompok-kelompok
masyarakat, dan bila mungkin,
konsensus dalam hal
kebijakan-kebijakan dan prosedur- prosedur .
Kesetaraan:
semua
warga masyarakat mempunyai kesempatan memperbaiki atau mempertahankan
kesejahteraan mereka.
Efektifitas dan efisiensi:
proses-proses pemerintahan dan
lembaga-lembaga membuahkan
hasil sesuai kebutuhan warga
masyarakat dan dengan menggunakan sumber-sumber daya yang ada
seoptimal mungkin.
Akuntabilitas:
para pengambil
keputusan di pemerintah,
sektor swasta, dan organisasi masyarakat
bertanggungjawab, baik kepada
masyarakat maupun kepada
lembaga-lembaga yang berkepentingan.
Visi strategis:
para pemimpin
dan masyarakat memiliki
perspektif yang luas dan
jauh ke depan
atas tata
pemerintahan yang baik dan pembangunan
manusia, serta kepekaan akan apa saja yang dibutuhkan untuk mewujudkan
perkembangan tersebut. Selain itu
mereka juga harus
memiliki pemahaman atas
kompleksitas kesejarahan, budaya,
dan sosial yang menjadi dasar bagi perspektif tersebut.
v Prinsip Clean Governance
Good
governace hanya bermakna bila
keberadaannya ditopang oleh lembaga yang
melibatkan kepentingan publik.
Jenis lembaga tersebut adalah
sebagai berikut:
a.
Negara
1.
menciptakan kondisi politik, ekonomi, dan sosial yang stabil;
2.
membuat peraturan yang efektif dan berkeadilan;
3.
menyediakan public service yang efektif dan accountable;
4.
menegakkan HAM;
5.
melindungi lingkungan hidup;
6.
mengurus standar kesehatan dan standar keselamatan publik
b.
Sektor swasta:
1.
Menjalankan industri;
2.
Menciptakan lapangan kerja;
3.
Menyediakan insentif bagi karyawan;
4.
Meningkatkan standar kehidupan masyarakat;
5.
Memelihara lingkungan hidup;
6.
Menaati peraturan;
7.
Melakukan transfer ilmu pengetahuan dan teknologi pada masyarakat;
8. Menyediakan kredit bagi pengembangan UKM
c.
Masyarakat madani:
1.
Manjaga agar hak-hak masyarakat terlindungi;
2.
Mempengaruhi kebijakan;
3.
Berfungsi sebagai sarana checks and balances pemerintah;
4.
Mengawasi penyalahgunaan kewenangan sosial pemerintah;
5.
Mengembangkan SDM;
6.
Berfungsi sebagai sarana berkomunikasi antar anggota masyarakat.
BAB III
Penutup
Dari uraian di atas jelaslah bahwa
pemerintahan yang baik adalah ideal yang sulit dicapai dalam totalitasnya.
Sangat sedikit negara dan masyarakat telah datang dekat untuk mencapai
pemerintahan yang baik dalam totalitasnya. Namun, untuk memastikan pembangunan
manusia yang berkelanjutan, tindakan harus diambil untuk bekerja menuju
cita-cita ini dengan tujuan menjadikannya kenyataan.
DAFTAR
PUSTAKA
tutorial membuat program dengan borland delphi
Belajar membuat program dengan delphi 7
Belajar membuat program sendiri ternyata cukup megasikan.
banyak sekali software yang bisa digunakan untuk membuat sebuah program. Dan
kali ini kita akan Belajar Dengan Menggunakan Borland Delphi 7.
Sabtu, 2009 Januari 24
Bborland Delphi atau yang disebut
delphi saja, merupakan sarana pemrograman aplikasi visual. Bahasa pemrograman
yang digunakan adalah bahasa pemrograman pascal atau yang kemudian juga disebut
bahasa pemrograman Delphi. Delphi merupakan generasi penerus dari tubo pascal.
Tirbo pascal yang diluncurkan pada tahun 1983 dirancang utntuk dijalankan pada
system operasi DOS (DISCK OPERATING SYSTEM) yang merupakan syatem operasi yang
banyak digunakan pada say itu. Sedangkan Delphi diluncurkan pada tahun 1995
dirancang untuk beroprasi dibawa system operasi windows.
KELEBIHAN BORLAN DELPHI 7
Borland dephi 7 merupakan pilihan
dari sebagian kalangan programmer untuk membuat aplikasi. Hal ini disebabkan
kelebiha yang ada pada Borland, berikut ini sebagian kecil dari banyak
kelebiahan Borland Delphi 7 :
- Berorientasi Object Oriented Programig. Setiap bagian yang ada pada program dipanang sebagai suatu object yagn mempunyai sifat-sifat yang dapat diubah dan diatur.
- Satu file EXE, setelah anda merancang program dalam IDE Delphi, Delphi akan mengkompilasinya menjadi sebua file executable tunggal. Program yang anda buat dapat langsung dijalankan dan didistribusikan pada computer lain tanpa perlu menyertakan file DLL dari luar. Ini merupakan sebuah kelebihan yang sangat berarti.
- Borland Delphi 7 hadir bersama Borland Kylix 3 yang berbasiskan Linux, sehingga memungkinkan anda untuk membuat aplikasi multi-platform.
KONFIGURASI KOMPUTER UNTUK SYSTEM
Untuk dapa melakukan intalasi dan
menggunakan Borland Delphi 7 dengan normal, anda harus menuai persyaratan
sebagai berikut :
- Prosesor
Prosesor Pentium 166MHz atau yang
lebih tinggi.
- System Operasi
System operasi Windows 98, windows
98 Se, Windows ME, Windows 2000,
Windows 2003 dan Windows XP
Sabtu, 2009 Januari 24
Untuk menjalankan Program Borlan
Delphi 7, Lngkah-langkanya adalah sebagai brikut :
1.Tekan tombol Start
2.Pilih All Program kemudian Borland Delphi 7 lanjutkan dengan mengklik Delphi 7.
Seperti terlihat pada gambar 1.
Gambar 1. Langkah-langkah Memulai Delphi 7
3.Akan tampil sebuah Splash screen Borland Delphi 7 seperti pada gambar 2 dibawa. Tunggu beberapa saat sampai program Borland Delphi 7 tampil memenuhi layar monitor.
1.Tekan tombol Start
2.Pilih All Program kemudian Borland Delphi 7 lanjutkan dengan mengklik Delphi 7.
Seperti terlihat pada gambar 1.
Gambar 1. Langkah-langkah Memulai Delphi 7
3.Akan tampil sebuah Splash screen Borland Delphi 7 seperti pada gambar 2 dibawa. Tunggu beberapa saat sampai program Borland Delphi 7 tampil memenuhi layar monitor.
Gambar 2. Tamoilan Spalsh Screen
4.Bidang kerja Integrated
Development Envirotment (IDE) Delphi 7 akan tampil memenuhi layarmonitor,
seperti diperlihatkan pada gambar 3. Pada bidang inilah anda dapat menumpakan
kreativias anda dalam membuat program.
Gambar 3. Tampilan IDE Delphi 7
TAMPILAN IDE BORLAND DELPHI 7
Jendela IDE Borland Delphi 7 mempunyai perangkat-perangkat yang dapat dipergunakan untuk memudakan seseorang programmer dalam membuat program. IDE Delphi 7 telah di desain sedemikian oleh Borland sehingga bersifat intuitif. Perangkat-perangkat tersebut diantaranya :
•Componen Pallete
Pada bidang ini terdapat semua komponen yang merupakan bawaan Delphi 7, baik komponen visual maupun komponen nonvisual.
Gambar 4. Componen Pallete
•Form Designer
Merupakan sebuah bidang jendela yang masih kosong. Ketika anda menjalankan Delphi7, secara otomatis Form Deigner akan memanggil sebuah form yang bernama Form 1.
Gambar 5. Form Designer
•Code Editor
Pada bidang ini anda dapat menuliskan code-code program dan logika program dalam bahasa Delphi untuk mengatur jalannya program.
Gambar 6. Code Editor
•Object Inspector
Dengan prangkat ini anda dapat merubah property dan even pada setiap object atau komponen.
Gambar 7. Object Inspector
•Object Tree View
Object Tree view digunakan untuk menampilkan semua komponen dan object yang ada pada form dalam struktur pohon dan mengambarkan hubungan diantaranya.
Gambar 8. Object Tree View
Minggu, 2009 Januari 25
Program berikut ini mempergunakan rumus matematika untuk
menghitung luas sebuah segitiga ( 0.5 X alas X tinggi ). Dari rumus tersebut
kita bisa membuat sebuah program sederhana.
Langka-langka untuk membuat programnya adalah sebagai berikut :
1. Buatlah sebuah Form seperti yang terlihat pada gambar 1 dibawah ini.
Langka-langka untuk membuat programnya adalah sebagai berikut :
1. Buatlah sebuah Form seperti yang terlihat pada gambar 1 dibawah ini.
Gambar 1.
Form Tampilan
2. Kemudian Doble Click pada tombol Proses dan ketikan Code
dibawah ini pada bidang Code editor seperti yang terlihat pada gambar 2 .
procedure TForm1.Button1Click(Sender: TObject);
var A,T,L:real;
begin
A:=STRTOFLOAT(EDIT1.TEXT);
T:=STRTOFLOAT(EDIT2.TEXT);
L:=0.5*A*T;
EDIT3.Text:=FLOATTOSTR(L);
end;
procedure TForm1.Button1Click(Sender: TObject);
var A,T,L:real;
begin
A:=STRTOFLOAT(EDIT1.TEXT);
T:=STRTOFLOAT(EDIT2.TEXT);
L:=0.5*A*T;
EDIT3.Text:=FLOATTOSTR(L);
end;
Gambar 2.
Bidang Code Editor
3. Setelah selesai memasuakan code tersebut pada bidang code editor, kemudia anda jalankan program tersebut dengan cara clik tombol Run yang terdapat pada panel bagian kiri atas yang berwana hijau. Atau dengan menekan f9 pada keyboard.
Selasa, 2009 Februari 03
Program berikut hanyalan sebuah program perhitungan sederhan
tapi kita akan belajar untuk menambakan sebua tombol hapus yang akan
dipergunakan untuk membersikan edit.
Langka-langkanya adalah :
1. Buatlah sebuah form seperti gambar 18 berikut dan belajarlah untuk membuat tampilah form yang menarik. karena program yang memiliki tampilan yang bagus akan lebih baik.
Langka-langkanya adalah :
1. Buatlah sebuah form seperti gambar 18 berikut dan belajarlah untuk membuat tampilah form yang menarik. karena program yang memiliki tampilan yang bagus akan lebih baik.
Gambar 18
2. Setelah selesai mendisain sebuah form lanjutkan dengan memasukan code yang akan kita gunakan untuk menjalankan program. Pada tombl jumlakan masukan code berikut :
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text :=
FloatToStr(StrToFloat(Edit1.Text)+
strtofloat(edit2.Text));
end;
sedangkan pada tombol hapus masukan code berikut :
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
End;
3. Setelah selesai mengetikan code, jalankan program tersebut dengan menekan F9 pada keyboard atau dengan mengclick tombol Run pada panel.
Selasa, 2009 Februari 03
Kita bisa memprcantik tampilan program yang kita buat dengan
membuat text yang berjalan dengan memanfaatkan fungsi timer. Langka-langkaya
adalah sebagai brikut :
1. Buatlah form sepeti pada gamar 16. Gunakan label untuk membuat text yang akan kita jalankan. Caranya rubah pada properties caption ganti label1 dengan text yang kita inginkan. Untuk mengatur kecepatan text saat berjalan, click timer1 ganti properties interval menjadi 5 yang terdapat pada object inspector.
1. Buatlah form sepeti pada gamar 16. Gunakan label untuk membuat text yang akan kita jalankan. Caranya rubah pada properties caption ganti label1 dengan text yang kita inginkan. Untuk mengatur kecepatan text saat berjalan, click timer1 ganti properties interval menjadi 5 yang terdapat pada object inspector.
Gambar 16.
Desain form
2. Setelah selesai membuat form
doble click timer1 dan masukan code berikut pada code editor.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label1.left = -245 then label1.Left := 280;
Label1.Left := Label1.Left-1;
end;
3. Setelah selesai jalankan program dengan mengclik tombol Run pada panel atau tekan F9 pada keyboard.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label1.left = -245 then label1.Left := 280;
Label1.Left := Label1.Left-1;
end;
3. Setelah selesai jalankan program dengan mengclik tombol Run pada panel atau tekan F9 pada keyboard.
Selasa, 2009 Februari 03
Adacara yang lebih muda untuk meruba warna form pada program
Delphi yaitu dengan mengunakan palet warna, pada program berikut ini hanya
menggunakan satu tombol yang dipergunajakan untuk menjalankan Colordialog.
Adapun caranya adalah sebagai berikut :
1. Buatlah sebuah form seperti pada gambar 15.pada progrsm ini kita akan menggunakan fungsi colordialog yang bisa diambil pada component pallete dialogs.
1. Buatlah sebuah form seperti pada gambar 15.pada progrsm ini kita akan menggunakan fungsi colordialog yang bisa diambil pada component pallete dialogs.
Gambar 15.
Desain form
2. Setelah selesai mendesain form,
doble click tombol Uba Warna Form dan masukan code berikut pada bidang code
editor :
procedure TForm1.Button1Click(Sender: TObject);
begin
If colordialog1.Execute then
Form1.Color := Colordialog1.Color;
end;
3. Setelah selesai jalankan program dengan menekan F9 pada keyboard atau dengan meclik tombol Run pada panel.
Selasa, 2009 Februari 03
Langka-langkanya adalah sebagai berikut :
1.Disainla sebuah for seperti pada gambar 14 dibawa ini. Program ini
hanya mengunakan satu edit, dua tombol dan
tiga buah label.
Gambar 14.
2.Ketikan code berikut pada code editor.
Untuk tombol Proses ada ketikan code berikut :
procedure TForm1.Button1Click(Sender: TObject);
var x : real;
AkarDariX : real;
begin
// ubah input dari Edit1 yg bertipe string ke tipe real
x := StrToFloat (Edit1.Text);
// hitung akar dari x, disimpan sbg AkarDariX
AkarDariX := sqrt (x);
// tampilkan keterangan
Label4.Caption := 'Akar dari ' +' ' + Edit1.Text+ ' ' + 'adalah';
// hasil perhitungan
Label2.Caption := FloatToStr (AkarDariX);
// memindah fokus ke Edit1
Edit1.SetFocus;
end;
Untuk tombol keluar anda masukan tombol berikut ini :
procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
End;
3.Setelah selesai mengetikan code diatas jalankan program tersebut.
Selasa, 2009 Februari 03
Dengan menggunakan Delphi 7 kita juga bias membuat sebuh calculator sederhana,
Langka-langkanya
adalah sebagi berikut :
1.Buatlah
sebuah Form seperti yang terlihat pada gambar 11 dibawa ini.
Pada program berikut ini kita akan
menggunakan empat buah botton, tiga buah
edit dan satu label. Ubah Caption botton pada
properties sesuai dengan yang
kita inginkan, hapus edit pada
properties-text dang anti label dengan hasil
perhitungan.
Gambar 11. Form Menu
2.Doble Clik tombol Tamba dan masukan code dibawah ini pada bidang code editor.
procedure TForm1.Button1Click(Sender: TObject);
var A,B,C:INTEGER;
begin
A:=STRTOINT(EDIT1.TEXT);
B:=STRTOINT(EDIT2.TEXT);
C:=A+B;
EDIT3.Text:=INTTOSTR(C)
end;
Note : Untuk C pada tombol Kurang codenya menjadi C:=A-B;
Pada tombol Kali codenya menjadi C:=A*B;
Sedangkan pada tombol Bagi codenya menjadi C:=A div B;
Jumat, 2009 Januari 30
Refresh desktop
Di bawah ini adalah kode yang dapat digunakan untuk merefresh desktop tanpa harus menekan F5.
Di bawah ini adalah kode yang dapat digunakan untuk merefresh desktop tanpa harus menekan F5.
procedure TForm1.Button2Click(Sender: TObject);
begin
SendMessage(FindWindow('Progman','Program Manager'),
WM_COMMAND,$A065,0);
winexec(Pchar('rundll32 user,repaintscreen'),sw_Show);
end;
Menyembunyikan caption bar
Untuk menyembunyikan caption bar, tambahkan kode pada event onCreate.
procedure TForm1.FormCreate(Sender:TObject);
begin
SetWindowLong(Handle,gwl_style,GetWindowLong(handle,gwl_style)
and NOT ws_caption);
ClientHeight:=Height;
Refresh;
end;
Memindah form yg tidak mempunyai caption bar
Untuk memindah form yang tidak mempunyai caption bar,
tambahkan kode berikut pada event onMouseDown.
procedure TForm1.FormMouseDown(Sender: TObject; Button:
TMouseButton; Shift:
TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Form1.Handle, wm_SysCommand,$f012,0);
end;
Membuka Control Panel
Gunakan kode di bawah ini untuk membuka Control Panel dari program
Delphi Anda.
Jangan lupa tampahkan ShellApi pada bagian uses :
procedure TForm1.Buton1Click(Sender : TObject);
begin
ShellExecute(Handle,'Open','control',
nil,nil,SW_SHOWNORMAL);
end;
Memberi warna record aktif pada TDBGrid
Mungkin Anda ingin memberi warna record aktif pada TDBGrid dengan
warna yang lain (tidak sama dengan warna record yang tidak atif).
Untuk itu tambahkan kode berikut ini pada even DBGrid.OnDrawColumnCell :
type
TCustomDBGridCracker = class(TCustomDBGrid);
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with TCustomDBGridCracker(Sender) do
if DataLink.ActiveRecord = Row - 1 then
Canvas.Brush.Color := clRed
else
Canvas.Brush.Color := clWhite;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
Jumat, 2009 Januari 30
Kita bisa membuat text icon pada
desktop kita transparan sehingga yang terlihat hanyala icon saja. Buatlah
sebuah form dengan menggunakan dua tombol dan masukan code berikut.
procedure TForm1.GetDesktopListViewHandle;
var
s1: string;
begin
hLV := FindWindow('ProgMan', nil);
hLV := GetWindow(hLV, GW_CHILD);
hLV := GetWindow(hLV, GW_CHILD);
SetLength(s1, 40);
GetClassName(hLV, PChar(s1), 39);
if PChar(s1) <> 'SysListView32' then
ShowMessage('Failed');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
xColor : TColor;
begin
GetDesktopListViewHandle;
xColor := ListView_GetTextColor(hLV);
ListView_SetTextColor(hLV, xColor);
xColor := ListView_GetTextBkColor(hLV);
ListView_SetTextBkColor(hLV, xColor);
ListView_SetTextBkColor(hLV, $FFFFFFFF);
end;
Jumat, 2009 Januari 30
Sebelum memulai Belajar cara mebuat
Spalash Screen, Ada baiknya kita mengetahui terlebih dahulu apa itu splash
screen. Splash screen merupakan tampilan yang kita lihat pertama kali waktu
kita menjalankan sebuah aplikasi. Splash screen ini biasanya ditampilkan untuk
mengurangi kejenuhan user sewaktu program masih dalam tahap inisialisasi. pada
kesempatan ini saya akan membahas bagai mana membuat sebuah splash screen
dengan mengunakanDelphi7
Untuk membuat splash scren tersebut
caranya sebagai berikut :
1.Bikin dulu form utamanya.
2.Tambahkan form yang akan digunakan sebagai splash screen (dari menu File, pilih New Form). Beri nama form tersebut dengan FrmSplash.
3.Tambahkan komponen Timer (terletak pada tab Win32), beri nama dengan tmMainTimer.
4.Tambahkan kode berikut pada events onTimer dari komponen Timer tersebut :
tmMainTimer.Enabled := False;
5.Dari menu Project, pilih Options.
6.Pindah ke tab Forms.
7.Dari bagian auto create forms akan terlihat dua buah form. Pilih Form yang akan
digunakan sebagai splash screen dan klik tombol ">" untuk memindah form splash
screen ke bagian Available forms.
8.Kalau sudah klik OK.
9.Sekarang dari menu View, pilih Project Source. Pada program utama buatlah form
splash screen sebelum inisialisasi dilakukan.
Untuk lebih jelasnya lihat potongan program berikut ini :
program Project1;
uses Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {FrmSplash};
{$R *.RES}
begin
FrmSplash := TFrmSplash.Create(Application);
FrmSplash.Show;
FrmSplash.Update;
while FrmSplash.tmMainTimer.Enabled do Application.ProcessMessages;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
FrmSplash.Hide;
FrmSplash.Free; // menghapus form splash scren dr memory
Application.Run;
end.
Jumat, 2009 Januari 30
Contoh program di bawah ini akan menunjukkan bagaimana cara
untuk menyembunyikan icon pada desktop melalui program yang dibuat dengan
Delphi.
Keterangan tentang fungsi Show Window dan FindWindow dapat di lihat di sini.
Langka-langnya adalah :
1. Buatlah sebuah form sepeti pada gambar 17 berikut ini.
Keterangan tentang fungsi Show Window dan FindWindow dapat di lihat di sini.
Langka-langnya adalah :
1. Buatlah sebuah form sepeti pada gambar 17 berikut ini.
Gambar 17
2. Pada tombol Hiden Icon masukan
code berikut ini.
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE);
end;
pada tombol Show icon codenya adalah sebagai berikut :
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowWindow(FindWindow(nil,'Program Manager'),SW_SHOW);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE);
end;
pada tombol Show icon codenya adalah sebagai berikut :
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowWindow(FindWindow(nil,'Program Manager'),SW_SHOW);
end;
Jumat, 2009 Januari 30
Contoh program di bawah ini akan
menunjukkan bagaimana cara untuk menyembunyikan taskbar melalui program yang
dibuat dengan Delphi.
Untuk menyembunyikan dan menampilkan taskbar kita dapat menggunakan salah satu dari fungsi Windows API yaitu ShowWindow yang deklarasinya sebagai berikut :
function ShowWindow (hwnd : HWND; nCmdShow : integer) : Boolean;
Parameter pertama dari fungsi ShowWindow merupakan handle window yang akan ditampilkan atau disembunyikan. Parameter kedua adalah bagaimana window tersebut ditampilkan. Yang menjadi pertanyaan kita, darimana kita mendapatkan handle window dari taskbar ? Caranya adalah dengan memanggil fungsi FindWindow.
function FindWindow (lpClassName, lpWindowName : PChar) : HWND;
Parameter pertama merupakan nama kelas jendela (window class). Pada Delphi nama ini identik dengan nama kelas dari Form, misalnya TForm1, TForm2, dst. Parameter kedua adalah caption dari form (TForm.Caption).
Kembalian dari fungsi FindWindow adalah handle form yang dicari. Bila Windows tidak menemukan form yang dimaksud, FindWindow akan mengembalikan nilai 0.
Untuk mencari handle form dari taskbar :
FindWindow('Shell_TrayWnd',Nil);
Parameter pertama dari FindWindow diisi dengan Shell_TrayWnd yang merupakan window class dari taskbar. Sedangkan parameter kedua diisi dengan Nil yang menunjukkan bahwa form taskbar tidak mempunyai caption.
Kode selengkapnya untuk menyembunyikan taskbar adalah sbb :
Untuk menyembunyikan dan menampilkan taskbar kita dapat menggunakan salah satu dari fungsi Windows API yaitu ShowWindow yang deklarasinya sebagai berikut :
function ShowWindow (hwnd : HWND; nCmdShow : integer) : Boolean;
Parameter pertama dari fungsi ShowWindow merupakan handle window yang akan ditampilkan atau disembunyikan. Parameter kedua adalah bagaimana window tersebut ditampilkan. Yang menjadi pertanyaan kita, darimana kita mendapatkan handle window dari taskbar ? Caranya adalah dengan memanggil fungsi FindWindow.
function FindWindow (lpClassName, lpWindowName : PChar) : HWND;
Parameter pertama merupakan nama kelas jendela (window class). Pada Delphi nama ini identik dengan nama kelas dari Form, misalnya TForm1, TForm2, dst. Parameter kedua adalah caption dari form (TForm.Caption).
Kembalian dari fungsi FindWindow adalah handle form yang dicari. Bila Windows tidak menemukan form yang dimaksud, FindWindow akan mengembalikan nilai 0.
Untuk mencari handle form dari taskbar :
FindWindow('Shell_TrayWnd',Nil);
Parameter pertama dari FindWindow diisi dengan Shell_TrayWnd yang merupakan window class dari taskbar. Sedangkan parameter kedua diisi dengan Nil yang menunjukkan bahwa form taskbar tidak mempunyai caption.
Kode selengkapnya untuk menyembunyikan taskbar adalah sbb :
procedure TForm1.Button1Click(Sender: TObject);
var
hTaskBar :Thandle;
begin
hTaskBar := FindWindow('Shell_TrayWnd',Nil);
ShowWindow(hTaskBar,Sw_Hide);
end;
Untuk menampilkan taskbar langkahnya sama dengan yang di atas. Yang berbeda hanya parameter kedua dari ShowWindow, yang semula SW_HIDE diganti dengan SW_NORMAL. Kode lengkapnya adalah sebagai berikut :
procedure TForm2.Button1Click(Sender: TObject);
var
hTaskBar :Thandle;
begin
hTaskBar := FindWindow('Shell_TrayWnd',Nil); ShowWindow(hTaskBar,Sw_Normal);
end;
Jumat, 2009 Januari 30
Untuk menjalankan aplikasi Windows
lainnya dari program Anda, Anda bisa menggunakan salah satu fungsi Windows API,
yaitu WinExec. Adapun deklarasi dari fungsi WinExec adalah sebagai berikut :
function WinExec (lpCmdLine : PChar; uCmdShow : integer) : integer;
Parameter pertama merupakan nama file *.exe yang akan dijalankan beserta pathnya.
Parameter kedua menunjukkan bagaimana aplikasi tersebut dijalankan. Parameter ini dapat bernilai :
function WinExec (lpCmdLine : PChar; uCmdShow : integer) : integer;
Parameter pertama merupakan nama file *.exe yang akan dijalankan beserta pathnya.
Parameter kedua menunjukkan bagaimana aplikasi tersebut dijalankan. Parameter ini dapat bernilai :
Parameter Arti
SW_SHOWMINIMIZED Menampilkan aplikasi secara minimal (berbentuk icon)
SW_SHOWMAXIMIZED Menampilkan aplikasi dengan (ukuran) window maksimal
SW_SHOWNORMAL Menampilkan aplikasi dengan window normal
* Ada sembilan nilai parameter lainnya yang dapat Anda lihat pada referensi
Windows API pada bagian ShowWindow
Fungsi WinExec ini akan mengembalikan nilai lebih besar dari 31 jika aplikasi berhasil dijalankan. Sedangkan bila gagal, nilai yang dikembalikan kurang dari atau sama dengan 31. Detail dari nilai kembalian adalah :
Nilai Kembalian Arti
0 Windows mengalami out of memory atau resources
ERROR_BAD_FORMAT File yang dijalankan bukan merupakan file aplikasi Windows
ERROR_FILE_NOT_FOUND File yang dijalankan tidak ditemukan
ERROR_PATH_NOT_FOUND Path file salah
Contoh berikut mungkin akan memperjelas Anda.
procedure TForm1.Button1Click(Sender: TObject);
begin
if (WinExec ('C:\Windows\notepad.exe',
SW_SWOWMAXIMIZED) <>
MessageDlg ('Gagal menjalankan Notepad',
mtError, [mbOK],0);
end;
Pada contoh di atas, pada saat
pemakai mengklik Button1 maka program akan menjalankan file Notepad.exe yang
terletak di C:\Windows.
Jumat, 2009 Januari 30
Untuk melakukan restart, shutdown
atau log off komputer, gunakan fungsi ExitWindowsEx. Ada pun deklarasi dari
fungsi ExitWindowsEx adalah sebagai berikut :
function ExitWindowsEx (uFlags : word ; dwReserved : DWORD): BOOL;
Parameter pertama menerangkan "apa yang harus dilakukan" oleh komputer. Parameter ini dapat bernilai :
function ExitWindowsEx (uFlags : word ; dwReserved : DWORD): BOOL;
Parameter pertama menerangkan "apa yang harus dilakukan" oleh komputer. Parameter ini dapat bernilai :
Konstanta Keterangan
EWX_RESTART Melakukan restart dengan menampilkan peringatan.
EWX_SHUTDOWN Melakukan shutdown dengan menampilkan peringatan.
EWX_LOGOFF Melakukan log off dengan menampilkan peringatan.
EWX_FORCE Melakukan shutdown tanpa menampilkan peringatan.
Sehingga ada kemungkinan Anda akan kehilangan data yang belum disimpan
(belum di-save).
Sedangkan parameter kedua bernilai 0.
Sehingga bila ingin melakukan shutdown cukup tulis kode berikut ini :
ExitWindowsEx (EWX_SHUTDOWN, 0);
sumber : http://ikunlogaritma-berbagiilmu.blogspot.com/2012/05/belajar-membuat-program-dengan-delphi-7.html
Subscribe to:
Posts (Atom)
