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;e...

Read more »

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 ...

Read more »

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...

Read more »

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/valueDescriptionVK_LBUTTON0x01Left mouse buttonVK_RBUTTON0x02Right mouse buttonVK_CANCEL0x03Control-break processingVK_MBUTTON0x04Middle mouse button (three-button mouse)VK_XBUTTON10x05X1 mouse buttonVK_XBUTTON20x06X2 mouse button-0x07UndefinedVK_BACK0x08BACKSPACE keyVK_TAB0x09TAB key-0x0A-0BReservedVK_CLEAR0x0CCLEAR keyVK_RETURN0x0DENTER key-0x0E-0FUndefinedVK_SHIFT0x10SHIFT keyVK_CONTROL0x11CTRL keyVK_MENU0x12ALT keyVK_PAUSE0x13PAUSE keyVK_CAPITAL0x14CAPS LOCK keyVK_KANA0x15IME Kana modeVK_HANGUEL0x15IME Hanguel mode (maintained for compatibility; use VK_HANGUL)VK_HANGUL0x15IME Hangul mode-0x16UndefinedVK_JUNJA0x17IME...

Read more »

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_BOTTOMPlaces...

Read more »

Refresh Desktop

uses  ShlObj;procedure RefreshDesktop1;begin  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);end;tested on Win 7 100% works guaranteed....

Read more »

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...

Read more »

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 ...

Read more »

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)...

Read more »

Type Data Record dengan Listbox

buatlah aplikasi barutambahkan 2 buttontambahkan 1 listboxbutton1 untuk mengisi record berupa arraybutton2 untuk menampilkan hasil record ke dalam listboxListing program :unit Unit1;interfaceuses  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 } ...

Read more »

Label Tampil Secara Bergantian

sediakan pada form2 label1 timerpada event di timerprocedure TForm1.Timer1Timer(Sender: TObject);var n:byte;beginn:=strtoint(formatdatetime('ss',now()));if (n mod 2)=0 then label1.Visible:=falseelselabel1.Visible:=true;label2.Visible:=not label1.Visible;e...

Read more »

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...

Read more »

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 := AppMessa...

Read more »

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);e...

Read more »

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;e...

Read more »

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...

Read more »

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...

Read more »

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...

Read more »

QUNUT NAZILAH

Qunut Nazilah  p { margin-bottom: 0.08in; } Maksudnya:“ Ya Allah, sesungguhnya kami memohon pertolonganMu, kami meminta ampun kepada Mu, kami memohon petunjuk dariMu, kami beriman kepada Mu, kami berserah kepada Mu dan kamimemuji Mu dengan segala kebaikan, kami mensyukuri dan tidakmengkufuri Mu, kami melepaskan diri daripada sesiapa yang durhakakepada Mu. Ya Allah, Engkaulah yang kami sembah dan kepada Engkaulah kamibersolat dan sujud, dan kepada Engkau jualah kami datang bergegas,kami mengharap rahmat Mu dan kami takut akan azab Mu keranaazab Mu yang sebenar akan menyusul mereka yang kufur. Ya Allah, Muliakanlah Islam dan masyarakat Islam. Hentikanlahsegala macam kezaliman dan permusuhan, Bantulah saudara-saudarakami di mana sahaja...

Read more »

ISTIGHFAR UTAMA

p.MsoNormal, li.MsoNormal, div.MsoNormal { margin: 0in 0in 0.0001pt; font-size: 12pt; font-family: "Times New Roman"; }div.Section1 { page: Section1; } “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.”...

Read more »

Cara-cara mendapat kekhusyukkan dalam solat

Sembahyang berjemaah. (yang paling afdhal ialah di masjid)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).Membanyakkan sedekah kepada fakir miskin.Jangan sembahyang dengan menahan buang air besar atau air kecil dan selesaikan atau perkemaskan segala urusan supaya tidak timbul kebimbangan dalam sembahyang.Mengambil wudhuk dengan sempurna supaya air mengena semua anggota yang wajib serta mengingati niat atau doa apabila air melalui di setiap anggota wudhuk.Memakai pakaian yang bersih dan kemas...

Read more »

KALIMAT TAMMAH

p.MsoNormal, li.MsoNormal, div.MsoNormal { margin: 0in 0in 0.0001pt; font-size: 12pt; font-family: "Times New Roman"; }div.Section1 { page: Section1; }ol { margin-bottom: 0in; }ul { margin-bottom: 0in; } 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...

Read more »