По указанному файлу, получаем путь к ассоциированному с ним приложению.
|
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; |
По букве диска (тома), определяем номер диска в системе.
|
1 2 3 4 5 6 7 8 |
var volLetter: Char; driveIndex: Integer; begin volLetter:= 'C'; driveIndex:= getDeviceNumberByLetter(volLetter); ShowMessage(IntToStr(driveIndex)); end; |
Удаляем файл в корзину без подтверждения и появления любых диалоговых окон.
|
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; |
Можно получить список как своих ресурсов, так и любого компьютера в сети. В том числе админ ресурсов С$, 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; |
Функция проверяет нажаты ли определенные клавиши. От одной, до сочетания из трех. В качестве параметров используются виртуальные коды клавиш. [Виртуальные коды клавиш]
|
1 2 3 4 5 6 7 |
begin if getKeyStatebyCode(65) = True then ShowMessage('Клавиша "A" нажата') else ShowMessage('Клавиша "A" не нажата'); if getKeyStatebyCode(VK_CONTROL, VK_SHIFT, 65) = True then ShowMessage('Клавишы Ctrl+Shift+A нажаты') else ShowMessage('Клавиша Ctrl+Shift+A не нажаты'); end; |
По расширению файла получаем иконку ассоциированную с данным типом файла и помещаем ее в 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; |
Извлекаем иконку из файла и помещаем ее в Timage. Иконку можно получить как из exe файла, так и ассоциированную с типом файла.
|
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; |
Перед созданием файла, проверяем его имя на наличие недопустимых символов.
|
1 2 3 4 5 6 7 |
var fileName: string; begin fileName:= 'newFile*Name'; if validateFileName(fileName) = true then ShowMessage('Имя файла допустимо') else ShowMessage('В имени файла есть недопустимные символы'); end; |
Получаем дату и время последнего изменения файла.
|
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; |
Определяем доступность файла на чтение и запись.
|
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('Файл доступен для чтения') else ShowMessage('Файл не доступен для чтения'); if isFileFree(filePath, fmOpenWrite) = true then ShowMessage('Файл доступен для записи') else ShowMessage('Файл не доступен для записи'); end; |
