Thursday, January 27, 2011

form position at bottom of the screen

uses ....,shellapi;

VAR
  appbardata    : TAppBarData;
  Rect          : TRect;
  taskBarHeight : Integer;
begin
  // Get The Taskbar Height
  FillChar ( AppBarData,SizeOf(AppBarData),0);
  SHAppBarMessage(ABM_GETTASKBARPOS, appbardata);
  Rect := appbardata.rc;
  taskBarHeight := Rect.Bottom - Rect.Top;

  Left := ( Screen.Width - Width ) DIV 2;
  Top  := Screen.Height - Height - Taskbarheight +2;
end;

Sunday, January 23, 2011

Show and Hide Desktop Icon

procedure ShowDesktopIcons(const Visible: Boolean);
var
h: THandle;
begin
h := FindWindow('ProgMan', nil);
if h = 0 then
RaiseLastOSError;
if Visible then
ShowWindow(h, SW_SHOW)
else
ShowWindow(h, SW_HIDE);
end;

procedure TForm1.btnHideClick(Sender: TObject);
begin
ShowDesktopIcons(False);
end;

procedure TForm1.btnShowClick(Sender: TObject);
begin
ShowDesktopIcons(True);
end;

Its work w/o restarting win explorer and 
this method works too in windows 7 , TESTED !!!

Making Cheat Game

Hello all

Me, and and my friend T3rm1 have also Hacked a little Game called "Blobby Volley"

Used Programms : Tsearch and Borland Delphi.

I first played the game a bit. It is a Volley Ball Game with 2 Slimy Blobbs.

You can download the game from:

http://ftp.freenet.de./pub/filepilot/windows/spiele/blobby.zip

If u play the game, u will notice, that u can touch (as player) the ball 3 times, until it is an foul.

I have tried to find the memory address, where the value is stored, which checks how many times u have touched the ball.

First, dl blobby volley, and Tsearch.


1. Unpack blobby volley, and start it.
2. Start Tsearch.
3. In Tsearch, click "Open Process", select "volley.exe" (1)
4. In Tsearch, click "Search". (2)
5. In Tsearch, click on the lens, "init new search" (3)

6. Choose "Unknown Value" Click OK

7. Tsearch has now found 128xxxxxx Values
8. Click again OK.

9. Now, switch to "blobby volley", choose "Spiel starten", and hope, that u start with the match (ball over your head). If not so, press ESC and press J to stop the actuall round. Do this, until you have the ball over your head to start.
10. Hm we have a problem now, ball contact changes so fast, that we dont have time to switch to windows, so lets make a Hotkey in Tsearch.
11. in Tsearch click : VIEW - OPTIONS - HOTKEYS.

12. Click on the Empy sheet (create new hotkey)
13. Click on "Click here to set". I have used CTRL-D
14. Click on Action, select : "Has increased by" And on the field Value, insert "1"

---
15. Go to your icebox, and get some cold coke.
16. Switch to Blobby Volley, and hit the ball with your left mouse button.
17. Try to be exactly under the ball, so u can hit him as much as possible. (the ball has to go straight up in the sky)
18. If u had hit the ball 1 time, press CTRL-D (remember this shortcut stands for "Has incresed by 1."
19. Hit the ball again, and press CTRL-D
20. Hit the ball a last time, press CTRL-D. We have now touched the ball 3 times, which is maximum. the next touch will be a foul.
21. Switch back to Tsearch. Uhh, wtf, we have exactly 1 Value left

22. Now, lets try to verify this value. Select the lines with the Address, and click on the green + sign to move it to the Description field.
23. Double click the Value field in the Description box, and insert a "0" (zero). This means, if we hit the ball, the value increased by 1, but the programm Tsearch sets it back to 0.
24 Left to the Description field is a check box, click it until u see a green/blue smilee. (same like on the last picture).

24. Switch back to Blobby Volley, to test if it works. Try to hit the ball in your field more than 3 times. If suceeded, u can hit him unlimited times.
---
---
25. Next step is : Go to Tsearch. Click on [AUTOHACK]. Choose ENABLE DEBUGGER. Click again on AUTOHACK. Choose [AUTO HACK WINDOW].
26. Right click your Hack like on the picture and choose [AUTO HACK].

27. Switch back to Blobby Volley, hit the ball a few times, so Blobby Volley increased the value for the Ball Counter.
28. Tsearch has now found the Assembler Code, which checks, if the Ball Counter has increased.
Image
29. Like u see on the picture, we have 4 times mov, and 1 time inc. inc stands for increase, mov stands for move.
30. Click on the line with the "inc dword ptr[edi+0x3C]"
31. In the bottom window u will see now a memory dump. Select the line with the "inc dword ptr[edi+0x3C]", right click it and choose NOP. NOP means that there will be "NO oPeration" taken, which means that the value for our ball counter will be not increased. We have now hacked the programm in memory instead of just overwriting the variable.

Now we know both addresses for the ball counter.

The address for the variable is : $017282CC
The address for the programm code is : $00444fb6 inc dword ptr [edi+0x3C]

Now we have 3 options. We can chance the varible only (which i have choosen), or we can chance the programm code in memory ( overwriting 6 bytes with 909090 which means NOP, or we can crack the exe file, and search for FF473C and overwrite this with 909090.


I have choosen method 1, to overwrite the variable.

Here is my programm code for this :
(written in borland delphi)




Code:
--------------------------------------------------------------------------------------------------------------------------------
procedure TForm1.CheckBox1Click(Sender: TObject);
var
WindowName,ProzessID,buf,HandleWindow:Integer;
write:cardinal;
//
const
Address  = $017282CC;
NumberOfBytes = 2;              //   Anzahl bytes
begin
        WindowName := FindWindow(NIL,'Blobby Volley');
        If WindowName = 0 then
        begin
                MessageDlg('anwendung nicht da!/programm not running',mtwarning,[mbOK],0);
                Timer1.Enabled:=False;
        end else
        begin
        GetWindowThreadProcessId(WindowName,@ProzessId);
        HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProzessId);
        buf := 00;  // 00 = value ball contacts
        WriteProcessMemory(HandleWindow,ptr(Address),@buf,SizeOf(buf),write);
        closehandle(HandleWindow);
        Timer1.Enabled:=True;
        end;
end;
----------------------------------------------------------------------------------------------------------
Just place a timer and a checkbox on a form.


If u dont have Delphi, u can download the compiled exe here :


http://www.seite815.de/blobbytut/blobby_trainer.zip


If u have any suggestions, feel free to write me a mail : buddypop at gmx.de or visit me on quakenet #delphi.de


Bigs thx goes out to T3rmi, who helped me to find addresses in many programs :) 

Source : http://www.blizzhackers.cc/viewtopic.php?t=322175

Virtual-Key Codes

The following table shows the symbolic constant names, hexadecimal values, and mouse or keyboard equivalents for the virtual-key codes used by the system. The codes are listed in numeric order.
Constant/valueDescription

VK_LBUTTON
0x01
Left mouse button

VK_RBUTTON
0x02
Right mouse button

VK_CANCEL
0x03
Control-break processing

VK_MBUTTON
0x04
Middle mouse button (three-button mouse)

VK_XBUTTON1
0x05
X1 mouse button

VK_XBUTTON2
0x06
X2 mouse button

-
0x07
Undefined

VK_BACK
0x08
BACKSPACE key

VK_TAB
0x09
TAB key

-
0x0A-0B
Reserved

VK_CLEAR
0x0C
CLEAR key

VK_RETURN
0x0D
ENTER key

-
0x0E-0F
Undefined

VK_SHIFT
0x10
SHIFT key

VK_CONTROL
0x11
CTRL key

VK_MENU
0x12
ALT key

VK_PAUSE
0x13
PAUSE key

VK_CAPITAL
0x14
CAPS LOCK key

VK_KANA
0x15
IME Kana mode

VK_HANGUEL
0x15
IME Hanguel mode (maintained for compatibility; use VK_HANGUL)

VK_HANGUL
0x15
IME Hangul mode

-
0x16
Undefined

VK_JUNJA
0x17
IME Junja mode

VK_FINAL
0x18
IME final mode

VK_HANJA
0x19
IME Hanja mode

VK_KANJI
0x19
IME Kanji mode

-
0x1A
Undefined

VK_ESCAPE
0x1B
ESC key

VK_CONVERT
0x1C
IME convert

VK_NONCONVERT
0x1D
IME nonconvert

VK_ACCEPT
0x1E
IME accept

VK_MODECHANGE
0x1F
IME mode change request

VK_SPACE
0x20
SPACEBAR

VK_PRIOR
0x21
PAGE UP key

VK_NEXT
0x22
PAGE DOWN key

VK_END
0x23
END key

VK_HOME
0x24
HOME key

VK_LEFT
0x25
LEFT ARROW key

VK_UP
0x26
UP ARROW key

VK_RIGHT
0x27
RIGHT ARROW key

VK_DOWN
0x28
DOWN ARROW key

VK_SELECT
0x29
SELECT key

VK_PRINT
0x2A
PRINT key

VK_EXECUTE
0x2B
EXECUTE key

VK_SNAPSHOT
0x2C
PRINT SCREEN key

VK_INSERT
0x2D
INS key

VK_DELETE
0x2E
DEL key

VK_HELP
0x2F
HELP key


0x30
0 key


0x31
1 key


0x32
2 key


0x33
3 key


0x34
4 key


0x35
5 key


0x36
6 key


0x37
7 key


0x38
8 key


0x39
9 key

-
0x3A-40
Undefined


0x41
A key


0x42
B key


0x43
C key


0x44
D key


0x45
E key


0x46
F key


0x47
G key


0x48
H key


0x49
I key


0x4A
J key


0x4B
K key


0x4C
L key


0x4D
M key


0x4E
N key


0x4F
O key


0x50
P key


0x51
Q key


0x52
R key


0x53
S key


0x54
T key


0x55
U key


0x56
V key


0x57
W key


0x58
X key


0x59
Y key


0x5A
Z key

VK_LWIN
0x5B
Left Windows key (Natural keyboard)

VK_RWIN
0x5C
Right Windows key (Natural keyboard)

VK_APPS
0x5D
Applications key (Natural keyboard)

-
0x5E
Reserved

VK_SLEEP
0x5F
Computer Sleep key

VK_NUMPAD0
0x60
Numeric keypad 0 key

VK_NUMPAD1
0x61
Numeric keypad 1 key

VK_NUMPAD2
0x62
Numeric keypad 2 key

VK_NUMPAD3
0x63
Numeric keypad 3 key

VK_NUMPAD4
0x64
Numeric keypad 4 key

VK_NUMPAD5
0x65
Numeric keypad 5 key

VK_NUMPAD6
0x66
Numeric keypad 6 key

VK_NUMPAD7
0x67
Numeric keypad 7 key

VK_NUMPAD8
0x68
Numeric keypad 8 key

VK_NUMPAD9
0x69
Numeric keypad 9 key

VK_MULTIPLY
0x6A
Multiply key

VK_ADD
0x6B
Add key

VK_SEPARATOR
0x6C
Separator key

VK_SUBTRACT
0x6D
Subtract key

VK_DECIMAL
0x6E
Decimal key

VK_DIVIDE
0x6F
Divide key

VK_F1
0x70
F1 key

VK_F2
0x71
F2 key

VK_F3
0x72
F3 key

VK_F4
0x73
F4 key

VK_F5
0x74
F5 key

VK_F6
0x75
F6 key

VK_F7
0x76
F7 key

VK_F8
0x77
F8 key

VK_F9
0x78
F9 key

VK_F10
0x79
F10 key

VK_F11
0x7A
F11 key

VK_F12
0x7B
F12 key

VK_F13
0x7C
F13 key

VK_F14
0x7D
F14 key

VK_F15
0x7E
F15 key

VK_F16
0x7F
F16 key

VK_F17
0x80H
F17 key

VK_F18
0x81H
F18 key

VK_F19
0x82H
F19 key

VK_F20
0x83H
F20 key

VK_F21
0x84H
F21 key

VK_F22
0x85H
F22 key

VK_F23
0x86H
F23 key

VK_F24
0x87H
F24 key

-
0x88-8F
Unassigned

VK_NUMLOCK
0x90
NUM LOCK key

VK_SCROLL
0x91
SCROLL LOCK key


0x92-96
OEM specific

-
0x97-9F
Unassigned

VK_LSHIFT
0xA0
Left SHIFT key

VK_RSHIFT
0xA1
Right SHIFT key

VK_LCONTROL
0xA2
Left CONTROL key

VK_RCONTROL
0xA3
Right CONTROL key

VK_LMENU
0xA4
Left MENU key

VK_RMENU
0xA5
Right MENU key

VK_BROWSER_BACK
0xA6
Browser Back key

VK_BROWSER_FORWARD
0xA7
Browser Forward key

VK_BROWSER_REFRESH
0xA8
Browser Refresh key

VK_BROWSER_STOP
0xA9
Browser Stop key

VK_BROWSER_SEARCH
0xAA
Browser Search key

VK_BROWSER_FAVORITES
0xAB
Browser Favorites key

VK_BROWSER_HOME
0xAC
Browser Start and Home key

VK_VOLUME_MUTE
0xAD
Volume Mute key

VK_VOLUME_DOWN
0xAE
Volume Down key

VK_VOLUME_UP
0xAF
Volume Up key

VK_MEDIA_NEXT_TRACK
0xB0
Next Track key

VK_MEDIA_PREV_TRACK
0xB1
Previous Track key

VK_MEDIA_STOP
0xB2
Stop Media key

VK_MEDIA_PLAY_PAUSE
0xB3
Play/Pause Media key

VK_LAUNCH_MAIL
0xB4
Start Mail key

VK_LAUNCH_MEDIA_SELECT
0xB5
Select Media key

VK_LAUNCH_APP1
0xB6
Start Application 1 key

VK_LAUNCH_APP2
0xB7
Start Application 2 key

-
0xB8-B9
Reserved

VK_OEM_1
0xBA
Used for miscellaneous characters; it can vary by keyboard.
For the US standard keyboard, the ';:' key

VK_OEM_PLUS
0xBB
For any country/region, the '+' key

VK_OEM_COMMA
0xBC
For any country/region, the ',' key

VK_OEM_MINUS
0xBD
For any country/region, the '-' key

VK_OEM_PERIOD
0xBE
For any country/region, the '.' key

VK_OEM_2
0xBF
Used for miscellaneous characters; it can vary by keyboard.
For the US standard keyboard, the '/?' key

VK_OEM_3
0xC0
Used for miscellaneous characters; it can vary by keyboard.
For the US standard keyboard, the '`~' key

-
0xC1-D7
Reserved

-
0xD8-DA
Unassigned

VK_OEM_4
0xDB
Used for miscellaneous characters; it can vary by keyboard.
For the US standard keyboard, the '[{' key

VK_OEM_5
0xDC
Used for miscellaneous characters; it can vary by keyboard.
For the US standard keyboard, the '\|' key

VK_OEM_6
0xDD
Used for miscellaneous characters; it can vary by keyboard.
For the US standard keyboard, the ']}' key

VK_OEM_7
0xDE
Used for miscellaneous characters; it can vary by keyboard.
For the US standard keyboard, the 'single-quote/double-quote' key

VK_OEM_8
0xDF
Used for miscellaneous characters; it can vary by keyboard.

-
0xE0
Reserved


0xE1
OEM specific

VK_OEM_102
0xE2
Either the angle bracket key or the backslash key on the RT 102-key keyboard


0xE3-E4
OEM specific

VK_PROCESSKEY
0xE5
IME PROCESS key


0xE6
OEM specific

VK_PACKET
0xE7
Used to pass Unicode characters as if they were keystrokes. The VK_PACKET key is the low word of a 32-bit Virtual Key value used for non-keyboard input methods. For more information, see Remark in KEYBDINPUT, SendInput, WM_KEYDOWN, and WM_KEYUP

-
0xE8
Unassigned


0xE9-F5
OEM specific

VK_ATTN
0xF6
Attn key

VK_CRSEL
0xF7
CrSel key

VK_EXSEL
0xF8
ExSel key

VK_EREOF
0xF9
Erase EOF key

VK_PLAY
0xFA
Play key

VK_ZOOM
0xFB
Zoom key

VK_NONAME
0xFC
Reserved

VK_PA1
0xFD
PA1 key

VK_OEM_CLEAR
0xFE
Clear key

Requiremen

Minimum supported clientWindows 2000 Professional
  Minimum supported serverWindows 2000 Server
HeaderWinuser.h

Friday, January 21, 2011

Make a form top most

with Self do {Form1,...}
  
SetWindowPos(Handle, // handle to window
               
HWND_TOPMOST, // placement-order handle {*}
               
Left,  // horizontal position
               
Top,   // vertical position
               
Width,
               Height,
               // window-positioning options
               
SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

{* Other Values: }
HWND_BOTTOM
Places the window at the bottom of the Z order.
HWND_NOTOPMOST
Places the window above all non-topmost windows
HWND_TOP
Places the window at the top of the Z order.
HWND_TOPMOST
Places the window above all non-topmost windows.
The window maintains its topmost position even when it is deactivated.



Tested on win 7 works fine.

Refresh Desktop

uses
  
ShlObj;

procedure RefreshDesktop1;
begin
  
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nilnil);
end;




tested on Win 7 100% works guaranteed.

Restart Explorer

Trik me-restart proses explorer.exe yang sedang aktif.
Deklarasi procedure :
function RestartExplorer: Boolean;
var
  wHnd: hWnd;
  PID: DWORD;
  hProc: THandle;
  exC: DWORD;
begin
  wHnd:= FindWindow('Progman','Program Manager');
  if wHnd <> 0 then
  begin
    GetWindowThreadProcessID(wHnd, PID);
    hProc := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_TERMINATE, False, PID);
    GetExitCodeProcess(hProc, exC);
    Result := TerminateProcess(hProc, exC);
   {Untuk beberapa kasus, explorer akan secara otomatis mengeksekusi
    dirinya sendiri, namun jika gagal :
    Tambahkan WinExec('explorer',SW_SHOWNORMAL);}

    CloseHandle(hProc);
  end
  else Result:= False;
end;
Contoh implementasi :
procedure TForm1.Button1Click(Sender: TObject);
begin
  if RestartExplorer then ShowMessage('OK') else ShowMessage('GAGAL');
end;


Atau bisa pake cara dibawah ini :

procedure killExplorer;
  var
    Wnd: HWND;
    ProcHandle: THandle;
    Result, ProcessID: Longint;
    ExitCode: DWord;
  begin
    Wnd := FindWindow('Progman', 'Program Manager');
    Result := GetWindowThreadProcessId(Wnd, @ProcessID);
    if Result <> 0 then
    begin
      ProcHandle := OpenProcess(1, false, ProcessID);
      GetExitCodeProcess(Wnd, ExitCode);
      TerminateProcess(ProcHandle, {-9}ExitCode);
    end;
  end;


contoh pakainya:

begin
  killExplorer;

end; 


Note :
It seems like Windows is restarting the explorer automatically. 
I don't know why it is not restarted if you use task manager...
So, I guess you will always get the exception ('Explorer already running'). 

At least that was the case on my Win2000. 

Fungsi Execute and Wait

Buat sebuah proyek berisi 1 TLabel, 1 TEdit dan 1 TButton dengan tampilan sbb:
Berikut source code-nya:
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
function ExecuteAndWait(FileName: String; Visibility  : Integer ) : Cardinal;
var
  AppName      : array[0..512] of char;
  CurrentDir   : array[0..255] of char;
  WorkDir      : String;
  StartupInfo  : TStartupInfo;
  ProcessInfo  : TProcessInformation;
begin
  StrPCopy(AppName, FileName);
  GetDir(0, WorkDir);
  StrPCopy(CurrentDir, WorkDir);
 
  FillChar(StartupInfo, Sizeof(StartupInfo), #0);
 
  StartupInfo.cb          := Sizeof(StartupInfo);
  StartupInfo.dwFlags     := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := Visibility;
 
  if (not CreateProcess(nil, AppName, nil, nil, false,
    CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
    nil, CurrentDir, StartupInfo, ProcessInfo)) then
  begin
    Result := $FFFFFFFF; {Set pointer to PROCESS_INF}
    MessageBox(Application.Handle,
      PChar(SysErrorMessage(GetLastError)),'The Error!', 0 );
  end
  else
  begin
    WaitforSingleObject(ProcessInfo.hProcess, INFINITE);
    GetExitCodeProcess(ProcessInfo.hProcess, Result);
    CloseHandle(ProcessInfo.hProcess);
    CloseHandle(ProcessInfo.hThread);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if ExecuteAndWait(Edit1.Text, SW_NORMAL) <> $FFFFFFFF then
    ShowMessage(Edit1.Text + ' done.');
end;
 
end.

Thursday, January 20, 2011

Kill a task

{For Windows 9x/ME/2000/XP and work well on win 7} 
uses
  Tlhelp32;

function KillTask(ExeFileName: string): Integer;
const
  PROCESS_TERMINATE = $0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  Result := 0;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  while Integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
      UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
      UpperCase(ExeFileName))) then
      Result := Integer(TerminateProcess(
                        OpenProcess(PROCESS_TERMINATE,
                                    BOOL(0),
                                    FProcessEntry32.th32ProcessID),
                                    0));
     ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  KillTask('notepad.exe');
end;

you may also like :    http://kintunan.blogspot.com/2011/01/restart-explorer.html

Type Data Record dengan Listbox

  • buatlah aplikasi baru
  • tambahkan 2 button
  • tambahkan 1 listbox
  • button1 untuk mengisi record berupa array
  • button2 untuk menampilkan hasil record ke dalam listbox
Listing program :
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
  type
  tpegawai=record
   nama:string;
   alamat:string;
   umur:integer;
  end;


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

var
  Form1: TForm1;


 pegawai : array[0..1] of tpegawai;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
pegawai[0].nama:='bejo';
pegawai[0].alamat:='jember';
pegawai[0].umur:=20;
pegawai[1].nama:='tono';
pegawai[1].alamat:='malang';
pegawai[1].umur:=25;

end;

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
for i:=0 to 1 do
begin
  listbox1.Items.Add('NAMA : '+pegawai[i].nama);
  listbox1.Items.Add('ALAMAT : '+pegawai[i].alamat);
  listbox1.Items.Add('UMUR : '+inttostr(pegawai[i].umur));
end;
end;

end.

sumber : http://edysoftware.com

Label Tampil Secara Bergantian

sediakan pada form
  • 2 label
  • 1 timer
  • pada event di timer
procedure TForm1.Timer1Timer(Sender: TObject);
var n:byte;
begin
n:=strtoint(formatdatetime('ss',now()));
if (n mod 2)=0 then label1.Visible:=false
else
label1.Visible:=true;
label2.Visible:=not label1.Visible;

end;

Create a webbrowser with a progress bar

Create a webbrowser with a progress bar in 2 minutes!

This very short tutorial shows you how to add a progress bar to any web browser programs you make in less than 2 minutes. It is very basic, and kept as short as possible, you can figure out most of the code just by looking at it. Aimed at beginners, this gives you an easy and quick way to have a working progress bar which informs the user of the progress the web browser is making! You can then focus on the other tasks like for instance the graphical representation to make it the way you want it. Included is the completed example. I hope this little bit of conceptual knowledge will help you


How to build a webbrowser with a progressbar in 2 minutes!


1. Start a new project



2. Drop a TWebBrowser component



3. Drop a TEdit component

In the object inspector change its Text property in:

http://www.google.com




4. Drop a TButton component, doubleclick it and add:

FDownCount:=0;

WebBrowser1.Navigate(Edit1.Text);




5. Drop a TProgressBar




6. In the private section add:

FDownCount: Integer;




7. Select the Webbrowser component, and go to the property inspector

and click the tab Events:


Doubleclick OnDownloadBegin [in the dropdownbox] add:

Inc(FDownCount);

ProgressBar1.Position:=0;



Doubleclick OnDownloadComplete [in the dropdownbox] add:

Dec(FDownCount);

ProgressBar1.Position:=0;



Doubleclick OnProgressChange [in the dropdownbox] add:

if (ProgressMax  0) and (Progress  0) and (FDownCount  0) then

begin

ProgressBar1.Position:=Trunc(Progress / ProgressMax) * 100;

ProgressBar1.Update;

Sleep(100);

Application.ProcessMessages;

end;



8. You are finished now!


For your reference see the below Unit1.pas after it is finished:

/////////////////////////////////////////////////////////////////////

unit Unit1;

/////////////////////////////////////////////////////////////////////

interface

/////////////////////////////////////////////////////////////////////

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, StdCtrls, OleCtrls, SHDocVw;

/////////////////////////////////////////////////////////////////////

type

TForm1 = class(TForm)

Edit1: TEdit;

ProgressBar1: TProgressBar;

Button1: TButton;

WebBrowser1: TWebBrowser;

procedure Button1Click(Sender: TObject);

procedure Webbrowser1DownloadBegin(Sender: TObject);

procedure Webbrowser1DownloadComplete(Sender: TObject);

procedure Webbrowser1ProgressChange(Sender: TObject; Progress,

ProgressMax: Integer);

private

FDownCount: Integer;

public

{ Public declarations }

end;

/////////////////////////////////////////////////////////////////////

var

Form1: TForm1;

/////////////////////////////////////////////////////////////////////

implementation


{$R *.dfm}

/////////////////////////////////////////////////////////////////////

procedure TForm1.Button1Click(Sender: TObject);

begin

FDownCount:=0;

WebBrowser1.Navigate(Edit1.Text);

end;

/////////////////////////////////////////////////////////////////////

procedure TForm1.Webbrowser1DownloadBegin(Sender: TObject);

begin

Inc(FDownCount);

ProgressBar1.Position:=0;

end;

/////////////////////////////////////////////////////////////////////

procedure TForm1.Webbrowser1DownloadComplete(Sender: TObject);

begin

Dec(FDownCount);

ProgressBar1.Position:=0;

end;

/////////////////////////////////////////////////////////////////////

procedure TForm1.Webbrowser1ProgressChange(Sender: TObject; Progress,

ProgressMax: Integer);

begin

if (ProgressMax  0) and (Progress  0) and (FDownCount  0) then

begin

ProgressBar1.Position:=Trunc(Progress / ProgressMax) * 100;

ProgressBar1.Update;

Sleep(100);

Application.ProcessMessages;

end;

end;

/////////////////////////////////////////////////////////////////////

end.

/////////////////////////////////////////////////////////////////////

Disabling screen saver temporarily

If you want to turn off the screen saver while your program is running, you don't have to disable the Windows screen saver at all. Just define the following method to handle the appropriate Windows message:

procedure TForm1.AppMessage (var Msg: TMsg; var Handled: boolean);
begin
if (Msg.Message = WM_SYSCOMMAND) and (Msg.wParam = SC_SCREENSAVE) then
Handled := true;
end;
On the form's OnCreate event, assign 
Application.OnMessage := AppMessage;

Closing another application

To close e.g. Notepad, you simply send the message WM_CLOSE to the application's main window:

procedure TForm1.Button1Click(Sender: TObject);
var Hnd: THandle;
begin
Hnd := FindWindow (PChar ('Notepad'), nil);
if Hnd > 0 then
SendMessage (Hnd, WM_CLOSE, 0, 0);
end;

Prevent labels from being cut

When switching between small fonts and large fonts, the AutoSize property of TLabel components does not work properly. As work-around, call the following procedure within the form's OnCreate event:

procedure LabelsAutoSizeCorrect (Form: TForm);
var i: integer;
Component: TComponent;
begin
for i := 0 to Form.ComponentCount - 1 do begin
Component := Form.Components [i];
if (Component is TLabel) and TLabel (Component).AutoSize then begin
TLabel (Component).AutoSize := false;
TLabel (Component).AutoSize := true;
end;
end;
end;

Auto center a form in Delphi

Just call this function to center the form on the screen (for example in the OnShow event).
procedure centerizeform(f:TForm);
begin
  f.Top:=(Screen.WorkAreaHeight-f.Height) div 2;
  if f.Top<0 then f.Top:=0;
  f.Left:=(Screen.WorkAreaWidth-f.Width) div 2;
  if f.Left<0 then f.Left:=0;
end;

_________________________________________________________________________

If the above code doesn't work for you, just  Try This Code Below :


procedure TForm1.FormCreate(Sender: TObject);
begin
 
Left:=(Screen.Width-Width)  div 2;
 
Top:=(Screen.Height-Height) div 2;
end;
 
_________________________________________________________________________
 

Center a form on screen at runtime
 
procedure CenterForm (AForm: TForm); 
var ALeft, ATop: integer; 
begin ALeft : = (Screen.Width - AForm.Width) div 2; 
ATop : = (Screen.Height - AForm.Height) div 2; 
 
{ prevents form being twice repainted! }
AForm.SetBounds (ALeft, ATop, AForm.Width, AForm.Height); end; 
 
_________________________________________________________________________ 
 

Center a form over active form at runtime
procedure CenterFormOverActive (AForm: TForm); 
var ALeft, ATop: integer; 
begin ALeft : = Screen.ActiveForm.Left + (Screen.ActiveForm.Width div 2) - (AForm.Width div 2); 
ATop : = Screen.ActiveForm.Top + (Screen.ActiveForm.Height div 2) - (AForm.Height div 2); 
 
{ prevent form from being outside screen }
if ALeft < 0 then ALeft := Screen.ActiveForm.Left;
if ATop < 0 then ATop := Screen.ActiveForm.Top;
if (ALeft + AForm.Width > Screen.Width) or (ATop + AForm.Height > Screen.Height) then
CenterForm (AForm) else 
{ prevents form being twice repainted! } 
AForm.SetBounds (ALeft, ATop, AForm.Width, AForm.Height); end;
 

DO'A TAMMAH

ABAH JAGUR BOGOR
Kali ini saya kembali Posting salah satu Ilmu atau Do’a yang telah di Ijazah langsung oleh Kyai / Guru saya dari Surade (Ujung Genteng) – Sukabumi dan dari Cianjur Mudah-mudahan bermanfaat bagi sedulur di KWA semuanya. Amiin…
Berikut ini adalah DOA TAMMAH (Kalimat yang sempurna) atau kalimat Sakti yang memohon perlindungan kepada Allah SWT dari segala kejahatan dan bahaya.
Misalnya saat dalam perjalanan, belum sampai di tujuan dan harus bermalam disuatu tempat. Jika timbul rasa was-was dalam hati, khawatir akan keselamatan diri dan harta benda yang dibawa. InsyaAllah, aman sentosa karena perlindungan Allah Ta’ala.
Anda merasa takut terhadap gangguan JIN jahat, atau penampakan yang menyeramkan (hantu, setan, dll), maka bacalah Do’a Tammah ini. Insya Allah, tiada datang bahaya daripadanya. Bahkan JIN dapat terbakar bila tetap bermaksud mengganggu.
Bagi yang ingin mengajukan pertanyaan pribadi silahkan kontak / sms ke 0878 816 488 38 atau 0812 888 455 35 atau ke email wimpytrianda@yahoo.com Insya Allah sy bisa menjawab amiin…
Tawasul terlebih dahulu kepada :
TAUDZ 1X
BASMALAH 1X
ISTIGHFAR 7X
SYAHADAT 3X
SHOLAWAT 3X
LA HAULA 1X
Tawasul kepada:
NABI MUHAMMAD S.A.W
MALAIKAT JIBRIL.MIKAIL.ISROFIL.IZROIL A.S
SYEKH ABDUL QODIR JAILANI
BAPAK DAN IBU
SHOKHIBUL IJAZAH ……..
SHOKHIBUL HAJAT…BIN/BINTI…
Do’a nya sebagi berikut :
Disini Tulisan Arab JPG nya (yg sy kirim pertama dengan file word 2007/ ini hanya menjaga text nya tidak bisa dibuka atau error.)
A’uudzu biwaj’hillaahil kariim
Wa bikalimaatil laahit taammaatil latii laa yujaawizuhunna barrun wa laa faajirun
min syarri maa yanzilu minas’sama’i
Wa min syarri maaya’ ruju fiiha
Wa min syarri maa dzaro-a fiil ardhi
Wa min syarri ma yakh’ruju minhaa
Wa min fitanil laili wan nahaari
Wa min thowaariqil laili wan nahaari illa thooriqon
Yath’ruqu bikhoirin ya rahman.
Artinya : “Aku berlindung pada Tuhan Yang Maha Pemurah dan berpegang teguh pada kalimat-kalimatNYA yang sempurna yang tidak dapat diperangaruhi oleh siapapun juga, baik orang taat maupun orang fasik, dari kejahatan yang turun dari langit dan kejahatan yang naik ke langit, kejahatan yang ada dimuka bumi dan kejahatan yang keluar dari bumi, kejahatan fitnah-fitnah dan peristiwa yang membawa akibat buruk yang terjadi siang dan malam, kecuali peristiwa yang membawa kebaikan, Ya Tuhan kami yang Maha Rahman (Pengasih).”
Dibaca setiap hari, sampai hafal.
Tatalaku / Cara Menjalankan :
Puasa 3 hari dimulai dari hari lahir anda
Dibaca 113 x selama Puasa dan 7 x setiap sesudah sholat Fardhu
Fungsi / Kegunaan :
Untuk menjaga dari ganguan Mahluk Halus di rumah, perjalanan dll.
Untuk menolak Sihir, Teluh dan Santet apalagi Ilmu Hitam yg jelek/jahat
Berguna untuk yang akan menjalankan Keilmuan agar tidak datang mahluk yang mengganggu selama proses penyerapan ilmu.
Menyerang / mengirim pukulan Ghoib bersifat membakar (Sifatnya tidak langsung dalam Dzohir. Namun dapat kalau sdh mampu mengolah pemakaiannya)
Menyadarkan yang diganggu mahluk halus / Kesurupan
Cara Penggunaan :
Bacalah Do’a ini sebanyak 7x untuk membakar para mahluk halus yang jahat. Jika membandel dapat dibaca 41 x maka akan hangus
Untuk memukul lawan baca doa malam hari sebanyak 41x (cukup sebutkan namanya dan tujukan utk orang tersebut.)
Jika untuk memukul Dzohir : Pinta terlebih dahulu karomah Do’a ini dan alirkan ketelapak tangan anda, maka lawan akan ada bekas telapak tangan menghitam.
Untuk menyadarkan orang kesurupan bacakan ayat ini pada telapak tangan kita kemudian usapkan atau tiupkan diwajahnya.
Catatan :
Jangan kaget pada waktu pengamalan Do’a ini selama puasa, anda akan merasa panas dingin seperti Flu. Biarkan saja, karena itu sedang dalam proses penyerapan energi Do’a tersebut ke tubuh anda.
Jika selama pengamalan / mewirid doa ini mendengar orang menjerit biarkan saja. Atau memncium seperti rambut terbakar acuhkan saja, tetap konsentrasi pada bacaan.
Riwayat :
Ketika Rasulullah saw sedang dalam perjalanan israa’, sebelum sampai ketempat,. Disitu Nabi melihat Ifrit yang mengikuti dari belakang dengan obor api pembakar kebenaran hendak membinasakan Rasulullah SAW. Malaikat Jibril mengajarkan Do’a Tammah untuk menolak dan menghancurkan Ifrit tersebut. Kalimat itu dibaca oleh Rasulullah SAW maka Ifrit tersungkur jatuh dan terbakar.
Maka dengan ini kalimat tersebut diatas dapat dipergunakan untuk mengusir Ifrit dan setan yang hendak melemahkan keimanan kita dan untuk menghindarkan diri dari kejahatan manusia yang mengikuti nafsu setannya dan dari segala kejahatan & bencana apa saja yang ada di dunia ini.



Sumber : KWA

Solat Sunat Istikharah

Jika timbul keraguan dalan hati untuk memilih atau mengambil keputusan dalam sesuatu hal, misalnya; apakah harus berangkat atau tidak, apakah harus menolak atau menerima, apakah harus berdagang atau menjadi buruh dan sebagainya.
Keraguan makin terasa,keputusan tidak dapat dipastikan kerana setelah melihat masing-masing ada kebaikan dan keburukannya.
Maka jika terjadi hal sebegini, hendaklah menyerahkannya kepada ALLAH S.W.T untuk memilih, dengan jalan terlebih dahulu solat sunat istikharah dua rakaat
Lafaz niatnya iaitu:
Sahaja aku solah sunnat istikharah dua rakaat kerana ALLAH TAALA.
Rakaat pertama dibaca surah Al-Fatihah dan surah Al-Kafiruun, rakaat kedua dibaca surah Al-Fatihah dan surah Al-Ikhlas. Setelah salam, bacalah doa tersebut di bawah.
Dengan pengharapan kiranya ditunjukkan ALLAH S.W.T untuk mendapatkan pilihan yang baik. Jika keraguan masih mempengaruhi fikiran untuk menentukan pilihan, ulangilah solah istikharah dan membaca doanya, meskipun pengulangan sampai tujuh kali berturut-turut.
Kemudian dengan tawakkal kepada ALLAH S.W.T pilihlah salah satu daripadanya ambillah yang mana arah hati lebih cenderung setelah berdoa, jangalah menimbulkan lagi rasa keraguan, kerjakanlah dengan keyakinan bahawa ini adalah pilihan ALLAH S.W.T.
Janganlah merasa kecewa jika ternyata dalam pekerjaan yang telah dipilih menimbulkan hal-hal yang tidak diingini. Ingatlah bahawa ini adalah takdir yang telah digariskan pada azali yang tidak dapat dielakkan ia mengandungi hikmah, membawa kebaikan di masa akan datang, hendaklah tetap mempunyai husnuz-zan kepada ALLAH S.W.T.
Amat baik sekali bila solat istikharah ini dikerjakan di waktu tengah malam di saat senyap, agar hati lebih khusuk dalam mengemukakan permohonan kepada Tuhan

Doa solat sunat istikharah:
Ya ALLAH, aku memohon petunjuk memilih yang baik dalam pengetahuanMu, aku memohon ditakdirkan yang baik dengan qudratMu, aku mengharapkan kurniaMu yang besar.
Engkau Maha Kuasa dan aku adalah hambaMu yang dhaif. Engkau Maha Tahu dan aku adalah hambaMu yang jahil. Engkau Maha Mengetahui semua yang ghaib dan yang tersembunyi.
Ya ALLAH, jika hal ini dalam pengetahuanMu adalah baik bagi kehidupanku sekarang dan masa akan datang, takdirkanlah dan mudahkanlah bagiku kemudian berilah aku berkat daripadanya.
Tetapi jika dalam ilmuMu hal ini akan membawa bencana bagiku dan bagi agamaku, baik sekarang ataupun pada masa akan datang, jauhkanlah ia daripadaku dan jauhkanlah aku daripadanya. Semoga Engkau mentakdirkan aku pada yang baik. Sesungguhnya Engakau Maha Kuasa atas setiap sesuatu.

QUNUT NAZILAH

Qunut Nazilah

 


Maksudnya:
Ya Allah, sesungguhnya kami memohon pertolongan
Mu, kami meminta ampun kepada Mu, kami memohon petunjuk dari
Mu, kami beriman kepada Mu, kami berserah kepada Mu dan kami
memuji Mu dengan segala kebaikan, kami mensyukuri dan tidak
mengkufuri Mu, kami melepaskan diri daripada sesiapa yang durhaka
kepada Mu.

Ya Allah, Engkaulah yang kami sembah dan kepada Engkaulah kami
bersolat dan sujud, dan kepada Engkau jualah kami datang bergegas,
kami mengharap rahmat Mu dan kami takut akan azab Mu kerana
azab Mu yang sebenar akan menyusul mereka yang kufur.

Ya Allah, Muliakanlah Islam dan masyarakat Islam. Hentikanlah
segala macam kezaliman dan permusuhan, Bantulah saudara-saudara
kami di mana sahaja mereka berada. Angkatkanlah dari mereka
kesusahan, bala, peperangan dan permusuhan.

Ya Allah, selamatkanlah kami dari segala keburukan dan janganlah
Engkau jadikan kami tempat turunnya bencana, hindarkanlah kami
dari segala bala kerana tidak sesiapa yang dapat menghindarkannya
melainkan Engkau, ya Allah.”

keterangan:

Qunut nazilah merupakan salah satu daripada tiga jenis qunut yang sunat
dibaca dalam solat mengikut mazhab syafie selain qunut dalam solat subuh
dan qunut pada separuh malam kedua terakhir dalam solat witir di bulan
Ramadhan.

Qunut nazilah sunat dibacakan ketika umat Islam didatangi bala bencana
atau ditimpa musibah seperti ketakutan, ditimpa wabak, diserang belalang
dan sebagainya. Qunut ini tidak dibacakan jika umat Islam tidak didatangi
dengan cubaan-cubaan seperti ini.

Qunut ini pernah dibacakan oleh Rasulullah ketika kejadian pembunuhan
beramai-ramai 60 orang penghafaz al-Quran selama sebulan berdasarkan
hadith berikut:
Maksudnya: Sesungguhnya Rasulullah s.a.w telah membaca doa qunut nazilah
pada waktu selain dari Subuh ketika turunnya sewaktu pembunuhan sahabat-sahabatnya
penghafaz-penghafaz al-Quran.
(Hadith Riwayat Bukhari dan Muslim)


Tatacara Bacaan Qunut Nazilah
  • Qunut ini boleh dibacakan pada setiap sembahyang fardhu jika
    kedatangan bala bencana atau sebarang cubaan dari ALLAH S.W.T
  • Qunut ini dibacakan pada waktu iktidal selepas ruku’ pada rakaat
    terakhir.
  • Sunat ditambah bacaan doa ini selepas bacaan qunut harian.
  • Disunatkan kepada Imam untuk membacanya secara kuat dan
    diaminkan oleh makmum dalam solat yang berjemaah.
  • Peringatan! qunut nazilah hanya dibacakan apabila manusia
    ditimpa sesuatu musibah. Maka, solat fardhu selain solat subuh tidak
    dibaca qunut melainkan jika berlaku sesuatu perkara buruk.
    Berdasarkan hadith berikut:

Maksudnya: Sesungguhnya Rasulullah s.a.w telah membaca doa
qunut pada waktu selain dari Subuh ketika turunnya sewaktu pembunuhan
sahabat-sahabatnya penghafaz-penghafaz al-Quran.
(Hadith Riwayat Bukhari dan Muslim)

ISTIGHFAR UTAMA



“Ya ALLAH, Engkaulah Tuhanku, tidak ada Tuhan yang patut disembah hanya Engkau yang menjadikan aku. Aku hambaMu dan aku dalam genggamanMu. Aku dalam perjanjian beriman dan bertaat kepadaMu sekadar kesanggupan yang ada padaku.
Aku berlindung kepadaMu dari kejahatan yang aku perbuat. Aku mengakui atas nikmat yang Engkau berikan kepadaku dan mengakui atas dosaku, aku mohon keampunanMu, tidaklah ada yang dapat mengampuni dosa seseorang hanya Engkaulah wahai Tuhanku.”
Penjelasan:
Sayyidina Jabir menjelaskan Rasulullah s.a.w bersabda:
pelajarilah dengan baik istighfar utama dan amalkan.
At-Tayibi menerangkan, istighfar utama mengandungi pengertian hubungan yang erat antara seorang hamba dengan Tuhannya dan mengandungi pengakuan atas kelalaian dan kelengahan manusia dalam melaksanakan kewajipan terhadap ALLAH S.W.T pada hal manusia telah membuat perjanjian ketika ia masih dalam rahim ibu (dalam alam roh) bahawa ia dalam hidupnya akan sentiasa taat dan berbakti kepada ALLAH S.W.T .
Manusia mengakui atas nikmat-nikmat ALLAH S.W.T, nikmat harta benda,nikmat kelengkapan anggota tubuh dan kesempurnaan panca indera, kesihatan badan, fikiran, kebahagiaan dan sebagainya.
Kerana itu manusia sentiasa mohon perlindungan kepada ALLAH agar nikmat-nikmat tersebut terpelihara dari kemusnahan kerana akibat perbuatan dirinya sendiri. Di samping itu manusia mengakui berdosa dan merasa sangat terbatas dalam melaksanakan kewajipan-kewajipan terhadap ALLAH S.W.T. Timbul kesedaran dari hati nurani yang tulus ikhlas disertai dengan pengharapan mohon keampunan ALLAH S.W.T setiap pagi dan petang.
Kerana itu Rasulullah s.a.w menerangkan, siapa membaca istighfar utama di waktu pagi dengan penuh keyakinan sesuai dengan erti dan tujuan kalimat tersebut, kemudian ia meninggal pada hari itu, ia ahli syurga, dan siapa yang membaca di waktu petang dengan cara itu, kemudian ia meninggal pada malam hari, iapun ahli syurga.
(Keterangan-keterangan ini dipetik dan diterjemahkan dari kitab hadis subulus salaam juz IV halaman 327)

Sumber : http://halamanzaman.blogspot.com

Cara-cara mendapat kekhusyukkan dalam solat

  1. Sembahyang berjemaah. (yang paling afdhal ialah di masjid)
  2. Menjaga makanan dan minuman supaya halal dimakan dan diminum dan yang didapati dari sumber yang halal begitu juga makanan yang syubhat (yang kesamaran, hukumnya seperti makanan yang dikatakan ada dicampurkan benda-benda yang haram tetapi tidak jelas. (memakan seekor semut mematikan hati 40 hari).
  3. Membanyakkan sedekah kepada fakir miskin.
  4. Jangan sembahyang dengan menahan buang air besar atau air kecil dan selesaikan atau perkemaskan segala urusan supaya tidak timbul kebimbangan dalam sembahyang.
  5. Mengambil wudhuk dengan sempurna supaya air mengena semua anggota yang wajib serta mengingati niat atau doa apabila air melalui di setiap anggota wudhuk.
  6. Memakai pakaian yang bersih dan kemas seperti akan mengadap orang besar.
  7. Sembahyang di awal waktu melainkan jika ada majlis ilmu atau zikir, maka sembahyang isya’ sunat dilambatkan sehingga selesai majlis itu.
  8. Tempat sujud dipastikan supaya tiada gambar yang mengganggu fikiran atau membimbangkan hati.
  9. Mengingati mati dan kemungkinan sembahyang itu yang terakhir sekali dalam hidupnya.
  10. Menyedari bahawa ia sedang berhadapan dengan ALLAH Yang Maha Agung dan Yang Maha Mengetahui segala rahsia hambaNya.
  11. Memenuhkan dada dengan perasaan takut dan rendah diri terhadap ALLAH  yang melihat segala gerak-geri kita.
  12. Memahami segala bacaan dalam sembahyang termasuk ayat-ayat Quran dan segala zikir.
  13. Sebelum mengangkat takbir, membaca surah An-Nas, selawat keatas Nabi, istighfar dan apa-apa bacaan untuk menjauhkan gangguan syaitan.
  14. Memandang ke tempat sujud dan tidak terlalu banyak menggerakkan anggota dan berpaling semasa dalam sembahyang.
  15. Memusatkan seluruh ingatan kepada sembahyang.
  16. Memanjangkan semasa rukuk dan sujud.
  17. Memastikan tiada gangguan di dalam kawasan kita sembahyang.
  18. Jangan memandang ke kiri dan ke kanan.
  19. Hendaklah memandang ke tempat sujud.

KALIMAT TAMMAH






Dengan nama ALLAH yang Maha Pengasih dan Penyayang. Aku berlindung kepada ALLAH Yang Maha Pemurah dan berpegang teguh pada kalimat-kalimatNya yang sempurna yang tidak dapat dipengaruhi oleh sesiapapun juga, baik yang taat mahupun orang fasik, dari kejahatan yang turun dari langit dan kejahatan yang naik ke langit, kejahatan yang ada di muka bumi, kejahatan fitnah-fitnah dan peristiwa yang membawa akibat buruk yang terjadi siang dan malam, kecuali peristiwa yang membawa kebaikan, wahai Tuhan kami Yang Maha Rahman.
Penjelasan:
Ketika Rasulullah s.a.w sedang dalam perjalanan ke israa’, sebelum sampai ke tempat yang ditujui tercium olehnya bau yang harum, bau Masitah penyisir anak firaun. Disitu Nabi s.a.w melihat ifrit yang mengikuti dari belakang dengan obor api pembakar kebenaran hendak membinasakan Rasulullah s.a.w. malaikat Jibril mengajarkan kalimat sakti (Kalimat Tammah) untuk menolak dan mengahancurkan ifrit tersebut. Kalimat itu dibaca oleh Rasulullah s.a.w maka ifrit tersungkur jatuh di atas tanahterbakar menjadi abu oleh api obornya sendiri.
Maka dengan ini kalimat tersebut di atas dapat dipergunakan untuk mengusir ifrit dan syaitan yang hendak melemahkan keimanan kita dan untuk menghindarkan diri dari kejahatan manusia yang mengikuti nafsu syaitannya dan dari segala kejahatan apa saja yang ada di dunia ini.
Keterangan:
  1. Kalimat yang sempurna: Kitab Al-Quran yang berisi kalimat-kalimat sakti, tatacara pergaulan,ibadat,anjuran peringatan,keimanan,sejarah berhikmah dan sebagainya.
  2. Kejahatan yang turun dari langit: Bala, wabak , udara buruk, taufan, petir, rihulahmar, kuman-kuman, penyakit yang berterbangan di udara dan sebagainya.
  3. Kejahatan yang naik ke langit: Cacatan amal buruk yang dibawa naik oleh malaikat-malaikat ke langit, roh orang-orang jahat, iblis yang mencuri berita di langit dan sebagainya.
  4. Kejahatan yang terjadi di muka bumi: Gangguan syaitan, jin dan manusia, binatang buas, kezaliman, hasut, fitnah, buruk sangka, niat jahat, peperangan dan sebagainya.
  5. Kejahatan yang keluar dari bumi: Gempa bumi, gunung berapi, gas beracun, binatang-binatang yang keluar dari bumi, berbisa dan sebagainya.





Berikut ini adalah doa kalimat tammah (Kalimat yang sempurna) atau kalimat Sakti. Untaian doa perlindungan memohon kepada Allah SWT dari segala kejahatan dan bahaya. Semoga dapat berguna untuk pembaca Rasa Sejati yang berkenan untuk mengamalkannya.
Misalnya saat dalam perjalanan, belum sampai di tujuan dan harus bermalam disuatu tempat. Jika timbul rasa was-was dalam hati, khawatir akan keselamatan diri dan harta benda yang dibawa, maka bacalah Kalimat Tammah ini sebanyak-banyaknya. InsyaAllah, aman sentosa karena perlindungan Allah Ta’ala.
Atau saat anda merasa takut terhadap gangguan JIN jahat, atau penampakan yang menyeramkan (hantu, setan, dll), maka bacalah Kalimat Tammah ini. InsyaAllah, tiada datang bahaya daripadanya. Bahkan JIN dapat terbakar bila tetap bermaksud mengganggu.
Pada Tingkat 3 adalah Kalimat Tammah Kubro, perlindungan dari segala macam kejahatan didarat maupun di udara. Dari manusia, binatang, jin dan bencana alam.
TAHAP 1
A’uudzu bikalimaatilaahit taammati min syarri maa kholaq.
Artinya : “Aku berlindung dengan kalimat Tuhan yang Maha Sempurna dari semua kejahatan yang dijadikanNya
Diwirid selama 7 hari berturut-turut sebanyak 99 kali di setelah Subuh dan Maghrib.

TAHAP 2
A’uudzu bikalimaatillahit taammati min kulli syaithonin wa haam matin wa mingkulli ‘aiinin laammah.
Artinya : “Aku berlindung dengan kalimat Tuhan yang Maha Sempurna dari syaitan yang menggoda dan dari pandangan mata yang menyeramkan.”
Diwirid selama 7 hari berturut-turut sebanyak 99 kali di tengah malam.

TAHAP 3
A’uudzu biwaj’hillaahil kariim
Wa bikalimaatil laahit taammaatil latii laa yujaawizuhunna barrun wa laa faajirun
min syarri maa yanzilu minas’sama’i
Wa min syarri maaya’ ruju fiiha
Wa min syarri maa dzaro-a fiil ardhi
Wa min syarri ma yakh’ruju minhaa
Wa min fitanil laili wan nahaari
Wa min thowaariqil laili wan nahaari illa thooriqon
Yath’ruqu bikhoirin ya rahman.
Artinya : “Aku berlindung pada Tuhan Yang Maha Pemurah dan berpegang teguh pada kalimat-kalimatNYA yang sempurna yang tidak dapat diperangaruhi oleh siapapun juga, baik orang taat maupun orang fasik, dari kejahatan yang turun dari langit dan kejahatan yang naik ke langit, kejahatan yang ada dimuka bumi dan kejahatan yang keluar dari bumi, kejahatan fitnah-fitnah dan peristiwa yang membawa akibat buruk yang terjadi siang dan malam, kecuali peristiwa yang membawa kebaikan, Ya Tuhan kami yang Maha Rahman (Pengasih).”
Dibaca setiap hari, sampai hafal.

Kajian :
Kalimat yang sempurna : Kitab Al Quran yang berisi kalimat-kalimat sempurna.
Kejahatan yang turun dari langit : Bala’, wabah, udara buruk, topan, petir, penyakit yang berterbangan di udara dan sebagainya.
Kejahatan yang naik ke langit : Catatan amal buruk yang membawa naik oleh mailakat, iblis dan sebagainya.
Kejahatan yang terjadi dimuka bumi : gangguan setan, jin dan manusia, binatang buas, kezaliman, hasut, perang dan sebagainya.
Kejahatan yang keluar dari bumi : Gempa bumi, gunung meletus, gas beracun, lumpur, binatang-binatang ganas yang keluar dari dalam bumi dan sebagainya.

Riwayat :
Ketika Rasulullah saw sedang dalam perjalanan israa’, sebelum sampai ketempat, tercium olehnya bau harum, bau Masithah penyisir rambut anak Firaun. Disitu Nabi melihat Ifrit yang mengikuti dari belakang dengan obor api pembakar kebenaran hendak membinasakan Rasulullah SAW. Malaikat Jibril mengajarkan Kalimat Tammah untuk menolak dan menghancurkan Ifrit tersebut. Kalimat itu dibaca oleh Rasulullah SAW maka Ifrit tersungkur jatuh dan terbakar.
Maka dengan ini kalimat tersebut diatas dapat dipergunakan untuk mengusir Ifrit dan setan yang hendak melemahkan keimanan kita dan untuk menghindarkan diri dari kejahatan manusia yang mengikuti nafsu setannya dan dari segala kejahatan & bencana apa saja yang ada di dunia ini.

http://rasasejati.wordpress.com

    Twitter Delicious Facebook Digg Stumbleupon Favorites More

     
    Design by Kang Iwan K-sev | Thank's for your visit To My Site - Ridwan Mulyana | Cibeureum