Права доступа к файлу

[ArtGrek]

{$IFDEF _DEV_}

procedure ShowError(erno: DWord);
var
  MsgBuf: array[0..$FF - 1] of Char;
begin
  if erno = ERROR_SUCCESS then
    exit;
  //
  FillChar(MsgBuf, $FF, 0);
  FormatMessage(
    FORMAT_MESSAGE_FROM_SYSTEM,
    nil,
    erno,
    ((WORD(SUBLANG_DEFAULT) shl 10) or WORD(LANG_NEUTRAL)),
    MsgBuf,
    $FF,
    nil);
  // Display the string.
  MessageBox(0, MsgBuf, 'GetLastError', MB_OK + MB_ICONINFORMATION + MB_TASKMODAL
    + MB_SERVICE_NOTIFICATION);
end;
{$ENDIF}

procedure TwDog.InitiateShutdown;
begin
  InitiateSystemShutdown(nil, // shut down local computer
    'Cheater detected on this system. Shutdown initiated.', // message to user
    10, // time-out period
    FALSE, // ask user to close apps
    TRUE); // reboot after shutdown
  // bQuite:=False;
end;

[$T@LKER]

Та это ужас какойто))! Я его год разберуть буду и искать возможность задать все права фалу нужному мне)))!! Может кто-то работал с этим и знает как это зделать???)) Или может способ по оп проще есть?

[ArtGrek]

а ты не спрашиваи вводи в гугл и сам выбераи какои тебе нравица

[$T@LKER]

окей))! надеюсь там че найду))!

А какая гарантия что это поможет??)) Или такое уже было и это помогло?

[ArtGrek]

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

[$T@LKER]

в том то и дело что нету возможности проверить))! ну может че то придумаю))!

но вот что интересно - пограмма качает с интернета регулярно 4 разных файла в екселе!!! но почему эта ошибка тока на одном из них появляется!! файлы качаются из сервера сайта что на юкозе. в чем загводка то??? разве если бы нехватало прав на файл то ошибка была бы на всех а не наодном?? как думаете??

[ArtGrek]

ты б еше завтра об етом сказал, и вообше уже давно фаилы выложил

[$T@LKER]

та разве я такого не говорил))!?

Какие файлы выложить???

[ArtGrek]

4 разных файла в екселе

..........

[$T@LKER]

Вот по ссылках этих можно скачать файлы.

То есть эти файлы день по несколько раз набирают информацию и по несколько раз естественно загружаются на сервера. После чего вот приблизительно по таким ссылкам прога как я говорил их скачивает и начинает обрабатывать!

http://baza-lider.at.ua/test/arenda.xls
http://baza-lider.at.ua/test/s_arenda.xls
http://baza-lider.at.ua/test/prodag.xls
http://baza-lider.at.ua/test/s_prodag.xls