For the specified file, we get the path to the application associated with it.
|
1 2 3 4 5 6 7 8 9 10 11 |
Uses Winapi.ShellAPI; ... var filePath, assocExePath: WideString; begin filePath:= 'C:\Windows\Fonts\tahoma.ttf'; assocExePath:= ShellFindExecutable(filePath); ShowMessage(assocExePath); end; |
By the letter of the disk (volume), we determine the number of the disk in the system.
|
1 2 3 4 5 6 7 8 |
var volLetter: Char; driveIndex: Integer; begin volLetter:= 'C'; driveIndex:= getDeviceNumberByLetter(volLetter); ShowMessage(IntToStr(driveIndex)); end; |
We delete the file to the recycle bin without confirmation or any dialog boxes.
|
1 2 3 4 5 6 7 8 9 10 |
Uses Winapi.ShellAPI; ... var filePath: WideString; begin filePath:= 'C:\My_file.txt'; delFileToRecycle(filePath); end; |
You can get a list of both your resources and any computer on the network. Including admin resources C$, D$ ...
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
var lst: TStringlist; servName: string; showAdminRes: Boolean; begin lst:= TStringlist.Create; servName:= 'localhost'; showAdminRes:= True; enumServerShares(servName, showAdminRes, lst); ShowMessage(lst.Text); FreeAndNil(lst); end; |
The function checks if certain keys are pressed. From one to a combination of three. Virtual keycodes are used as parameters. [Virtual keycodes]
|
1 2 3 4 5 6 7 |
begin if getKeyStatebyCode(65) = True then ShowMessage('"A" key pressed') else ShowMessage('Key "A" not pressed'); if getKeyStatebyCode(VK_CONTROL, VK_SHIFT, 65) = True then ShowMessage('Ctrl + Shift + A pressed') else ShowMessage('Ctrl + Shift + A not pressed'); end; |
By the file extension, we get the icon associated with file type and place it in Timage.
|
1 2 3 4 5 6 7 8 9 10 11 12 |
Uses Winapi.ShellAPI; ... var fileExt : string; icoSize: Integer; begin fileExt:= '.html'; icoSize:= SHGFI_SMALLICON; Img1.Picture.Icon.Handle:= getIconByExtension(fileExt, icoSize); end; |
Extract the icon from the file and place it in Timage. The icon can be obtained both from the exe file and associated with the file type.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Uses Winapi.ShellAPI; ... var filePath : WideString; icoSize: Integer; begin filePath:= 'C:\Windows\regedit.exe'; icoSize:= SHGFI_SMALLICON; Img1.Picture.Icon.Handle:= getShellFileIcon(filePath, icoSize); filePath:= 'C:\Windows\System32\termsrv.dll'; icoSize:= SHGFI_LARGEICON; Img2.Picture.Icon.Handle:= getShellFileIcon(filePath, icoSize); end; |
Before creating a file, check its name for invalid characters.
|
1 2 3 4 5 6 7 |
var fileName: string; begin fileName:= 'newFile*Name'; if validateFileName(fileName) = true then ShowMessage('The file name is valid') else ShowMessage('There are invalid characters in the file name'); end; |
We get the date and time of the last file modification.
|
1 2 3 4 5 6 7 8 |
var filePath: WideString; modDate: string; begin filePath:= 'C:\Windows\explorer.exe'; modDate:= getFileModificateDate(filePath); ShowMessage(modDate); end; |
Determine the file's read and write accessibility.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
var filePath: WideString; const fmOpenRead = $0000; fmOpenWrite = $0001; begin filePath:= 'C:\Windows\explorer.exe'; if isFileFree(filePath, fmOpenRead) = true then ShowMessage('The file is readable') else ShowMessage('The file is not readable'); if isFileFree(filePath, fmOpenWrite) = true then ShowMessage('File is writable') else ShowMessage('The file is not writable'); end; |
