Here's how to get the types of drives on your computer: / / Note: you will need one button and / / one memo on your form, for this tip... procedure TForm1.Button1Click(Sender: TObject) ; var Drive: Char; DriveLetter: String[4]; begin &nbs...
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...
Shows how to identify the type of the drive you are acessing.
Flashing a window means changing the appearance of its caption bar as if the window were changing from inactive to active status,or vice versa.Typically,a window is flashed to inform the user that the window requires attention but that it does not currentl...
Here's how to use a TTF (true type font) in your Delphi application without having to install it in Windows:1.In the OnCreate event for the main form in your Delphi application call the AddFontResource API function.The AddFontResource function adds the fon...
Here's how to enable or disable the "Show window contents while dragging" Windows fature from Delphi code: .
If you want to save the text data contained in the Clipboard to a text file on a disk, use the next code:{Usage:ClipboardTxtToFile(c:dircliptext.txt)}uses Clipbrd;function ClipboardTxtToFile (sFileTXT : string) : boolean;va...
The following code is used to insert a character into another application - Notepad.Sending a Character to Another Application (Notepad):Understanding the Code: This code snippet utilizes Windows API functions to send a character ('A') to the Notepad appli...
Here's how to restrict the mouse movement to a form and release this restriction after a click on a form: .Restricting Mouse Movement in a Form (Delphi)This code snippet demonstrates how to restrict the mouse cursor to a specific form in Delphi.Here's a br...
The following procedure will list all the devices on your computer.You can then extract the com ports and printer ports by looking for the 'COM' and 'LPT' characters in the list.Add a Memo and a Button and place this code in the OnClick of a button….
Given a font's name (such as Arial,Verdana, Times New Roman, etc), function returns a boolean value indicating whether the font is or isn't a True Type font.function IsTrueTypeFont(FontName : string):boolean;const PITCH_MASK: byte = $0F;var TxM...
Suppose you have a data-critical type of application where you would not want a non-authored user to work with the data.Such an application could automatically log out the current user if no user activity has taken place in a lengthy time.To track a user's...
If you need to hide your application from the Windows TaskBar,you can use the following trick:
Here's an example of how to play simple sounds on the PC speaker.
If you need to install an "inf" file using Delphi,you could use the next code:
When you write a console mode application (no GUI), the output by default goes to the screen, but this can be overridden by the process starting the app (see: How to capture the output from a console mode application).Use the code below to find where the o...
This form has 3 labels and a timer component: .
If you need to find the dimensions of user's screen in pixels, after subtracting any space occupied by the task bar and any tool bars that sit on the desktop, use the WorkAreaHeight adnd WorkAreaWidth properties of the TScreen object. The following code de...
Put a TMemo (Memo1) and a TButton (Button1) in your form.Put this code into OnClick of Button1: .
"If I use the Windows Explorer to copy a file,how can I use the paste function in my application?" .This code retrieves the filenames from the clipboard to a memo component.Drop a memo and a button on a form and set the OnClick of a button to: .
Here's how to get the Windows version from Delphi code: .
thePath holds the Windows Temp directory: .
If you wish to disable those key combinations while your application is running call SystemKeys.When you call SystemKeys,if Disable is True,the keys will be disabled,False otherwise.Note: the code does NOT work under Win NT systems (XP,2000).
Here's the code that will display the standard Windows Properties dialog for a specified file (object) name.Usage:Here's the function source.
The BlockInput API function blocks keyboard and mouse input events from reaching applications.Place a Button (name: "Button1") on a form (name: "Form1") and use this code for the button's OnClick event handler.Once you click the button your mouse and keybo...
When Windows is about to shut down,it sends a WM_QueryEndSession to all open applications.To detect (and prevent shutdown) ,we must define a message handler to this message.Put this definition on the private section of the main form:Also,to prevent Windows...
The following example demonstrates using the SHFileOperation function to copy a group of files and display a progress dialog.You can also use the following flags to delete,move and rename a group of files:FO_COPY,FO_DELETE,FO_MOVE,FO_RENAME.Note: The buffe...
Here's an example of controling the sound volume from Delphi: .
To programmatically close another application, send to the application a WM_QUIT message. "Window caption" is the caption of the window that you are sending the message to. Usage: if not KillApp('Window caption') then ShowMessage('App not closed') ;Here's ...
Here's how to chane the bitmap on the Windows Start button:{We'll need several global variables}var Form1: TForm1; StartButton : hWnd; OldBitmap : THandle; NewImage : TPicture;...{Now, we put this code in...