Исключение неизвестное программное исключение...

[Stilet]

ExtractFileDir(ParamStr(0))+'\userc onfig.cfg'
действительно дает путь к существующему файлу?
Кстати а зачем файл закреплять как только читаемый, если ты все равно в него пишешь каждый раз?

[Аватар]

Я бы поставил точку останова на

for i:= 0 to SL.Count-1 do

и убедился, что userconfig.cfg удален. Скорее всего нет, да и атрибут только для чтения не сброшен

[eoln]

Сообщение от Host-2013

еще раз ВНИМАТЕЛЬНО перечитай код... все сбрасывается в самом начале

И что я там должен увидеть?

GoCMD('attrib -r "%~dp0userconfig.cfg"');
...
GoCMD('del "%~dp0userconfig.cfg"');

Это? Ещё не известно что там находится.

Замени это на

NewGoCMD('attrib -r "%~dp0userconfig.cfg"');
...
NewGoCMD('del "%~dp0userconfig.cfg"');

Это точно сработает

[Host-2013]

Сообщение от Stilet

ExtractFileDir(ParamStr(0))+'\userc onfig.cfg'
действительно дает путь к существующему файлу?
Кстати а зачем файл закреплять как только читаемый, если ты все равно в него пишешь каждый раз?

да дает, попробуй просто writeln вывести
а чтобы всякие нехорошие админы не прописывали в конфиг всякую чепуху вроде рекламы или bind mouse1 kill :D в кс играл?

Сообщение от Аватар

Я бы поставил точку останова на

for i:= 0 to SL.Count-1 do

и убедился, что userconfig.cfg удален. Скорее всего нет, да и атрибут только для чтения не сброшен

как делать трасировку до точки? не умею трасировку в делфи делать хоть убей не понятно там ничего

Сообщение от eoln

И что я там должен увидеть?

GoCMD('attrib -r "%~dp0userconfig.cfg"');
...
GoCMD('del "%~dp0userconfig.cfg"');

Это? Ещё не известно что там находится.

Замени это на

NewGoCMD('attrib -r "%~dp0userconfig.cfg"');
...
NewGoCMD('del "%~dp0userconfig.cfg"');

Это точно сработает

попробуй почитать внимательно тему... выше давал код процедуры...

[Аватар]

как делать трасировку до точки? не умею трасировку в делфи делать хоть убей не понятно там ничего

В данном случае и понимать ничего не надо. Ставим точку останова на следующей команде после удаления файла. Запускаем из-под дельфи. Остановилось и смотрим любым способом (проводник, total commander или любым другим) удалился ли файл

[Host-2013]

Сообщение от Аватар

В данном случае и понимать ничего не надо. Ставим точку останова на следующей команде после удаления файла. Запускаем из-под дельфи. Остановилось и смотрим любым способом (проводник, total commander или любым другим) удалился ли файл

значит так:
1. атрибуты снимаются это 100%
2. но файл по всей видимости не удаляется хотя путь указан тем же способом, что и при снятии атрибутов
3. текст в файле не заменяется
4. и вообще курсор в дебаггере (когда выдает ошибку) стоит на строке присвоения атрибутов как ни странно... тупо говорит не хватает прав не представляю что это может значить...

[Stilet]

попробуй просто writeln вывести

Это мне? Это я должен попробовать? Стесняюсь спросить, каким образом?

а чтобы всякие нехорошие админы не прописывали в конфиг всякую чепуху вроде рекламы или bind mouse1 kill

Так может просто лучше не допускать их к этому файлу? Сейчас пока что ты в роли такого админа выступаешь.

атрибуты снимаются это 100%

Хватит издеваться над атрибутами. Между прочим твоя GoCMD, которая похоже завязана на терминал винды весьма неудачный выбор.
Для работы с атрибутами надежнее будет использовать SetFileAttributes() а для удаления DeleteFile(). Прекращай с командником баловаться.

[Host-2013]

Сообщение от Stilet

Это мне? Это я должен попробовать? Стесняюсь спросить, каким образом?

Так может просто лучше не допускать их к этому файлу? Сейчас пока что ты в роли такого админа выступаешь.

Хватит издеваться над атрибутами. Между прочим твоя GoCMD, которая похоже завязана на терминал винды весьма неудачный выбор.
Для работы с атрибутами надежнее будет использовать SetFileAttributes() а для удаления DeleteFile(). Прекращай с командником баловаться.

ну я то пробовал... а что так сложно создать проект с этим кодом и в этой же папке создать хоть пустой файл cfg?

когда заходишь на сервер они могут прописывать в твоем клиенте ну что их душе угодно, от плохих команд (amx_destroyer) до закачки в клиент вирусов и запуска их (точно знаю что реально, потому что со мной лично такое уже было)

ну может и надежнее... я просто cmd в этом отношении знаю немного лучше паскаля, и чем вам не угодила моя процедура?

п.с. кстати попробовал ваши процедуры, подскажите SetFileAttributes меняет атрибут на другой, а как вообще убрать то?

[Stilet]

а что так сложно создать проект с этим кодом и в этой же папке создать хоть пустой файл cfg?

А вот прикинь - да. Удивлен? Давай я тебе кину пару строчек своего проекта какого нибудь с упреком "Ану, слабаче, воссоздай его в полной мере". Пу-у-упок развяжется.

потому что со мной лично такое уже было

Тогда с чего ты взял что такое будет?

когда заходишь на сервер

Серверов что ли мало в сети?

и чем вам не угодила моя процедура?

Тем что ее нет. Это во-первых.

как вообще убрать то?

Если не ошибаюсь то булевым отрицанием.
Например:

(... not FILE_ATTRIBUTE_HIDDEN or FILE_ATTRIBUTE_NORMAL

Должно снять скрытый атрибут.

P.S. Ерундой, батенька, страдаешь. Защищаться нужно не так.

[Host-2013]

Сообщение от Stilet

А вот прикинь - да. Удивлен? Давай я тебе кину пару строчек своего проекта какого нибудь с упреком "Ану, слабаче, воссоздай его в полной мере". Пу-у-упок развяжется.

одно дело большой проект, другое крохотная консольная софтина... и потом я не понимаю как вы отвечаете на вопросы даже не загружая делфи... (ну какие то может и можно, но чуть посложнее и уже без делфи под рукой не обойтись...)

Сообщение от Stilet

Тогда с чего ты взял что такое будет?

с того что такое было...

Сообщение от Stilet

Серверов что ли мало в сети?

да, мало... а по скольку я заядлый читер, кс мне пытаются сломать на каждом 10м :D

Сообщение от Stilet

Тем что ее нет. Это во-первых.

если еще раз внимательно прочитать тему вы ее увидите... вы тут все страдаете невнимательностью?

Сообщение от Stilet

Если не ошибаюсь то булевым отрицанием.
Например:

(... not FILE_ATTRIBUTE_HIDDEN or FILE_ATTRIBUTE_NORMAL

Должно снять скрытый атрибут.

constant expression violates subrange bounds

Сообщение от Stilet

P.S. Ерундой, батенька, страдаешь. Защищаться нужно не так.

сразу видно человека не имеющего дела с кс, давай я не буду учить тебя программировать, а ты меня защищать кс от поломок? зайди на любой читерский сайт - первейший способ от злых админов - все папку cstrike сделать "для чтения"