Here's how to check whether you are connected to the Internet procedure TForm1.Button1Click(Sender: TObject) ; function FuncAvail(_dllname, _funcname: string; var _p: pointer): boolean; {return True if _funcname exists in _dllname} var...
If you need to save the contents of a specified URL to a file - and be able to track the download progress, use the TDownLoadURL Delphi action While TDownLoadURL is writing to the specified file, it periodically generates an OnDownloadProgress event, so th...
If you have an email as a string value and want to extract only the domain (host) name from it, like in: "delphi.guide@about.com" - domain name = "about.com", you can use the next function:
The GetIEFavourites function called from the OnClick event of a button returns a list of all the favorites from your Internet Explorer in a ListBox. function GetIEFavourites (const favpath: string):TStrings; var searchrec:TSearchrec; str:TStr...
Here's how to change the home page for the IE from Delphi code (IE-Tools-Internet options...) uses Registry; ... function SetIEHomePage(PageName: string): Boolean; begin with TRegistry.Create do try RootKey := HKEY_CURRENT_USER;...
To show a list of all mapped network drives, use the GetNetworkDriveMappings function. Example usage: GetNetworkDriveMappings(Memo1.Lines) ; function GetNetworkDriveMappings (SList: TStrings): integer; var c: Char; ThePath: string; Max...
Here's how to obtain all image links from an HTML document. The GetImageLinks procedure fills a TStrings object with the value of the SRC property of the IMG HTML element. Note: if the images have relative links, you will have to parse the document url and...
We can use the Windows API function GetDriveType() to test if the drive is a CD-ROM drive then use the Windows API function GetVolumeInformation() to test if the VolumeName is 'Audio CD'.function IsAudioCD(Drive : char) : bool;var DrivePath : s...
Universal/Uniform Naming Convention. A UNC path describes the location of a volume, directory, or file.The format for a UNC path is \servervolumedirectoryfile and is not case-sensitive. For example: \Shared1_svrShared1WGroupsNetworkOrders.xlsR...
IsFileInUse will return true if the file is locked for exclusive access. It would fail if the file doesn't exist at all. function IsFileInUse(fName : string) : boolean;var HFileRes : HFILE;begin Result := false; if no...
By using the SHBrowseForFolder Windows API function and Delphi we can invoke a Windows system dialog used to browse for files and folders on users hard drive as well as network computers and printers. First, let's look at what SHBrowseForFolder needs. Here...
You can set transparent mode by calling SetBkMode function.procedure TForm1.Button1Click(Sender: TObject);begin with Image1.Picture.Bitmap.Canvas do begin Font.Color := clBlue; Brush.Style := bsclear;  ...
To remove the icon from the taskbar, you need to call a Windows API call:BOOL ShowWindow(HWND hwnd,int nCmdShow);Delphi makes it very easy to use this command. All you need to do is supply the Application.handle and SW_HIDE to remove the icon from the task...
This code show an example of how to print a text of a RichEdit component.unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) ...
Show how to create an animated icon in your programvar icon1:Boolean; ... procedure TForm1.Timer1Timer(Sender: TObject); begin if icon1=false then begin Application.icon:=Image1.Picture.Icon; icon1:=tru...
Shows how to activate the next or prior control in a formnext control: SendMessage(Form1.Handle, WM_NEXTDLGCTL, 0, 0); prior control: SendMessage(Handle, WM_NEXTDLGCTL, 1, 0);
Create a different form in your application...procedure TForm1.FormCreate(Sender:TObject); var region: HRgn; begin region:=CreateEllipticRgn(1,1,200,200); SetWindowRgn(handle, region, true); end;
Get the total and available memory in your system. (Total free memory space in your system)procedure TForm1.Button1Click(Sender: TObject); var memory:TMemoryStatus; begin memory.dwLength:=sizeof(memory); GlobalMemoryStatus(memory); &nb...
This code shows how to set the system time to another value.procedure TForm1.Button1Click(Sender: TObject); var systemtime : TSystemTime; NewTime:string; begin NewTime:='13:58:00'; DateTimeToSystemTime( D...
Identify the Windows version of your systemfunction GetWindowsVersion : string; var OsVinfo : TOSVERSIONINFO; HelpStr : array[0..50] of char; begin ZeroMemory(@OsVinfo,sizeOf(OsVinfo));...
Obtains the language that Windows is using.function Language:string; var sLangID:LangID; sLanguage: array [0..100] of char; begin sLangID:=GetSystemDefaultLangID; VerLanguageName(sLangID,sLang...
Show how to paint a form in a different way...procedure TForm1.FormPaint(Sender: TObject); var Row, Ht: Word; IX: Integer; begin iX :=200 ; Ht:=(ClientHeight + 512) div 256; for Row := 0 to 512 do begin &nbs...
To hide the caption bar you need to override on of the default form methods CreateParams (this also exists for other objects).The CreateParams method initializes a window-creation parameter record passed in the Params parameter (ref:Delphi Help).Go to the ...
Use this function to send an e-mail through your program. You must have the component TNMSMTP from FastNet tools. This component is included in Delphi 4-5 Professional and Enterpriseprocedure TForm1.Button1Click(Sender: TObject); begin NMSMTP1.Host ...
Use this function to open your browser with a given URL.uses shellapi; .... procedure TForm1.Label1Click(Sender:TObject); begin shellexecute(handle,'open','http://www.swissdelphicenter.ch', nil,nil,sw_show); ...
Use this code to verify if a soundcard is installed in your systemuses mmsystem; ... function Soundkarte:Boolean; begin Result := WaveOutGetNumDevs >0; end;
Change the resolution of your screen.Actually I've ever used this function for TV-based software development, because of TV-resolution.{ The function NewRes can have the following result: DISP_CHANGE_SUCCESSFUL The settings change was successful. DISP_CHAN...
Some English speaking countries use the "point" as decimal separator, while the rest of the world is using the "comma". How can you make sure that the user will press the correct key when entering a number with a decimal fraction? With the code in this exa...