Как проверить находится ли файл на локальном диске

Советы » Диски » Как проверить находится ли файл на локальном диске

function

IsOnLocalDrive(aFileName: string

): Boolean; var

aDrive: string

; begin

aDrive := ExtractFileDrive(aFileName); if

(GetDriveType(PChar(aDrive)) = DRIVE_REMOVABLE) or

(GetDriveType(PChar(aDrive)) = DRIVE_FIXED) then

Result := True else

Result := False; end

; // Example, Beispiel: procedure

TForm1.Button1Click(Sender: TObject); begin

if

OpenDialog1.Execute then

if

IsOnLocalDrive(OpenDialog1.FileName) then

ShowMessage(OpenDialog1.FileName + ' is on a local drive.'); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com