Delphi HTML Javascript chkdsk File I/O Status Check Print ShellExecute SMTP CreateFile GetDriveType SW_SHOW TPicture SendMail SW_HIDE TPrintDialog kbdevent Turn Off Monitor TOSVERSIONINFO Print Dialog GetVolumeInformation Is Audio CD Delphi Folder Navigation Dialog ShowWindow Transparent Text Out Certificate GetWindowsDirectory GetSystemDefaultLangID 켜져있는시간 available memory space GetVersionEx available memory size GetWinDir GetWindowsDir BrowseInfo GetWindowsVersion Gradient Filled Form Hard Disk Volume Lable Hard Disk Volume Name HDD Volume Lable HDD Volume Name Hide Caption Bar AssignFile Animated Icon DateTimeToSystemTime Desktop Wallpaper DISP_CHANGE_FAILED DISP_CHANGE_NOTUPDATED DISP_CHANGE_SUCCESSFUL EnumDisplaySettings File Association File Delete with UNDO Decimal Separator GetSysDir Comma Separator Comma Close Application ChangeDisplaySettings free memory space GD GENERIC_READ

TPICTURE.ZIP

How To Turn On/Off Monitor with Delphi   (updated at Mar 09, 2024)   104  

In case that you need to shutdown the monitor to conserver power during program execution, you can simple turn your monitor off by calling below function. If you need to turn your monitor on, you can do it by calling below function. Final tip to ...

How to send char as message to another application   (created at Sep 25, 2007)   27  

The following code is used to insert a character into another application - Notepad.procedure TForm1.Button1Click(Sender: TObject) ;var g,d:integer;begin  {Find the main window of the Application}  g:=FindWindow('Notepad',nil) ;  {Find the w...

How to Change the Windows Start button bitmap   (created at Sep 18, 2007)   26  

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

Does my CD-ROM drive contain an audio CD?   (created at Sep 10, 2007)   26  

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

Convert a mapped drive to a full UNC path   (created at Sep 10, 2007)   64  

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

Checking If File Is In Use   (created at Sep 10, 2007)   42  

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

Browse for Computers, Folders, Files and Printers   (created at Sep 10, 2007)   39  

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

How to draw Transparent Text on bitmap   (created at Sep 01, 2007)   40  

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

Keyboard event detection (Key Tracker)   (created at Aug 26, 2007)   62  

Track your key Press Simple javascript key tracker