Запрос на наличие определенного файла

[Nor61k]

всем привет!я новичок как сделать чтобы при включении программа проверяла наличие файла например на флешке если есть,то запускалась если нет то выдавала ошибку

[raxp]

...попробовать его открыть.

[XE5]

Nor61k
function FileExists(const FileName: string): Boolean;
raxp
Если есть желание обрабатывать исключения.

[raxp]

...тогда уж GetFileAttributes(), ибо FileExists() обертка над ним, и что даст гораздо больше информации.

[XE5]

raxp А может это обёртка FindFirstFile?

и что даст гораздо больше информации

Топик прочтите. Запрос на наличие определённого файла, а не информации.

[northener]

Сообщение от XE5

raxp А может это обёртка FindFirstFile?

Ты на нетбуке сидишь чтоль что видишь в исходниках Дельфи только первый десяток строчек в реализации функций? А читать исходники лень?

Топик прочтите. Запрос на наличие определённого файла, а не информации.

No comments.

[Nor61k]

спасибо получилось!но как сделать чтоб он искал файл на флешке например, а не в папке с программой?

[Stilet]

.тогда уж GetFileAttributes(), ибо FileExists() обертка над ним

Если нужно под Линукс то лучше обертку использовать. Надежнее.

чтоб он искал файл на флешке например

Для этого нужно получить список дисков и выбрать из них флешку:
http://delphiworld.narod.ru/base/get_pc_disks.html

[XE5]

Сообщение от Nor61k

спасибо получилось!но как сделать чтоб он искал файл на флешке например, а не в папке с программой?

Использовать полные пути, а не относительные.

Сообщение от northener

Ты на нетбуке сидишь чтоль что видишь в исходниках Дельфи только первый десяток строчек в реализации функций

function FileExists(const FileName: string): Boolean;
begin
  Result := FileAge(FileName) <> -1;
end;

function FileAge(const FileName: string): Integer;
var
  Handle: THandle;
  FindData: TWin32FindData;
  LocalFileTime: TFileTime;
begin
  Handle := FindFirstFile(PChar(FileName), FindData);
  if Handle <> INVALID_HANDLE_VALUE then
  begin
    Windows.FindClose(Handle);
    if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
    begin
      FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);
      if FileTimeToDosDateTime(LocalFileTime, LongRec(Result).Hi,
        LongRec(Result).Lo) then Exit;
    end;
  end;
  Result := -1;
end;

Будь любезен, ткни пальцем во второй десяток строк кода функции, на которую ссылается обёртка.

Сообщение от northener

А читать исходники лень?

Если бы мне было лень читать, я бы имел на данном форуме не три темы, в которых я сам же и нашёл ответы, а пару десятков, как это бывает у некоторых. Подключи логику и впредь не задавай глупых вопросов. Каков вопрос, таков ответ.

[northener]

Будь любезен, ткни пальцем во второй десяток строк кода функции, на которую ссылается обёртка.

Ясно. На Д7 до сих пор сидишь?
Код из Д2005+

function FileExists(const FileName: string): Boolean;
{$IFDEF MSWINDOWS}
  function ExistsLockedOrShared(const Filename: string): Boolean;
  var
    FindData: TWin32FindData;
    LHandle: THandle;
  begin
    { Either the file is locked/share_exclusive or we got an access denied }
    LHandle := FindFirstFile(PChar(Filename), FindData);
    if LHandle <> INVALID_HANDLE_VALUE then
    begin
      Windows.FindClose(LHandle);
      Result := FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY = 0;
    end
    else
      Result := False;
  end;

var
  Code: Integer;
  LastError: Cardinal;
begin
  Code := GetFileAttributes(PChar(FileName));
  if Code <> -1 then
    Result := (FILE_ATTRIBUTE_DIRECTORY and Code = 0)
  else
  begin
    LastError := GetLastError;
    Result := (LastError <> ERROR_FILE_NOT_FOUND) and
      (LastError <> ERROR_PATH_NOT_FOUND) and
      (LastError <> ERROR_INVALID_NAME) and ExistsLockedOrShared(Filename);
  end;
end;
{$ENDIF}