Konversi Nilai (Borland Delphi)

Konversi Nilai, Mengubah keterangan nilai dengan keterangan Huruf sepeti Nilai Mahasiswa dengan Grade A,B, C atau sebagai nya dengan perbandingan asumsi nilai 50>10 = C  atau 90> 100 = C, Mari kita mengimplementasikan ke Borland delphi.

 

Memanggil Exe, File, alamat Website dari Borland Delphi dengan Perintah ShellExecute

Tutorial Delphi kali ini Membahas tentang Cara memanggil Exe, File, alamat Website, Pemutar Music, Office dll dari Borland Delphi dengan Perintah ShellExecute. ShellExecute merupakan salah satu fungsi API yang memiliki kegunaan yang beragam. sekarang saya bahas dalam pemrogramannya dengan pemanggilan Web Mozila firefox ,Alamat Website dll. Tambahkan ShellAPI pada Uses

Source Lengkap :

unit Unit1;
//==========================================================//
//copyright : http://olvandra.blogspot.com                  //
//            http://meanddelphi.blogspot.com                //
//==========================================================//

Cara Mendelete Data Di database (Delphi)

Iseng-iseng posting buat Yg Newbie Cara Mendelete Data Di database Access dari delphi 7, dengan sistem muncul sebuah pesan mungkin akan berguna untuk kedepannya,,, yg mo dl silahkan sedot.... Sederhana tp patut untuk Belajar Buat newbie..

Akses menggunakan

• Datamodule
• Form1
• ADO
• Image
• dll

Program Berjalan dari atas ke bawah

Satu lagi nih Tutorial yg mo buat animasi tulisan berjalan dari Berjalan dari atas ke bawah (Delphi 7) dengan pengaturan timer kecepatan gerak dari program tersebut...
semakin banyak angka yg di isi di TEdit, maka semakin lambat kecepatan jalan Laber tersebut... Mudah tapi Sederhana...  System INTERVAL pada TTimer yang di set dalam Program...setting warna dengan Settingan Dropdown.. silahkan di coba... Free Download Program Berjalan dari atas ke bawah Borland Delphi 7.

Program Bejalan dari atas ke bawah dan balik lagi keatas (Delphi 7)

Tutorial Sebelumnya Program Bejalan dari atas ke bawah(Delphi7), kali ini saya posting Tutorial Program Bejalan dari atas ke bawah dan balik lagi keatas (Delphi7), Logikanya sangat mudah dan bisa dimengerti untuk para newbie,, ok yg mo coba silahkan di download source code Program Bejalan dari atas ke bawah dan balik lagi keatas (Delphi 7) gan...

 

Program Input Sederhana dengan Delphi

Pernah gx sih bingung soal Nyimpen Data, Delete, input,Ambil Gambar, Simpan Gambar, dan Ouput data dalam Delphi.... Bingung Kah,,,,/>>>>!@#$%^& ??? Gax usa Bingung... ni saya kasih solusi sederhananya Melalui Tutorial Delphi yg sangat sederhana, Silahkan Yang ingin mencoba Free Download Source Code Program Input Sederhana Fakultas Dengan Delphi 7

Procedure dalam Program :

• Penyimpanan Data dalam Database (Ms. Access)
• Load Data
• Delete Data
• Input Data
• Output Data (laporan Rekapitulasi)
• Penyimpanan Gambar
• Load Gambar
• Pencarian
• Handle Dengan Message
• Onkey Press dengan Tombol  ENTER
• Penghitungan Uang
• Format Uang Currency (dengan Tanda Titik) Contoh 10.000.000
• Setting Biaya
• Pergantian Warna Form
• View Data
• Animasi Tulisan
• Font
• dll

ScreenShot :

Cara Skin Tampil Di Pc Lain dengan Alphaskin(Delphi7)

Malam Semua ini dia tutorial buat yang masih binggung bagaimana Supaya Skin ( alphaskin di Delphi 7) yang kita pake di Komputer kita bisa sama dengan di komputer lain. Kasus Banyak Terjadi dimana saat mendesign Program Skin yang kita pake Pas Skin nya lalu tiba-tiba pengen buka Program kita di komputer temen Pas di RUN  TERNYATA LHO..................

1. Kok Skinnya Polos ya...?
2. Kemana Skin yang tadi??? 
3. Error Kah?? 

Jawabannya Skin tidak error dan tidak hilang hanya saja pada saat di komputer kita terdapat Alphaskin yang telah terinstal di delphi dengan FOLDER skin di Locak disk C secara default, sedang kan di komuter temen gx ada alphaskinnya atau Skin Folder nya gax ada... 

Trussssss

Bagaimana cara Supaya Skinnya sama dengan komputer saya???

Nah,,,,,,, begini penyelesaian Nya agan-agan sekalian : saya akan buat program sederhana kayak gini nih

Remaining Time I

Tutorial kali ini saya tampilkan yaitu Remaining time yaitu penghitungan waktu mundur dari depan kebelakang, contoh dan source code nya sangat sederhana. penghitungan waktu mundur ini dengan angka digunakan dalam pemrogram delphi dalam aplikasi biasanya bisa kita lihat dalam aplikasi mediaplayer, winamp dengan durasi lagu yang bisa dihitung mundur. Adapun pula dalam remaining time digunakan dalam pembuaan tampilan show form dengan durasi yang ingin ditentukan dalam penanyangan nya.dengan menggunankan TTimer kita bisa memanipulasi data integer dalam hitungan dengan aksi-aksi yang di inginkan. langsung aja free download source code Remaining time delphi dan tutorial delphinya di bawah ini via mediadire

Aplikasi Buku Telphone dengan Delphi 7.0

Aplikasi Xcell Buku Telp Ver.1.1

Tutorial Aplikasi Buku Telp Dengan Borland Delphi, penyimpanan Aplikasi ini Berbasiskan Database Acces 2003. Dengan menggunakan AdoConnection sebagai Media Penghubungnya, selain itu juga aplikasi ini menggunakan AdoQuery, AdoTable, Datasource, DBGrid, DBText, dll. Aplikasi Ini Bersifat sederhana dan masih banyak kekurangannya.

Note : Untuk Database accessnya Silahkan Copy Aja Dari Souce Programnya ya… :D

Aplikasi ini sebagai pembelajaran semata (Iseng-Iseng) Hehehehe ^_^, sebagai kemajuan IT Indonesia saran dan kritikan sangat membantu.. ^_^ .

Spesifikasi Program :

• Ukuran program Kecil sangat ringan diGunakan.
• Mudah dalam pencarian data,
• Bersifat Portable  (tanpa perlu di instal).
• Menginputan  menggunakan Spesifikasi Nomor.Operator
• Tampilan mengunakan Image Full Color
• Penginput Dengan Metode 2(dua) inputan: Operator dan Nomor
• Database dengan menggunakan Database Access 2003

Menampilkan Tipe Data Currency dalam Grid dgn tanda titik / koma

Cara Menampilkan Tipe Data Currency dalam Grid dgn tanda titik / koma dalam Pemprogram Delphi,  dengan menggunakan Perintah Merubah sistem properties di data datamodul1.  Berikut Contoh code Programnya :

mengisi angka pembayaran pada DB grid dengan titik atau koma bisa dilakukan dengan 2 cara yaitu :


cara pertama :

// letakan pada data module
 ============== Begin Code ==============

function SetFieldDisplayFormat(const ADataset: TDataset; const AFieldName: string): Boolean;
  var AField: TField;
  begin
  AField:= ADataset.FindField(AFieldName);

  Result:= (AField <> nil) and (AField is TNumericField);
  if Result then
  TNumericField(AField).DisplayFormat:= '###,##0.00';
  end;
============== End Code ===============


Cara kedua :

-> buka Form Data module
-> buka Ado table yang berisi nilai uang
   contoh : total harga, harga barang , dll
-> lalu buka object treeVIew
-> klik tanda (+)
-> klik tanda (+) -> Fields -> pilih nama fieldnya
-> lihat properties
-> cari tulisan displayFormat
-> lalu isi dengan '###,##0.00
-> lalu SAVE ALL Project
-> silahkan RUn project
-> Perhatikan pada DBGRID Format telah berubah menjadi Format Uang.
   Contoh : 1.000.000,00

 

Bila Telah Selesai  RUN dengan Menekan F9 (Compiler) Project, Ok sekian Tutorial Delphinya Selamat Mencoba.  ^_^

KOMPONENT CHART DI QReport (Delphi 7)

Pada menu IDE Delphi pergi ke:

1 - "Install Paket".
2 - Tekan tombol "Add".
3 - Pergi ke direktori ini "C: \ Program Files \ Borland \ Delphi7 \ Bin".
4 - Pilih "dcltqr70.bpl" dan tekan "Open" tombol.
5 - Tekan tombol "OK".

Sekarang Anda dapat melihat komponen grafik pada tab QReport

ScreenShot :

Virtual Key

Virtual Key codes provide a symbolic representation of user key presses.

Unit  Windows  Description  Virtual key codes allow you to represent keyboard values for non-alphanumeric keys. Windowsdefines special constants for each key the user can press. These constants can then be used to refer to the keystroke in Windows API calls or in an OnKeyUp or OnKeyDown event handler.  Most of the virtual key codes are defined in the Windows unit. Additional key codes may be defined in special-purpose Windows wrappers such as the imm unit. For alphabetic keys, you should use ord with an uppercase character, for example, ord( 'M' ).   To create a virtual key code for an alphanumeric value, use the Ord method. For example the virtual

Dalam Bahasa Indonesianya :Kode kunci virtual memberikan representasi simbolis penekanan tombol pengguna.

Unit Windows Deskripsi Kode kunci virtual memungkinkan Anda untuk mewakili nilai-nilai keyboard untuk non-alfanumerik kunci. Jendela mendefinisikan konstanta khusus untuk setiap tombol pengguna dapat menekan. Konstanta ini kemudian dapat digunakan untuk merujuk pada keystroke dalam panggilan Windows API atau dalam onkeyup atau pawang OnKeyDown acara. Sebagian besar kode tombol virtual didefinisikan di unit Windows. Kode kunci tambahan mungkin didefinisikan dalam tujuan khusus pembungkus Windows seperti unit IMM. Untuk kunci alfabetis, Anda harus menggunakan Ord dengan karakter huruf besar, misalnya, Ord ('M'). Untuk membuat kode tombol virtual untuk nilai alfanumerik, gunakan metode Ord. Misalnya virtual

Fungsi Key Bisa digunakan dalam Pemrograman Borland Delphi sebagai Onkey pada Event Key Nya..

 

Alphaskin Ver 7,30 (Borland Delphi)

Borland Delphi memiliki banyak komponent skin tambahan yang bisa kita pakai untuk membuat aplikasi yang kita buat menjadi lebih menarik, salah satunya adalah Alphaskins. kali ini New update alphaskin Versi 7.30 buat agan-agan... Free +full versi tentunya..

silahkan donwload Alphaskin 7,30 dibawah ini via mediafire

Berikut contoh Tampilan  Program yang pernah saya buat dengan Alphaskin dengan Pengaturan warna di SkinManager alphaskin.

Penjumlahan, Pengurangan, Pembagian dan Perkalian Bilangan di Borland Delphi 7

Penjumlahan Bilangan dalam delphi ??? Penjumlahan bilangan di delphi yaitu penjumlahan bilangan didalam Program yang kita buat seperti hal nya kalkulator. Kira-kira ada tau tidak gimana cara nya??? untuk yang belum tau saya kasih tau deh.... Open Delphi ANDA !!! Berikut ini saya kasih tutorialnya Penjumlahan, Pengurangan, Pembagian dan Perkalian .

Seperti Gambar dibawah ini :

Kalkulator Ver 1.0 (Delphi7)

Pada Postingan Sebelumnya kita telah Membahas satu per satu mengenai Penjumlahan, Pengurangan, Pembagian dan Perkalian, kali ini coba kita gabungkan dari ke EMPAT rangkaian bilangan tersebut jadi satu Program Mungkin akan lebih simple... Kali ini saya Buat Tutorial KALKULATOR dengan Delphi mungkin sedikit sederhana dan mudah untuk dibuat.

berikut SCREENSHOT nya :

Berikut Tutorial dengan Coding Lengkapnya :

Animasi Tulisan dengan delphi 7

Kali ini tutorial ANimasi Tulisan Berjalan dengan Delphi, dengan bergerak kekiri dan kekanan, kayak mantul gitu.... aplikasi ini menggunakan borland Delphi 7, dengan komponen :

1. TTimer
2. TLabel
3. dan TPanel

Aplikasi ini cukup sederhana dengan code program yang sangat simple dan mudah untuk digunakan dalam menambah atau mempercantik tampilan di FORM delphi...
langsung ke TKP aja ya....

Pertama :

Buat sebuah form di delphi
masukan komnen seperti diatas ke dalam form

Seperti screenshot dibawah ini :

Cara Install Alphacontrol (Alphaskin) di Delphi 7

Sesuai permintaan Posting Kali ini telah saya Update secara detail install alphacontrol pada delphi, Delphi memiliki banyak komponen skin tambahan yang bisa kita pakai untuk membuat applikasi yang kita buat menjadi lebih menarik, salah satunya adalah Alphaskins Form. Alphaskins Form dari alphacontrol memiliki 2 versi, yaitu versi lite yang merupakan versi gratisan dan versi Premium/trial.

Premium memiliki beberapa komponen visual tambahan yang tidak ada pada versi lite, namun versi lite saja sudah cukup untuk membuat tampilan aplikasi yang kita buat menjadi lebih menarik.

Free tapi Full VERSI lebih baik alias GRATIS+PREMIUM 

Langsung aja ya,,,

Untuk Alphacontrol silahkan download dibawah ini :


Untuk cara Installasi Alphacontol (alphaskin) silahkan Download Document Ms.Word dibawah ini

 

Untuk Info Component sekilas Tentang alphaskin saya tampilkan melalui Delphi Sebagai Berikut :

Borland Delphi 7

Delphi 7, dirilis pada bulan Agustus 2002, menjadi versi standar yang digunakan oleh pengembang Delphi lebih daripada versi tunggal lainnya. Ini adalah salah satu IDE yang paling sukses dibuat oleh Borland karena, kecepatan stabilitas dan persyaratan perangkat keras rendah, dan tetap digunakan aktif sebagai tahun 2011. Delphi 7 menambahkan dukungan untuk Windows XP Tema, dan menambahkan lebih banyak dukungan untuk membangun web aplikasi. Ini adalah versi terakhir dari Delphi yang dapat digunakan tanpa aktivasi perangkat lunak.

Free Download Borland Delphi 7   + Serial Number

Part 1

Part 2

Part 3

Part 4

Embarcadero Delphi

Embarcadero Delphi

Delphi adalah sebuah IDE Compiler untuk bahasa pemrograman Pascal dan lingkungan pengembangan perangkat lunak. Produk ini dikembangkan oleh CodeGear sebagai divisi pengembangan perangkat lunak milik Embarcadero, divisi tersebut sebelumnya adalah milik Borland. Bahasa Delphi, atau dikenal pula sebagai object pascal (pascal dengan ekstensi pemrograman berorientasi objek (PBO/OOP)) pada mulanya ditujukan hanya untuk Microsoft Windows, namun saat ini telah mampu digunakan untuk mengembangkan aplikasi untuk Linux dan Microsoft .NET framework (lihat di bawah). Dengan menggunakan Free Pascal yang merupakan proyek opensource, bahasa ini dapat pula digunakan untuk membuat program yang berjalan di sistem operasi Mac OS X dan Windows CE

Pada tanggal 8 Februari 2006, Borland mengumumkan akan melepas seluruh jajaran produk pengembangan aplikasi komputernya termasuk di antaranya Delphi, untuk itulah Borland membentuk perusahaan baru dengan nama CodeGear sehingga terpisah dari Borland . Saat ini Delphi menjadi bagian dari jajaran IDE milik Embarcadero Technologies setelah Embarcadero Technologies mengakuisisi CodeGear. Hal ini disebabkan karena kerugian yang terus menerus selama 2006 rugi bersih sebesar $53.1 juta, 2007 rugi bersih $61 juta. Sehingga pada tahun 2008 saat CodeGear menderita rugi bersih $22.3 maka CodeGear dijual ke Embarcadero seharga $23 juta untuk menutupi rugi bersih ini

Delphi Compiler Version Directives

Preparing to code with no barriers. See how to overcome the compiler version problem: compiling Delphi code for various Delphi versions.

If you plan on writing Delphi code that should work with several version of the Delphi compiler you need to know under which versions your code gets compiled.

Suppose you are writing your own (commercial) custom component. Users of your component might have different Delphi versions than you have. If they try to recompile the component's code (your code) - they might be in trouble! What if you were using default parameters in your functions and the user has Delphi 3?

Compiler directive: $IfDef

Compiler directives are special-syntax comments we can use to control the features of the Delphi compiler. The Delphi compiler has three types of directives: switch directives, parameter directives and conditional directives. Conditional compilation lets us selectively compile parts of a source code depending on which conditions are set.

The $IfDef compiler directive starts a conditional compilation section.

The syntax looks like:

 {$IfDef DefName}
 ...
 {$Else}
 ...
 {$EndIf}
 

The DefName presents the so-called conditional symbol. Delphi defines several standard conditional symbols. In the "code" above, if the DefName is defined the code above $Else gets compiled.

Delphi Version Symbols

A common use for the $IfDef directive is to test the version of the Delphi compiler. The following list indicates the symbols to check when compiling conditionally for a particular version of the Delphi compiler:

• SYMBOL - COMPILER VERSION
• VER80 - Delphi 1
• VER90 - Delphi 2
• VER100 - Delphi 3
• VER120 - Delphi 4
• VER130 - Delphi 5
• VER140 - Delphi 6
• VER150 - Delphi 7
• VER160 - Delphi 8
• VER170 - Delphi 2005
• VER180 - Delphi 2006
• VER180 - Delphi 2007
• VER185 - Delphi 2007
• VER200 - Delphi 2009
• VER210 - Delphi 2010
• WIN32 - Indicates that the operating environment is the Win32 API.
• LINUX - Indicates that the operating environment is Linux
• MSWINDOWS - Indicates that the operating environment is the MS Windows/li]
• CONSOLE - Indicates that an application is being compiled as a console application

By knowing the above symbols it is possible to write code which works with several versions of Delphi by using compiler directives to compile appropriate source code for each version.

Note: symbol VER185, for example, is used to indicate Delphi 2007 compiler or an earlier version.

Using "VER" symbols

It's quite usual (and desirable) for each new Delphi version to add several new RTL routines to the language.

For example, the IncludeTrailingBackslash function, introduced in Delphi 5, adds '\' to the end of a string if it is not already there. In the Delphi MP3 project, I have used this function and several readers have compained that they can't compile the project - they have some Delphi version prior to Delphi 5.

One way to solve this problem is to create your own version of this routine - the AddLastBackSlash function. If the project should be compiled on Delphi 5, the IncludeTrailingBackslash is called. If some of the previous Delphi versions are used than we simulate the IncludeTrailingBackslash function.

It could look something like:

 function AddLastBackSlash(str: string) : string;
 begin
 {$IFDEF VER130}
  Result:=IncludeTrailingBackslash(str) ;
 {$ELSE}
  if Copy(str, Length(str), 1) = '\' then
    Result := str
  else
    Result := str + '\';
 {$ENDIF}
 end;
 

When you call the AddLastBackSlash function Delphi figures out which portion of the function should be used and the other part is simply skipped.

Delphi 2008?

Delphi 2007 uses VER180 in order to maintain non-breaking compatability with Delphi 2006 and then ads VER185 in order for development that specifically needs to target Delphi 2007 for whatever reason. Note: any time the interface of a unit changes the code that uses that unit has to be re-compiled.
Delphi 2007 is non-breaking release meaning that DCU files from Delphi 2006 will work as-is.

Sumber : Link

Show/hide mouse cursor

Cara memunculkan dan menyembunyikan Cursor Mouse di Form Delphi di saat RUN, begini Caranya, Di Form letakkan Dua Tbutton ( Button1 dan Button2), kemudian isikan code Programnya sebagai Berikut :


procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowCursor(False);  // Hide cursor
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowCursor(True);  // Show cursor
end;
Nah.. Bila Telah Selesai Selahkan RUN dengan Menekan F9 (Compiler) Project, Ok sekian Tutorial Delphinya Selamat Mencoba.

Ignore Ctrl+V keys di TMemo

Ignore Ctrl+V keys in Memo, mungkin bisa di berguna dalam suatu pembuatan program dalam Borland Delphi, berikut ini menggunakan TMemo (Memo1) dan masukan COde Program dalam Properties Event OnKeyDown.

Berikut Contoh COde Programnya :

Prevent users from pasting text in your Memo.
// Tambahkan Pada Uses
uses Clipbrd;
...

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ((Key=Ord('V'))and(ssCtrl in Shift)) then
  begin
    Clipboard.Clear;
    Memo1.SelText:='Delphi http://olvandra.blogspot.com';
    Key:=0;
  end;
end;

Bila Telah Selesai  RUN dengan Menekan F9 (Compiler) Project, Ok sekian Tutorial Delphinya Selamat Mencoba.  ^_^

Paste or copy the content of Tmemo

Kembali Ke Posting Sebelumnya Pada Ignore Ctrl+V keys in Memo maka kali ini saya Bahas Mengenai Cara COpy dan PAste Di TMemo. Dalam suatu pembuatan program dalam Borland Delphi, berikut ini menggunakan TMemo (Memo1)  dengan 2 (dua) TButton (Button1 dan Button2) dan masukan C0d3 Program dalam Properties Event OnClick. Berikut Contoh Programnya :

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.SelectAll;
  Memo1.CopyToClipboard;
  Memo1.Clear;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo2.PasteFromClipboard;
end;

Bila Telah Selesai  RUN dengan Menekan F9 (Compiler) Project, Ok sekian Tutorial Delphinya Selamat Mencoba.  ^_^

Trap mouse events outside of my application

 

 
"Trap mouse events outside of my application"

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, AppEvnts, StdCtrls;

type
  TForm1 = class(TForm)
    ApplicationEvents1: TApplicationEvents;
    Button_StartJour: TButton;
    Button_StopJour: TButton;
    ListBox1: TListBox;
    procedure ApplicationEvents1Message(var Msg: tagMSG;
      var Handled: Boolean);
    procedure Button_StartJourClick(Sender: TObject);
    procedure Button_StopJourClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    FHookStarted : Boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

Start the screensaver

Code Program dengan Memanggil Perintah Screensaver  dari Program Delphi dengan menggunakan Perintah di satu tombol TButton (Button1) masukan C0d3 Program dalam Properties Event OnClick. Berikut Contoh Programnya :

procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMessage(Handle, WM_SYSCOMMAND, SC_SCREENSAVE, 0);
end;

Bila Telah Selesai  RUN dengan Menekan F9 (Compiler) Project, Ok sekian Tutorial Delphinya Selamat Mencoba.  ^_^

Mengganti System Time dan Tanggal Di Windows (Delphi)

Dalam Windows Merubah SETTING Tanggal Jam pada System di Control Panel, coba kita buat dengan cara men SETTING dari Program Delphi Mungkin bisa berguna dalam Kombinasi Pembuatan program di Borland Delphi. dengan mengubah system berdasarkan format yang kita inginkan, contoh source code dibawah ini dengan mengubah settingan dari format AM PM menjadi Format 24 Jam Asumsinya ( 12 AM = 00.00) english to Indonesia. Program Delphi dengan menggunakan Perintah di satu tombol TButton (Button1) masukan C0d3 Program dalam Properties Event OnClick. Berikut Contoh code Programnya :

procedure TForm1.Button1Click(Sender: TObject);
var
  SystemTime: TSystemTime;
  NewTime, NewDate: string;
begin
  NewTime := '12:00:00';
  NewDate := '01.01.2012';
  DateTimeToSystemTime(StrToDate(NewDate) + StrToTime(NewTime), SystemTime);
  SetLocalTime(SystemTime);
  // Tell windows, that the Time changed!
  PostMessage(HWND_BROADCAST, WM_TIMECHANGE, 0, 0); // *
end;

Bila Telah Selesai  RUN dengan Menekan F9 (Compiler) Project, Ok sekian Tutorial Delphinya Selamat Mencoba.  ^_^

Minimize all windows (Delphi)

System yang meminimize Tab panel pada TaksBar Windows dengan system yang diatur dalam code Program pada delphi dengan menggunakan Perintah di satu tombol TButton (Button1) masukan C0d3 Program dalam Properties Event OnClick. Berikut Contoh code Programnya :

procedure TForm1.Button1Click(Sender: TObject);
var
  h: HWnd;
begin
  h := Handle;
  while h > 0 do
  begin
    if IsWindowVisible(h) then
      PostMessage(h, WM_SYSCOMMAND, SC_MINIMIZE, 0);
    h := GetNextWindow(h, GW_HWNDNEXT);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Keybd_event(VK_LWIN, 0, 0, 0);
  Keybd_event(Byte('M'), 0, 0, 0);
  Keybd_event(Byte('M'), 0, KEYEVENTF_KEYUP, 0);
  Keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0);
end;

Bila Telah Selesai  RUN dengan Menekan F9 (Compiler) Project, Ok sekian Tutorial Delphinya Selamat Mencoba.  ^_^

Mengganti Ukuran Button START Windows (Delphi)

Ukuran Button Windows dapat diganti dengan menggunakan C0d3 yang Simple pada Borland Delphi, dengan menggunakan Perintah di satu tombol TButton (Button1) masukan C0d3 Program dalam Properties Event OnClick. Berikut Contoh code Programnya :

procedure TForm1.Button1Click(Sender: TObject);
begin
  MoveWindow(FindWindowEx(Find

Window('Shell_TrayWnd', nil), 0, 'Button', nil),
             300, 0, 80, 22, true);
end;

Bila Telah Selesai  RUN dengan Menekan F9 (Compiler) Project, Ok sekian Tutorial Delphinya Selamat Mencoba.  ^_^

Standby mode di Windows (Delphi)

Mesetting Mode StandBy Windows di Borland Delphi 7 dengan menggunakan Perintah di satu tombol TButton (Button1) masukan C0d3 Program dalam Properties Event OnClick. Berikut Contoh code Programnya :

procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMessage(Handle, WM_SYSCOMMAND, SC_SCREENSAVE, 1);
end;

Bila Telah Selesai  RUN dengan Menekan F9 (Compiler) Project, Ok sekian Tutorial Delphinya Selamat Mencoba.  ^_^

Mengosongkan recycle bin

Cara mengosongkan Recycle Bin dari Delphi bisa di buat dengan menggunakan Perintah di satu tombol TButton (Button1) masukan C0d3 Program dalam Properties Event OnClick. Berikut Contoh code Programnya :

procedure EmptyRecycleBin;
const
  SHERB_NOCONFIRMATION = $00000001;
  SHERB_NOPROGRESSUI = $00000002;
  SHERB_NOSOUND = $00000004;
type
  TSHEmptyRecycleBin = function(Wnd: HWND;
                                pszRootPath: PChar;
                                dwFlags: DWORD): HRESULT;  stdcall;


var
  SHEmptyRecycleBin: TSHEmptyRecycleBin;
  LibHandle: THandle;
begin  { EmptyRecycleBin }
  LibHandle := LoadLibrary(PChar('Shell32.dll

'));
  if LibHandle <> 0 then @SHEmptyRecycleBin :=
      GetProcAddress(LibHandle, 'SHEmptyRecycleBinA')
  else
  begin
    MessageDlg('Failed to load Shell32.dll.', mtError, [mbOK], 0);
    Exit;
  end;
  if @SHEmptyRecycleBin <> nil then
    SHEmptyRecycleBin(Application.Handle,
                      nil,
                      SHERB_NOCONFIRMATION or SHERB_NOPROGRESSUI or SHERB_NOSOUND);
  FreeLibrary(LibHandle); @SHEmptyRecycleBin := nil;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EmptyRecycleBin;
end;

Bila Telah Selesai  RUN dengan Menekan F9 (Compiler) Project, Ok sekian Tutorial Delphinya Selamat Mencoba.  ^_^

Memanggil Program Luar Dari Delphi

Cara Memanggil Program dalam Pemprogram Delphi, misalnya memangil Scanner, Word, Kalkulator, dll, sebagai contoh code program dibawah ini saya memanggil Kalkulator yang ada di windows dengan menggunakan Perintah di satu tombol TButton (Button1) masukan C0d3 Program dalam Properties Event OnClick. Berikut Contoh code Programnya :

procedure TForm1.Button1Click(Sender: TObject);
begin
   WinExec('calc.exe',SW_SHOWNORMAL);; // Intinya "calc.exe " memanggil nama dari Exe tersebut dari delphi.

end;

 

Bila Telah Selesai  RUN dengan Menekan F9 (Compiler) Project, Ok sekian Tutorial Delphinya Selamat Mencoba.  ^_^