Форум: "Основная";
Текущий архив: 2007.02.18;
Скачать: [xml.tar.bz2];

Вниз

Почему FindFirst возвращает не ноль?   Найти похожие ветки 

← →
kroner   (2006-12-23 13:59) [0]

В папке Games текущего проекта лежит dll-файл, но FindFirst его не находит возвращает значение 2. Что это значит?

...
procedure TMainForm.FormCreate(Sender: TObject);
var PlugDir: String;
   Found, Attr: Integer;
   SearchRec: TSearchRec;
   PluginHandle: THandle;
   InitPlugin: TInitPlugin;
begin il:= TList.Create;
     ShowMessage("Test");
     PlugDir:= ExtractFilePath(Application.ExeName) + "Games\";
     Attr:= faAnyFile;
     Found:= FindFirst(PlugDir + "*.dll", Attr, SearchRec);
     while Found = 0 do begin
     try
         ShowMessage("OK");
  ...

BDS2006, Win2003 Sp1
В 7-й делфи такой же код вроде работал (

---

← →
kroner   (2006-12-23 14:02) [1]

а ну все разобрался

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2007.02.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.042 c