На мой взгляд, много ненужных манипуляций с функцией Copy, но не в том дело...
Вот что это:
Цитата:
Код:
if Pos(GetUserFromWindows, FILEPATH) < 0 then
|
Зачем вы ищете имя юзера в строке, содержащей имя файла??
P.S. Да и к тому же имейте в виду, что функция Pos никогда не возвращает отрицательного значения.
Цитата:
|
Сообщение от Delphi Help
If Substr is not found, Pos returns zero.
|