Текущий архив: 2007.02.18;
Скачать: CL | DM;
Вниз
Почему 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;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.031 c
