Tips dan Trik Delphi

Setup wallpaper windows / Windows / Windows / Delphi 7 - XE

Uses Registry;

procedure TForm1.FormCreate(Sender: TObject);
var
  Reg: TRegIniFile;
begin
    Reg := TRegIniFile.Create('Control Panel');
    Reg.WriteString('desktop', 'Wallpaper', 'c:\windows\fotomu.bmp');
    Reg.WriteString('desktop', 'TileWallpaper', '1');
    Reg.Free;
    SystemParametersInfo(SPI_SETDESKWALLPAPER,0, nil, SPIF_SENDWININICHANGE);
end;

Mengetahui frekuensi layar Monitor / Tool / Windows / Delphi 7 - XE

procedure TForm1.Button2Click(Sender: TObject);
var ov: TOSVersionInfo;
    vr: Integer;
begin
      ov.dwOSVersionInfoSize := SizeOf(ov);
      GetVersionEx(ov);
      if OV.dwPlatformID = VER_PLATFORM_WIN32_NT then
      begin
          vr := GetDeviceCaps(Form1.Canvas.Handle,VREFRESH);
          Label1.Caption := 'Frequence: '+ IntToStr(vr) + ' Hz';
      end;
End;

Mengetahui mouse klik kri atau klik kanan / Windows / Windows / Delphi 7 - XE

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     if Button = mbLeft then
        ShowMessage('Klik Kiri')
     else if Button = mbRight then
        ShowMessage('Klik Kanan')
     else
        ShowMessage('Klik Tengah');
end;

Mengetahui posisi Top Left mouse / Form / Windows / Delphi 7 - XE

procedure TForm1.Button1Click(Sender: TObject);
var
  MausPos: TPoint;
begin
  GetCursorPos(MausPos);
  label1.Caption := IntToStr(MausPos.x);
  label2.Caption := IntToStr(MausPos.y);
end;

// Set mouse position to (x,y)

procedure TForm1.Button2Click(Sender: TObject);
begin
  SetCursorPos(600, 600);
end;

Menggambar garis padadekstop / Tool / Windows / Delphi 7 - XE

procedure TForm1.Button1Click(Sender: TObject);
var
   dc : hdc;
begin
    dc := GetDc(0);
    MoveToEx(Dc, 0, 0, nil);
    LineTo(Dc, 300, 300);
    ReleaseDc(0, Dc);
end;

Menampilkan nama komputer dan ip internet / Internet / Windows / Delphi 7 - XE

uses Winsock;

procedure TForm1.FormCreate(Sender: TObject);
var
    wVersionRequested : WORD;
    wsaData : TWSAData;
begin
    wVersionRequested := MAKEWORD(1, 1);
    WSAStartup(wVersionRequested,wsaData);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
    p : PHostEnt;
    s : array[0..128] of char;
    p2 : pchar;
begin
    {Get the computer name}
    GetHostName(@s, 128);
    p := GetHostByName(@s);
    Memo1.Lines.Add(p^.h_Name);
    {Get the IpAddress}
    p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
    Memo1.Lines.Add(p2);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
     {Shut down WinSock}
     WSACleanup;
end;

Menonaktifkan ALt + F4 / Form / Windows / Delphi 7 - XE

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  protected
       procedure CreateParams(var Params: TCreateParams); override;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
    inherited;
    with Params.WindowClass do
        style := style or CS_NOCLOSE;
end;

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

Menghilangkan dan menampilkan icon ta / Windows / Windows / Delphi 7 - XE

procedure TForm1.BTHideClick(Sender: TObject);
VAR
     rc :LongInt;
BEGIN
    rc := FindWindow('shell_traywnd', NIL);
    ShowWindow(rc, 0);
end;

procedure TForm1.BTShowClick(Sender: TObject);
VAR
     rc : LongInt;
BEGIN
    rc := FindWindow('shell_traywnd', NIL);
    ShowWindow(rc, 1);begin
end;

Hotkey dengan dua tombol / Tool / Windows / Delphi 7 - XE

  private
    { Private declarations }
  public
    { Public declarations }
    procedure hotykey(var msg:TMessage); message WM_HOTKEY;
  end;

var
  Form1: TForm1;
  id, id2 : Integer;
implementation

{$R *.dfm}

procedure TForm1.hotykey(var msg:TMessage);
begin
     if (msg.LParamLo=MOD_CONTROL) and (msg.LParamHi=81) then
     begin
          ShowMessage('Ctrl + Q ya beb !');
     end;
     if (msg.LParamLo=MOD_CONTROL) and (msg.LParamHi=82) then
     begin
          ShowMessage('Ctrl + R ya beb !');
     end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
     id := GlobalAddAtom('hotkey');
     RegisterHotKey(handle,id, mod_control, 81);
     id2 := GlobalAddAtom('hotkey2');
     RegisterHotKey(handle,id2, mod_control, 82);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
     UnRegisterHotKey(handle,id);
     UnRegisterHotKey(handle,id2);
end;

Macam macam tombol key down / Tool / Windows / Delphi 7 - XE

vk_LButton = $01;
vk_RButton= $02;
vk_Cancel= $03;
vk_MButton = $04;
vk_Back = $08;
vk_Tab= $09;
vk_Clear = $0C;
vk_Return = $0D;
vk_Shift = $10;
vk_Control = $11;
vk_Menu = $12;
vk_Pause = $13;
vk_Capital = $14;
vk_Escape = $1B;
vk_Space = $20;
vk_Prior= $21;
vk_Next= $22;
vk_End = $23;
vk_Home = $24;
vk_Left = $25;
vk_Up= $26;
vk_Right= $27;
vk_Down = $28;
vk_Select = $29;
vk_Print= $2A;
vk_Execute= $2B;
vk_SnapShot = $2C;
vk_Copy= $2C
vk_Insert = $2D;
vk_Delete = $2E;
vk_Help = $2F;
vk_NumPad0 = $60;
vk_NumPad1 = $61;
vk_NumPad2 = $62;
vk_NumPad3 = $63;
vk_NumPad4 = $64;
vk_NumPad5 = $65;
vk_NumPad6 = $66;
vk_NumPad7 = $67;
vk_NumPad8 = $68;
vk_NumPad9 = $69;
vk_Multiply = $6A;
vk_Add = $6B;
vk_Separator = $6C;
vk_Subtract= $6D;
vk_Decimal = $6E;
vk_Divide = $6F;
vk_F1 = $70;
vk_F2 = $71;
vk_F3 = $72;
vk_F4 = $73;
vk_F5 = $74;
vk_F6 = $75;134
vk_F7 = $76;
vk_F8 = $77;
vk_F9 = $78;
vk_F10 = $79;
vk_F11 = $7A;
vk_F12 = $7B;
vk_F13 = $7C;
vk_F14 = $7D;
vk_F15 = $7E;
vk_F16 = $7F;
vk_F17 = $80;
vk_F18 = $81;
vk_F19 = $82;
vk_F20 = $83;
vk_F21 = $84;
vk_F22 = $85;
vk_F23 = $86;
vk_F24 = $87;
vk_NumLock = $90;
vk_Scroll = $91;

Tips dan Trik Delphi

Kategori