Delphi HTML Javascript chkdsk File I/O Status Check Print ShellExecute SMTP CreateFile SW_SHOW SW_HIDE TPicture SendMail GetDriveType kbdevent ShowWindow Transparent Text Out TPrintDialog Is Audio CD Print Dialog GetVolumeInformation Delphi Folder Navigation Dialog TOSVERSIONINFO Removable Disk Detection GetWindowsDirectory available memory AssignFile GetSystemDir GetSystemDirectory GetVersionEx Animated Application Icon GetWinDir GetWindowsDir GENERIC_READ GetWindowsVersion Gradient Filled Form Hard Disk Volume Lable Hard Disk Volume Name HDD Volume Lable HDD Volume Name Hide Caption Bar aliases Comma Desktop Wallpaper DISP_CHANGE_FAILED DISP_CHANGE_NOTUPDATED DISP_CHANGE_SUCCESSFUL Drive Type EnumDisplaySettings External Hard Disk 켜져있는시간 CreateEllipticRgn GENERIC_WRITE ChangeDisplaySettings CD ROM Drive Detection BrowseInfo Focus free memory available memory space free memory space

ASSIGNFILE.ZIP

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

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