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; |
Sabtu, 14 Mei 2011
Menjalankan aplikasi Windows lainnya
Men-shutdown komputer
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 :
|
Sedangkan parameter kedua bernilai 0.
Sehingga bila ingin melakukan shutdown cukup tulis kode berikut ini :
ExitWindowsEx (EWX_SHUTDOWN, 0);
Mengganti RegisteredOwner & Organization
Mengganti RegisteredOwner & Organization
Sebelum Anda meneruskan tutorial Delphi ini, Anda harus memahami seluk beluk registry terlebih dahulu. Silahkan baca sekilas ulasan registry di sini.
Tutorial ini akan menjelaskan tentang cara mengganti RegisteredOwner dan RegisteredOrganization pada komputer Anda. RegisteredOwner dan Organization tersebut dapat kita lihat pada Control Panel - System, lalu pada bagian Registerd To. Untuk mengganti RegisteredOwner secara "manual" (melalui registry editor) dapat Anda lihat di sini.
Langkah pertama sebelum memanipulasi nilai pada registry adalah dengan memberitahukan terlebih dahulu key yang akan diakses. Caranya dengan mengubah properti RootKey. Isi properti ini adalah HKey_Classes_Root, HKey_Current_User, HKey_Local_Machine, atau HKey_Users. Secara default nilai dari properti ini adalah HKey_Current_User, sehingga bila Anda tidak mengisi properti tersebut, Delphi akan menganggap sebagai HKey_Current_User.
Contoh :
var
MyReg : TRegistry;
begin
MyReg := TRegistry.Create;
MyReg.RootKey := HKey_Local_Machine;
........
MyReg.Free;
end;
Langkah kedua adalah membuka subkey yang akan dimanipulasi, yaitu dengan cara memanggil fungsi OpenKey. Deklarasi fungsi OpenKey adalah sebagai berikut :
function OpenKey(const Key: string; CanCreate: Boolean): Boolean;
Terdapat dua parameter yang harus diisi. Parameter pertama bertipe string yang merupakan subkey yang akan dibuka. Sedangkan parameter kedua bertipe boolean, yang akan menentukan apakah subkey tersebut akan dibuat atau tidak. Bila parameter ini bernilai true, maka Delphi akan membuat subkey tersebut jika di registry belum ada. Sebaliknya bila bernilai false, subkey tersebut tidak akan dibuat meskipun di registry belum ada. Fungsi OpenKey ini akan mengembalikan nilai true jika inisialisasi berhasil dan mengembalikan false jika gagal.
Untuk mengganti RegisteredOwner tersebut, subkey-nya adalah :
\SOFTWARE\Microsoft\Windows\CurrentVersion\
Maka, kode yang harus kita tulis adalah :
MyReg.RootKey := HKEY_LOCAL_MACHINE;
MyReg.OpenKey := ('\SOFTWARE\Microsoft\Windows\ CurrentVersion', false);
Setelah langkah di atas, selanjutnya Anda bisa membaca atau menulis data pada registry. Untuk membaca data pada registry Anda dapat menggunakan ReadString, ReadInteger, dll (baca pd file Help-nya Delphi). Sedangkan untuk menulis data pada registry gunakan WriteString, WriteInteger, dll.
Kode di bawah ini menunjukkan cara pembacaan data pada registry, yang hasilnya dituliskan pada komponen Edit1.
Edit1.Text := MyReg.ReadString ('RegisteredOwner');
Edit2.Text := MyReg.ReadString ('RegisteredOrganization');
Sedangkan untuk menuliskan data pada registry gunakan cara berikut :
reg.WriteString ('RegisteredOwner', Edit1.Text);
reg.WriteString ('RegisteredOrganization', Edit2.Text);
Mengetahui path dari aplikasi
Dalam membuat aplikasi, kadang-kadang kita perlu mengetahui path atau letak file *.exe dari suatu program. Bagaimana caranya ?
Caranya cukup mudah sekali. Anda hanya cukup menambahkan property ExeName dari kelas TApplication.
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := Application.ExeName;
end;
Potongan program di atas akan "mencari" letak file *.exe dan menuliskannya pada komponen Label1, jika pemakai mengklik Button1.
Caranya cukup mudah sekali. Anda hanya cukup menambahkan property ExeName dari kelas TApplication.
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := Application.ExeName;
end;
Potongan program di atas akan "mencari" letak file *.exe dan menuliskannya pada komponen Label1, jika pemakai mengklik Button1.
Menginstall Komponen baru
Di sini kami akan memberikan contoh cara menginstall komponen baru pada Delphi 3. Sebelumnya download terlebih dahulu komponen IEButton. Adapun caranya adalah sebagai berikut :
- Setelah Anda mendownload dan mengekstrak file tersebut, maka Anda akan memperoleh empat buah file. Copy keempat file tersebut ke direktory Lib (biasanya C:\Program Files\Borland\Delphi 3\Lib).
- Jalankan program Delphi Anda. Dari menu Component, pilih Install Component.
- Pada bagian Unit File Name, klik Browse dan arahkan ke letak file IEBtn.pas (C:\Program Files\Borland\Delphi 3\Lib\IEBtn.pas).
- Untuk bagian Package File Name, Anda bisa mengisi dengan C:\Program Files\Borland\Delphi 3\Lib\dclusr30.dpk.
- Klik OK.
- Jika penginstallan komponen berhasil maka akan nampak komponen IEButton pada bagian Win95.
Tutorial Delphi
Tutorial Delphi
- Menginstall komponen baru
- Mengetahui path dari aplikasi
- Mengganti RegisteredOwner dan Organization
- Men-shutdown komputer
- Menjalankan aplikasi Windows lainnya
- Menyembunyikan taskbar
- Menjalankan applet pada control panel
- Mengecek disk pada disk drive
- Menyembunyikan icon desktop
- Membuat splash screen
- Tips & trik seputar hint
- Membuat teks icon desktop yg transparan
- Refresh desktop
- Menyembunyikan caption bar
- Memindah form tanpa caption bar
- Membuka Control Panel
- Memberi warna record aktif pada TDBGrid
- Menyembunyikan program dari task list
- Warna pada DBGrid sesuai dengan data
- Akses peralatan luar lewat Parallel Printer Port
- Mengetahui sudah berapa lama Windows dijalankan
- Membuat AutoScroll pada palette
- Feature rahasia pada Delphi 5
- Membuat form gradient
- Membuat rounded form
- Mengganti icon folder
- Membuat alias baru
- Membuat group pada laporan
- Menambahkan form pada DLL
- Membuat efek flat
- Mendisable menu close
- Menambahkan fasilitas skin pada aplikasi dengan SXSkinComponents
Free E-Book Delphi Programing
Ada ebook tentang delphi bagus (delphi database), ini Ane share kepada antum... Ane dapat dari blog siapaaa???? Ane lupa lagi ah..., pokoknya buat pengunjungku tercinta deh!
nie Buku cocok bangeuddd buat ente-ente yang pengen bikin database... Pokoke Mantaaaap Gan...!!!
Download Disini!
nie Buku cocok bangeuddd buat ente-ente yang pengen bikin database... Pokoke Mantaaaap Gan...!!!
Download Disini!
ya... lumayan buat Antum smua yang lagi blajar.. moga bermanfaat ya!!
Kamis, 12 Mei 2011
Free Download 3D Max + Contoh Aplikasinya
3D Studio Max (kadangkala disebut 3ds Max atau hanya MAX) adalah sebuah perangkat lunak grafik vektor 3-dimensi dan animasi, ditulis oleh Autodesk Media & Entertainment (dulunya dikenal sebagai Discreet and Kinetix. Perangkat lunak ini dikembangkan dari pendahulunya 3D Studio fo DOS, tetapi untuk platform Win32. Kinetix kemudian bergabung dengan akuisisi terakhir Autodesk, Discreet Logic. Versi terbaru 3Ds Max pada Juli 2005 adalah 7. 3Ds Max Autodesk 8 diperkirakan akan tersedia pada akhir tahun. Hal ini telah diumumkan oleh Discreet di Siggraph 2005.
bagi sobat sobat semua kali ini ane Posting lagi tentang Freeware nie... Mangga Cobian weee. untuk link donlotnya sobat2 bisa unduh di sini..
Senin, 09 Mei 2011
Programable Logic Control (PLC)
Dalam bidang industri penggunaan mesin otomatis dan pemrosesan secara otomatis merupakan hal yang umum. Sistem prengontrolan dengan elektromekanik yang menggunakan relay-relay mempunyai banyak kelemahan, diantaranya kontak-kontak yang dipakai mudah aus karena panas / terbakar atau karena hubung singkat, membutuhkan biaya yang besar saat instalasi, pemeliharaan dan modifikasi dari sistem yang telah dibuat jika dikemudian hari dipertlukan modifikasi.
Dengan menggunakan PLC hal-hal ini dapat diatasii, karena sistem PLC mengintegrasikan berbagai macam komponen yang berdiri sendiri menjadi suatu sistem kendali terpadu dan dengan mudah merenovasi tanpa harus mengganti semua instrumen yang ada.
Dengan menggunakan PLC hal-hal ini dapat diatasii, karena sistem PLC mengintegrasikan berbagai macam komponen yang berdiri sendiri menjadi suatu sistem kendali terpadu dan dengan mudah merenovasi tanpa harus mengganti semua instrumen yang ada.
Elektronika Dasar
Untuk mahasiswa/i Sekolah Tinggi Teknologi jurusan Teknik Komputer yang mengambil Mata Kuliah Elektronika Dasar, nie Ane kasih lagi Modulnya Buat Referensi Sobat-sobat semua. Ane dapet dari Blognya HMTK Gunadarma.
Again And Again, butuh lagi yang namanya modul! nah, kalau kalian mau donlot modul nya silahkan langsung ke TKP gan..
MODUL ELEKTRONIKA DASAR
MODUL ELEKTRONIKA 1
Modul ini hanya buar referensi aja sie... soalnya di jurusan juga udah disediain, cuma.. bagus kali sobat buat ente-ente yg mau praktikum. Salam Solidaritas!
MODUL FISIKA DASAR
Dalam posting kali ini, kami akan berbagi dengan kawan-kawan mahasiswa jurusan Sistem Komputer, Teknik Komputer, Sistem Informasi dan Teknik Informatika dalam mempersiapkan praktikum di Laboratorium Fisika Dasar. Hal yang sangat dibutuhkan untuk praktikum tersebut adalah modul. Modul Praktikum Fisika Dasar ini bisa Sobat-sobat download di:
Atau bisa disini:
I. MEKANIKA
MO. PENGUKURAN
M1. BANDUL MATEMATIS
M2. MODULUS YOUNG
M3. MOMEM KELEMBAMAM
M4. AYUNAN PUNTIR
M11. OSILASI
M12. KOEFISIEN KEKENTALAN ZAT CAIR
II. LISTRIK
L1. HUKUM KIRCHOFF
L2. JEMBATAN WHEATSTONE
L3. KARAKTERISTIK RANGKAIAN RLC
L4. HUKUM OHM
L5. EFEK TRANSIEN RANGKAIAN RC
L6. ELEKTROLISA
III.PANAS/KALOR
K1. KALORIMETER
K2. KONSTANTA JOULE
K3. KOEFISIEN MUAI LINIER
K4. DAYA HANTAR PANAS
IV.OPTIK
O1. LENSA
O3. POLARIMETER
O7. KISI DIFRAKSI
Kalau kawan-kawan butuh bantuan mengenai praktikum Fisika Dasar, kami dengan sangat senang hati akan berusaha membantu kawan-kawan.
Selayang Pandang
Gambaran Umum
HIMAKOM atau Himpunan Mahasiswa Teknik Komputer Merupakan Organisasi Intra Kampus di Sekolah Tinggi Teknologi Garut (STTG) dan bernaung di bawah Badan Eksekutif Mahasiswa (BEM) yang menampung dan mendayagunakan aspirasi serta kemampuan mahasiswa jurusan Teknik Komputer yang nantinya dapat berguna bagi diri sendiri, himpunan, Lembaga STTG, serta nusa dan bangsa Indonesia
Langganan:
Postingan (Atom)