Как проверить находится ли файл на локальном дискеDelphi , Файловая система , ДискиКак проверить находится ли файл на локальном дискеАвтор: http://www.swissdelphicenter.ch 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; Статья Как проверить находится ли файл на локальном диске раздела Файловая система Диски может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |