VPF::Куда кидать скрытый файл - Форум программистов

Ari

Дата 22.3.2007, 19:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 22.3.2007

Репутация: нет
Всего: нет

Здравствуйте.

Вот такой вопрос. У меня маленькая защита от списывания заключается в том, что при инсталяции проги в определённое место кидается файл и без него прога просто не работает.
А если при установке или пользовании проги нет прав доступа к этому месту? Куда можно распаковывать такие скрытые файлы чтобы наверняка на всех компьютерах были и был доступ к ним?

Заранее спасибо.
Что фиговая защита знаю, просто нужна хоть какая-то лёгенькая, но универсальная smile

_hunter

Дата 22.3.2007, 20:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

такие вещи проще в реестр писать...

--------------------

Tempora mutantur, et nos mutamur in illis...

Snowy

Дата 22.3.2007, 21:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

%APPDATA%

Guedda

Дата 23.3.2007, 08:41 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

%WINDIR%
%WINDIR%\system

Это сообщение отредактировал(а) Guedda - 23.3.2007, 15:14

--------------------

Ll 2

Snowy

Дата 23.3.2007, 11:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Guedda, что ещё за WINDATA?

Guedda

Дата 23.3.2007, 15:13 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Цитата(Snowy @ 23.3.2007, 11:36

)

Guedda, что ещё за WINDATA?

Извини, запарился. Исправил сообщение.

--------------------

Ll 2

Snowy

Дата 23.3.2007, 15:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Guedda,
1. что ещё за %WINDIR%\system ? Вероятно %SYSDIR% ?
2. перед тем, как отвечать, прочитай вопрос.

Yanis

Дата 23.3.2007, 16:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(Snowy @ 23.3.2007, 16:29

)

Вероятно %SYSDIR% ?

Что ещё за SYSDIR?
Скорее всего %SYSTEMROOT% и %WINDIR%

--------------------

*щёлк*

Snowy

Дата 23.3.2007, 17:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Савсэм старый стал...
Эт по аналогии с GetWindowsDirectory и GetSystemDirectory smile

В любом случае этот вариант неверный.
Вот:

Код


uses ShlObj;

function GetAppDir: string;
var s:  string;
begin
  SetLength(s, MAX_PATH);
  if not SHGetSpecialFolderPath(0, PChar(s), CSIDL_APPDATA, true)
  then GetWindowsDirectory(PChar(s), MAX_PATH);
  result := PChar(s);
end;

Ari

Дата 23.3.2007, 18:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 22.3.2007

Репутация: нет
Всего: нет

А доступ к этому при всех возможных ограничениях прав доступа будет?

Snowy

Дата 23.3.2007, 18:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Если ты работаешь под NT, то вернёт папку AppData.
К ней доступ есть всегда.
Если под 9x, то вернёт паку Windows.
Но в 9х нет ограничений ;-)

Alexeis

Дата 23.3.2007, 18:26 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

К %APPDATA% будет, а вот к папке windows и System32 не факт что будет, ведь там все важные системные файлы, под учетной записью гостя точно не будет, если файловая система NTFS.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »