Почему FindFirst возвращает не ноль?
kroner © (2006-12-23 13:59:00)
В папке 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:00) [1]
а ну все разобрался
Наверх 
ЧАТ |
Орешник |
|
