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

Материал из DRKB

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

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;


Source: Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php
ID: 03168