Sabtu, 24 Januari 2009
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.
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 jalanya 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
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 jalanya 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
Diposkan oleh Mawi di 03:17:00
Rusmiyati Binti Subarji mengatakan...
tolong jelaskan lebih detail lgi muali dari penggunaan tiap toolbox dan propertis
Beajar membuat Text Berjalan
Selasa, 03 Februari 2009
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.
1 komentar:
Ade Rusliana, M.Pd. mengatakan...
tanks
Langgan: Poskan Komentar (Atom)
Pengikut
Cara Mudah Mencari File
Untuk Mencari File yang anda inginkan dari bebrepa situs File Hosting seperti :
Silahkan Click Disini untuk melakukan pencarian
Subscribe RSS
Blog Archive
Belajar Menampilkan Palet Warna
Selasa, 03 Februari 2009
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, 03 Februari 2009
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.
Diposkan oleh Mawi di 21:02:00
2 komentar:
Dream World mengatakan...
Makasih program menghitung akarnya membantu, saya mau nanya bisa gak apabila kita memakai edit 1 untuk menulis angka ,edit 2 untuk menulis akar yang akan ditentukan terus gimana cara buat program /cara /rumus penghitungannya ??tolong ya Mas,penting banget
roni.adv mengatakan...
mas mau nanya!
bagaimana rumus delphi x1=-2a/bxakar(d)/c
bagaimana rumus delphi x1=-2a/bxakar(d)/c
Belajar cara MEMBUAT CALCULATOR sederhana
Selasa, 03 Februari 2009
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;
Refresh desktop
Jumat, 30 Januari 2009
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;
Cara Mudah Mencari File
Untuk Mencari File yang anda inginkan dari bebrepa situs File Hosting seperti :
Silahkan Click Disini untuk melakukan pencarian
Belajar Menjalankan aplikasi Windows lainnya
Jumat, 30 Januari 2009
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, 30 Januari 2009
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;
Diposkan oleh Mawi di 18:18:00
Jumat, 30 Januari 2009
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 mengunakan Delphi 7
Untuk membuat splash scren tersebut caranya sebagai berikut :
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.
Diposkan oleh Mawi di 18:10:00
Jumat, 30 Januari 2009
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;
3. Jalankan program yang telek dibuat.
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;
3. Jalankan program yang telek dibuat.
Diposkan oleh Mawi di 18:09:00
Jumat, 30 Januari 2009
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;
Diposkan oleh Mawi di 18:06:00
Jumat, 30 Januari 2009
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.
Diposkan oleh Mawi di 18:03:00