Папка или файл

[Alter]

Все проблемы из за того, что pagefile заблокирован системой. А с папкой Microsoft.NET нет никаких проблем, определяется как папка.

Function IsFolder(Path :String):Boolean;
begin
 Result := ((GetFileAttributes(PChar(Path)) and
   FILE_ATTRIBUTE_DIRECTORY)=FILE_ATTRIBUTE_DIRECTORY);
end;

 // понимает что pagefile это файл
function IsFolder2(Path: string): Boolean;
var
  SearchRec: TSearchRec;
  FindResult: Integer;
begin // тип
 FindResult := FindFirst(Path, faAnyFile, SearchRec);
  try
 with SearchRec do
 begin
   Result := (Attr and faDirectory) <> 0;
 end;
  finally
 FindClose(SearchRec);
  end;
end;

[Человек_Борща]

В D7 Cardinal.

Имхо в Д7 Cardinal - Integer.

Чушь. Всегда был LongWord.
Что в 7:

Что в XE6:

[саша40]

DirExists- это функция из Kernell32.dll. Она уже есть у Microsoft.

[Пепел Феникса]

Сообщение от саша40

DirExists- это функция из Kernell32.dll. Она уже есть у Microsoft.

не было такой функции и нет.
либо пруф в студию.

[doktor255]

procedure TForm1.FormCreate(Sender: TObject);
 var
 code: integer;
 begin
 code := GetFileAttributes('c:\Documents and Settings');
 if code in [16, 17, 22, 48] then
 ShowMessage('Каталог');
 end;

[northener]

Чушь. Всегда был LongWord.

Ты собственно об чём? Нафига ты показал скрины с объявлением типа DWORD?
Я то говорил о Cardinal.