MENU UTAMA


Warning: Parameter 1 to modMainMenuHelper::buildXML() expected to be a reference, value given in /home/amin/public_html/libraries/joomla/cache/handler/callback.php on line 100

Tips dan Trik


Warning: Parameter 1 to modMainMenuHelper::buildXML() expected to be a reference, value given in /home/amin/public_html/libraries/joomla/cache/handler/callback.php on line 100

Tutorial


Warning: Parameter 1 to modMainMenuHelper::buildXML() expected to be a reference, value given in /home/amin/public_html/libraries/joomla/cache/handler/callback.php on line 100

Warning: Parameter 2 to plgContentEmailCloak() expected to be a reference, value given in /home/amin/public_html/libraries/joomla/event/dispatcher.php on line 136

Warning: Parameter 2 to plgContentLoadModule() expected to be a reference, value given in /home/amin/public_html/libraries/joomla/event/dispatcher.php on line 136

Warning: Parameter 2 to plgContentPagebreak() expected to be a reference, value given in /home/amin/public_html/libraries/joomla/event/dispatcher.php on line 136

Teknologi


Warning: Parameter 1 to modMainMenuHelper::buildXML() expected to be a reference, value given in /home/amin/public_html/libraries/joomla/cache/handler/callback.php on line 100

Download


Warning: Parameter 1 to modMainMenuHelper::buildXML() expected to be a reference, value given in /home/amin/public_html/libraries/joomla/cache/handler/callback.php on line 100

Login Form



Who's Online

We have 2 guests online

PENGUNJUNG

mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHari ini106
mod_vvisit_counterKemarin132
mod_vvisit_counterMinggu ini386
mod_vvisit_counterBulan ini106
mod_vvisit_counterTotal239439
Pemrograman Komputer
Aplikasi Perpustakaan Dengan Microsoft Access 2010 PDF Print E-mail
Written by pemogramankomputer.com   

Aplikasi perpustakaan ini dibuatkan dengan Microsoft Access 2010, Fiturnya belum lengkap hanya untuk pemula yang belajar MS Acces bisa membantu.

Table yang dibuat :

1.Table Anggota: Menampung data anggota perpustakaan

2.Table Buku :Menampung data Buku di perpustakaan

3.Table Penerbit : nampung datapenerbit perpustkaan

4.Table Peminjaman Master.: menanmpung transaksi peminjaman dan pengembalian buku

5.Table Peminjaman Detal : Menampung data transaksi peminjakan dan pengembalian buku yang di pinjam.

 

Form yang dibuat:

1.Form Anggota: Input data anggota perpustakaan

2.Form Buku :Input data Buku di perpustakaan

3.Form Penerbit : Input datapenerbit perpustkaan

4.Form Peminjaman Master.: Input transaksi peminjaman dan pengembalian buku

5.Form Peminjaman Detal : Input data transaksi peminjakan dan pengembalian buku yang di pinjam.

 

 Tampilan Menu Utama:

 

Aplikasi database perpustakaan dapat didownload disini:

Aplikasi Perpustakaan

 
Tutorial Membuat Sistem Informasi Akademik dengan Microsoft Access 2007 PDF Print E-mail
Database - Microsoft Access
Written by Pemogramankomputer.com   

Sistem informasi akademik merupakan sistem informasi yang digunakan pada sebuah perguruan tinggi yang berfungsi untuk mengolah data akademik perguruan tinggi tersebut.

Pada tutorial pembuatan aplikasi database ini menggunakan aplikasi MS Access 2007 .

Microsoft Access (atau Microsoft Office Access) adalah sebuah program aplikasi basis data ( Database) komputer relasional yang ditujukan untuk kalangan rumahan dan perusahaan kecil hingga menengah. Aplikasi ini merupakan anggota dari beberapa aplikasi Microsoft Office, selain tentunya Microsoft Word, Microsoft Excel, dan Microsoft PowerPoint. Aplikasi ini menggunakan mesin basis data Microsoft Jet Database Engine, dan juga menggunakan tampilan grafis yang intuitif sehingga memudahkan pengguna. Versi terakhir adalah Microsoft Office Access 2007 yang termasuk ke dalam Microsoft Office System 2007.

Pembahasan pada tutorial pembuatan Sistem Informasi/Database ini meliputi mengelola kegiatan akademik yaitu

 

  • Pembuatan database.
  • Pengolahan data mahasiswa.
  • Pengolahan data dosen.
  • Pengolahan data matakuliah.
  • Pengolahan data absensi kuliah.
  • Pengolahan penilaian kuliah.

Pada proses tutorial  ini akan dijelaskan mengenai :

1.    Pembuatan Tabel

    Pembuatan tabel-tabel yang terkait akademik meliputi:

 2.   Membuat Relasi antar tabel

     Membuat hubungan (relasi) antar tabel yang terkait akademik.

 3.    Pembuatan Form Entry Data.

     Form entri data yang terkait pada database akademik ini meliputi

  • Form Entri Mahasiswa.
  • Form Entri Dosen.
  • Form Entri Mata Kuliah.
  • Form Entri Assensi.

 4.    Pembuatan Form Laporan

     Laporan-laporan yang dihasilkan dalam database akademik ini adalah

  • Laporan List Mahasiswa.
  • Laporan List Dosen.
  • Laporan List Mata Kuliah.
  • Laporan List Absensi.
  • Laporan Mutu Nilai Mahasiswa.

 

 

Tampilan Utama Aplikasi ini seperti gambar di bawah ini:

 

    

 

Hasil database bisa di download di sini:

sistem informasi akademik

 


 

 
Membuat Browser Sederhana dengan Powerbuilder 8.0 PDF Print E-mail
Tips dan Trik Powerbuilder

Browser ini dibuat dengan menggunakan pemrograman Powerbuilder 8.0.

Program ini sangat sederhana sekali seperti gambar di bawah ini:

 Source Program download disini...

 browser sederhana

 

 Source Program download disini...

 
Tutor Membuat aplikasi kirim email smtp server dengan Powerbuilder 8.0. PDF Print E-mail
Powerbuilder - Tutorial Powerbuilder

Tutor ini membahas bagaimana caranya membuat aplikasi krim email ( Smtp-server).

Sebelum dilakukan pengiriman email dilakukan setting smtp server terlebih dahulu.

Pada tutor ini terdiri dari object-object  sebagai berikut :

1.       Non Visual Object : n_smtp  dan n_winsock

2.       Visual object : Window konfigurasi dan window email.

3.       File pendukung lainnya dapat di download dari forder source code.

 

 Source aplikasi dapat di download di sini.

Aplikasi Jadi dapat di download di sini.

 

A.             N-smtp dan w_winsock dapat diambil dari  source code aplikasi dan tambahkan pada project anda.

 

B.             Membuat Window Konfigurasi SMTP-server

 

1.       Buatkan desain seperti tampilan gambar di atas.

2.       Buat Variable :

-            Global Variable :  n_smtp gn_smtp

-            GlobalExternalFuntions : Function ULONG GetCurrentDirectoryA(ULONG nBufferLength, ref STRING lpBuffer) library "KERNEL32.dll"

Read more...
 
Fungsi Merubah Password-Password Encription PDF Print E-mail
Powerbuilder - Tips dan Trik Powerbuilder
Written by -   
int  i,j, li_panjang, li_huruf1, li_huruf2, li_jarak
string ls_huruf1,ls_huruf2, ls_tampung

//masuk = masuk

li_panjang = Len(masuk)
if li_panjang < 1 then return char(0)
    
For i = 1 to li_panjang
    
    ls_huruf1 = Mid(masuk,i,1)            // huruf yang akan dikonversikan
    j = i + 1
    IF j > li_panjang THEN j = 1
    
    ls_huruf2 = Mid(masuk,j,1)            //patokan huruf
    
    li_huruf1 = ASC(ls_huruf1)
    li_huruf2 = ASC(ls_huruf2)
    
    li_jarak = li_huruf2 - li_huruf1
    
    IF li_jarak = 0 THEN li_jarak = li_huruf1
    
    li_huruf1 = (li_jarak * 2) + li_huruf2   //ini algoritmanya
    
    IF li_huruf1 < 0 THEN
        li_huruf1 = 255 - li_huruf1
    ELSEIF li_huruf1 > 255 THEN            // lihat perkaliannya bisa terjadi li_huruf2 = 255
        li_huruf1 = li_huruf1 - 255        // li_huruf1 = 255
        IF li_huruf1 > 255 THEN                // maka jadinya maksimum li_huruf1 -> 255 * 3 = 765
            li_huruf1 = li_huruf1 - 255
        END IF    
    END IF    
 
    ls_huruf1 = char(li_huruf1)

    ls_tampung = ls_tampung + ls_huruf1
Next

//messagebox(ls_tampung,STRING(LI_PANJANG))

IF li_panjang < 15 Then
    ls_tampung = wf_rubah_pass(masuk + ls_tampung)
    
END IF

IF LEN(ls_tampung) > 15 THEN ls_tampung = Mid(ls_tampung,1,15)

//messagebox(ls_tampung,STRING(LI_PANJANG))



Return ls_tampung
    
 
Fungsi Tombol Tekan PDF Print E-mail
Powerbuilder - Tips dan Trik Powerbuilder
Written by -   
Sunday, 14 November 2010 09:26
int li_column_number,li_column_count
boolean lb_enter,lb_dwnrow,lb_keytab,lb_pagedwn
boolean lb_pageup, lb_uparrow

string setting

setting = dw.Object.DataWindow.Label.Sheet
setting = dw.Object.DataWindow.type
    

lb_enter     = keydown(keyenter!)
lb_dwnrow     = keydown(keydownarrow!)
lb_keytab     = keydown(keytab!)
lb_pagedwn     = keydown(keypagedown!)
lb_pageup     = keydown(keypageup!)
lb_uparrow    = keydown(keyuparrow!)

li_column_number = dw.getcolumn()
li_column_count = integer(dw.object.datawindow.column.count)
Read more...
 
Fungsi ini untuk mencari tanggal akhir dari suatu bulan PDF Print E-mail
Written by admin   
Sunday, 14 November 2010 09:23

//Powerbuilder Function

// Fungsi ini untuk mencari tanggal akhir dari suatu bulan  //
// Input  : String Tanggal                                                //    
// Output : Date Tanggal                                                //


// integer li_hari[12] = {31,28,31,30,31,30,31,31,30,31,30,31}
integer li_bulan,li_tahun  //li_tanggal,
//date ld_tanggal

//li_tanggal=integer(mid(tanggal,1,2))
li_bulan=integer(mid(tanggal,4,2))
li_tahun=integer(mid(tanggal,7,4))

IF li_bulan = 12 THEN
    li_bulan = 1
    li_tahun = li_tahun + 1
ELSE
    li_bulan = li_bulan + 1
END IF    

RETURN RelativeDate( Date ( li_tahun, li_bulan, 1) , - 1 )

 
mendisable menu close PDF Print E-mail
Delphi - Tips dan Trik Delphi
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
   hMenuHandle : HMENU;
begin
     hMenuHandle := GetSystemMenu(Form1.Handle, FALSE);
     if (hMenuHandle <> 0) then DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;

end.
 
Mengambar pada title bar PDF Print E-mail
Delphi - Tips dan Trik Delphi
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);

var
  ACanvas : TCanvas;
begin
  inherited;
  ACanvas := TCanvas.Create;
  try
    ACanvas.Handle := GetWindowDC(Form1.Handle);
    with ACanvas do begin
      Brush.Color := clActiveCaption;
      Font.Name := 'Tahoma';
      Font.Size := 8;
      Font.Color := clYellow;
      Font.Style := [fsItalic, fsBold];
      TextOut(GetSystemMetrics(SM_CYMENU) + GetSystemMetrics(SM_CXBORDER),
              Round((GetSystemMetrics(SM_CYCAPTION) - Abs(Font.Height))/2) + 1,
              ' Teks pada Caption');
    end;
  finally
    ReleaseDC(Form1.Handle, ACanvas.Handle);
    ACanvas.Free;
  end;
end;

end.
 
Animasi tombol warna berjalan PDF Print E-mail
Java
import javax.swing.*;
import java.awt.*;
import java.awt.event.*;
import java.util.*;

public class AnimasiTombol extends JFrame implements ActionListener
    {

        JButton jbLight1 = new JButton();
        JButton jbLight2 = new JButton();
        JButton jbLight3 = new JButton();
        JButton jbLight4 = new JButton();
        JButton jbLight5 = new JButton();
        JButton jbLight6 = new JButton();
        JButton jbLight7 = new JButton();
        JButton jbLight8 = new JButton();
        JButton jbLight9 = new JButton();
        JButton jbLight10 = new JButton();
   
        JButton jbRight = new JButton(" GRK KE KANAN > ");
        JButton jbLeft = new JButton(" < GRK KE KIRI ");
        JButton stop = new JButton("STOP");
        JButton keluar = new JButton("KELUAR");
       
          javax.swing.Timer timer = new javax.swing.Timer(1000, this);
        int jbNo = 1;
        int status=0;
        public AnimasiTombol() {
   
        setLayout(null);
        setComponents();       
   
        setTitle("WARNA BERJALAN");
        setSize(610, 120);
        setVisible(true);
        setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
        setResizable(false);
        setLocationRelativeTo(null);
    }

    public void setComponents()
    {
   
        jbLight1.setBounds(10, 20, 50, 20);
        jbLight2.setBounds(70, 20, 50, 20);
        jbLight3.setBounds(130, 20, 50, 20);
        jbLight4.setBounds(190, 20, 50, 20);
        jbLight5.setBounds(250, 20, 50, 20);
        jbLight6.setBounds(310, 20, 50, 20);
        jbLight7.setBounds(370, 20, 50, 20);
        jbLight8.setBounds(430, 20, 50, 20);
        jbLight9.setBounds(490, 20, 50, 20);
        jbLight10.setBounds(550, 20, 50, 20);
   
        jbLight1.setBackground(Color.green);
        jbLight2.setBackground(Color.black);
        jbLight3.setBackground(Color.black);
        jbLight4.setBackground(Color.black);
        jbLight5.setBackground(Color.black);
        jbLight6.setBackground(Color.black);
        jbLight7.setBackground(Color.black);
        jbLight8.setBackground(Color.black);
        jbLight9.setBackground(Color.black);
        jbLight10.setBackground(Color.black);
   
        jbLeft.setBounds(10, 50, 125, 20);
        jbRight.setBounds(150, 50, 140, 20);
        stop.setBounds(400, 50, 80, 20);
        keluar.setBounds(500, 50, 80, 20);
   
        add(jbLight1);
        add(jbLight2);
        add(jbLight3);
        add(jbLight4);
        add(jbLight5);
        add(jbLight6);
        add(jbLight7);
        add(jbLight8);
        add(jbLight9);
        add(jbLight10);
   
        add(jbRight);
        add(jbLeft);
        add(stop);
        add(keluar);
        jbRight.addActionListener(this);
        jbLeft.addActionListener(this);
        stop.addActionListener(this);
        keluar.addActionListener(this);
    }
   
Read more...
 
Mengubah warna komponen aktif PDF Print E-mail
Delphi - Tips dan Trik Delphi
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    procedure DoActiveControl(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  OldControl: TComponent;

implementation

{$R *.dfm}

procedure TForm1.DoActiveControl(Sender: TObject);
begin
  if assigned(OldControl) then
  begin
    (OldControl as TEdit).color := clWhite;
    (OldControl as TEdit).font.color := clBlack;
  end;
  if activeControl is TEdit then
  begin
Read more...
 
Taskbar Autohide PDF Print E-mail
Delphi - Tips dan Trik Delphi
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    function IsTaskbarAutoHideOn: boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

uses ShellAPI;

function TForm1.IsTaskbarAutoHideOn : boolean;
var
   ABData : TAppBarData;
begin
     ABData.cbSize := sizeof(ABData);
     Result := (SHAppBarMessage(ABM_GETSTATE, ABData) and ABS_AUTOHIDE) > 0;
end;
Read more...
 
Password Screen Saver PDF Print E-mail
Delphi - Tips dan Trik Delphi
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Forms, StdCtrls, Registry, Classes, Controls,
  ExtCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Panel2: TPanel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  reg: TRegistry;
  const  xorwert: array[1..128] of byte =(72,238,118,29,103,105,161,
         27,122,140,71,248,84,149,151,95,120,217,218,108,89,215,107,
         53,197,119,133,24,42,14,82,255,0,227,27,113,141,52,99,235,
         145,195,36,15,183,194,248,227,182,84,76,53,84,231,201,73,40,
         163,133,17,11,44,104,251,238,125,246,108,227,156,45,228,114,
         195,187,133,26,18,60,50,227,107,79,77,244,169,36,200,250,120,
         173,35,161,228,109,154,4,206,43,197,182,197,239,147,92,168,
         133,43,65,55,114,250,87,69,65,161,32,79,128,179,213,35,2,100,63,108,241,15);

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
   buf: Array[0..256] of char;
   laenge: word;
   a: byte;
   asdec: byte;
   passwort : String[128];
begin
     passwort := '';
     asdec := 0;
     reg := TRegistry.Create;
     reg.RootKey := HKEY_CURRENT_USER;
     Reg.OpenKey('\Control Panel\Desktop',FALSE);
     if reg.ValueExists ('ScreenSave_Data')= true then
     Reg.ReadBinaryData('ScreenSave_Data', buf, sizeof(buf));
Read more...
 
Membuat File Unik PDF Print E-mail
Delphi - Tips dan Trik Delphi
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function slash(value:string):string;
begin
if (value='') then result := '' else
begin
if (value[length(value)]<>'\') then result:=value+'\' else result:=value;
end;
end;

function UniqueFilename(path:string):string;
var
c : char;
begin
repeat
result := '';
randomize;
repeat
Read more...
 
Split String PDF Print E-mail
Delphi - Tips dan Trik Delphi
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Split(aValue : string; aDelimiter : Char; Result : TStrings);
var
  X : Integer;
  S : string;
begin
  if Result = nil then Result := TStringList.Create;
  Result.Clear;
  S := '';
Read more...
 
Menambahkan Image pada Combo Box PDF Print E-mail
Delphi - Tips dan Trik Delphi
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ImageList1: TImageList;
    ComboBox1: TComboBox;
    procedure ComboBox1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
     ComboBox1.Canvas.FillRect(Rect);
Read more...
 
Memindahkan Item pada list Box PDF Print E-mail
Tips dan Trik Delphi
unit Unit1;

interface

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

type
TForm1 = class(TForm)
ListBox1: TListBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
CurrIndex: Integer;
begin
if ListBox1.ItemIndex > 0 then
begin
CurrIndex := ListBox1.ItemIndex;
ListBox1.Items.Move(ListBox1.ItemIndex, (CurrIndex - 1));
ListBox1.ItemIndex := CurrIndex - 1;
end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
CurrIndex, LastIndex: Integer;
begin
CurrIndex := ListBox1.ItemIndex;
lastindex := ListBox1.Items.Count;
Read more...
 
Disable Mouse dan Keyboard PDF Print E-mail
Delphi - Tips dan Trik Delphi
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function BlockInput(fBlockInput: Boolean): DWORD; stdcall; external 'user32.DLL';

function FunctionDetect(LibName, FuncName: string; var LibPointer: Pointer): Boolean;
var
LibHandle: THandle;
begin
Result := False;
LibPointer := nil;
if LoadLibrary(PChar(LibName)) = 0 then Exit;
LibHandle := GetModuleHandle(PChar(LibName));
if LibHandle <> 0 then
begin
LibPointer := GetProcAddress(LibHandle, PChar(FuncName));
if LibPointer <> nil then Result := True;
end;
end;
Read more...
 
Asosiasi Icon dari Shortcut PDF Print E-mail
Delphi - Tips dan Trik Delphi
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  PHICON = ^HICON;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses shellapi, registry;

procedure GetAssociatedIcon(FileName: TFilename; PLargeIcon, PSmallIcon: PHICON);
var
  IconIndex: SmallInt;  
  Icono: PHICON;
  FileExt, FileType: string;
  Reg: TRegistry;
  p: Integer;
  p1, p2: PChar;
  buffer: array [0..255] of Char;

Label
  noassoc, NoSHELL;
begin
  IconIndex := 0;
  Icono := nil;
  // mencari ekstensi file
  FileExt := UpperCase(ExtractFileExt(FileName));
  if ((FileExt = '.EXE') and (FileExt = '.ICO')) or not FileExists(FileName) then
  begin
    // jika berupa file EXE atau ICO maka kita dapat
    // mengekstrak icon dari file tersebut.
    // jika bukan berupa file EXE atau ICO maka
    // cari asosiasi icon dari registry
    Reg := nil;
Read more...
 
Mengetahui jenis koneksi ke internet PDF Print E-mail
Delphi - Tips dan Trik Delphi

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
function JenisKoneksi: boolean;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses wininet;

{$R *.dfm}

Function TForm1.JenisKoneksi :boolean;
var
flags: dword;
begin
Result := InternetGetConnectedState(@flags, 0);
if Result then
begin
if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then
begin
Edit1.Text := 'Modem';
end;
if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then
begin
Edit1.Text := 'LAN';
end;

Read more...
 
<< Start < Prev 1 2 Next > End >>

Page 1 of 2