gekogeek.com

delphiptt.blogspot.com

Delphi programming tips and tricks: July 2006

http://delphiptt.blogspot.com/2006_07_01_archive.html

Delphi programming tips and tricks. Delphi programming tips and tricks. Thursday, July 13, 2006. How to create a non-rectangular form. And how to do this? Here you will find a simple example that just gives some text and sets the region like it. Expand it by your mind! Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,. StdCtrls, Menus;. Procedure btnDoActionClick(Sender: TObject);. Procedure FormClose(Sender: TObject; var Action: TCloseAction);. Shift: TShiftState; X, Y: Integer);.

delphiptt.blogspot.com

Delphi programming tips and tricks: February 2006

http://delphiptt.blogspot.com/2006_02_01_archive.html

Delphi programming tips and tricks. Delphi programming tips and tricks. Friday, February 17, 2006. Making life easier with Indy. Let's take a look at the networking in Delphi. One of the best library for writing network applications in Delphi is with no doubt Indy. It has almost everything someone wished for internt programming. In the begining because today Google makes the net goes round ;) , let see how can use pop3 for retrieving mails from your Gmail account. FontCharset = DEFAULT CHARSET. Listbox1&...

delphiptt.blogspot.com

Delphi programming tips and tricks: July 2007

http://delphiptt.blogspot.com/2007_07_01_archive.html

Delphi programming tips and tricks. Delphi programming tips and tricks. Friday, July 13, 2007. Variants can handle several datatypes and some special states as EMPTY and NULL. Before you. Assign a value to a variant, it has the state EMPTY. There are a lot of functions to check the. State or type of a variant and there are predefined variants you can use. VDemo := Unassigned; / assign EMPTY to variant. BTest := VarIsEmpty(vDemo); / check if variant is EMPTY. VDemo := NULL; / assign NULL to variant. Small...

delphiptt.blogspot.com

Delphi programming tips and tricks: June 2006

http://delphiptt.blogspot.com/2006_06_01_archive.html

Delphi programming tips and tricks. Delphi programming tips and tricks. Saturday, June 24, 2006. Using Google Translate from Delphi. This is how to translate a text unsing Google Translate from Delphi:. For sending data to Google will use http GET method. Function translate(ss,lng:string):string;. S:=http.Get('http:/ translate.google.com/translate t? Httpencode(ss) '&langpair=' lng);. A:=posex('›',s,pos('‹textarea',s) ;. B:=posex('‹/textarea›',s,a);. Result:=copy(s,a 1,b-a-1);. Subscribe to: Posts (Atom).

delphiptt.blogspot.com

Delphi programming tips and tricks: June 2007

http://delphiptt.blogspot.com/2007_06_01_archive.html

Delphi programming tips and tricks. Delphi programming tips and tricks. Saturday, June 16, 2007. Here is a global mouse hook on Delphi. Which will intercept middle (scroll) button click ( WM NCMBUTTONDOWN. Messages), check if any top level window is under the cursor and if yes then minimize that window. The code is pretty simple. Here is the mouse hook ( WH MOUSE. MemMapFile = 'temp thief';. PDLLGlobal = TDLLGlobal;. TDLLGlobal = packed record. INVALID HANDLE VALUE then. Procedure RunHook; stdcall;.

delphiptt.blogspot.com

Delphi programming tips and tricks: May 2009

http://delphiptt.blogspot.com/2009_05_01_archive.html

Delphi programming tips and tricks. Delphi programming tips and tricks. Thursday, May 21, 2009. How Detect If an Application Has Stopped Responding. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,. ComObj, StdCtrls;. ModObjIE : OLEVariant;. ModlngWndIE : THandle;. TForm1.btnLaunchClick(Sender: TObject);. ModObjIE := CreateOleObject( 'InternetExplorer.Application'. ModObjIE.Visible := true;. ModObjIE.Navigate2( 'http:/ www.borland.com'. ModlngWndIE := modObjIE.hwnd;. H : THandle;.

delphiptt.blogspot.com

Delphi programming tips and tricks: How Detect If an Application Has Stopped Responding

http://delphiptt.blogspot.com/2009/05/how-detect-if-application-has-stopped.html

Delphi programming tips and tricks. Delphi programming tips and tricks. Thursday, May 21, 2009. How Detect If an Application Has Stopped Responding. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,. ComObj, StdCtrls;. ModObjIE : OLEVariant;. ModlngWndIE : THandle;. TForm1.btnLaunchClick(Sender: TObject);. ModObjIE := CreateOleObject( 'InternetExplorer.Application'. ModObjIE.Visible := true;. ModObjIE.Navigate2( 'http:/ www.borland.com'. ModlngWndIE := modObjIE.hwnd;. H : THandle;.

delphiptt.blogspot.com

Delphi programming tips and tricks: September 2007

http://delphiptt.blogspot.com/2007_09_01_archive.html

Delphi programming tips and tricks. Delphi programming tips and tricks. Sunday, September 02, 2007. How to validate an IBAN. IBAN stands for International Bank Account Number. Here is a method how to check if an IBAN is valid:. Result := input;. A := 'A' to. Result := StringReplace(Result, a, IntToStr(Ord(a) - 55), [rfReplaceAll]);. V, l: Integer;. Iban := UpperCase(iban);. Pos('IBAN', iban) 0 then. Delete(iban, Pos('IBAN', iban), 4);. Iban := iban Copy(iban, 1, 4);. Delete(iban, 1, 4);. Rest := 0;.

delphiptt.blogspot.com

Delphi programming tips and tricks: August 2007

http://delphiptt.blogspot.com/2007_08_01_archive.html

Delphi programming tips and tricks. Delphi programming tips and tricks. Friday, August 17, 2007. There are lots of neat little things that are in many of the DLLs that Microsoft has installed in Windows. Most of them are documented in the Win32 API. However, there are a lot of them that are undocumented. This article shows how to use one of the undocumented functions available in user32.dll, MessageBoxTimeOut. HWnd: HWND; lpText: PChar; lpCaption: PChar;. HWnd: HWND; lpText: PChar; lpCaption: PChar;.