Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.24;
Скачать: CL | DM;

Вниз

Найти решение   Найти похожие ветки 

 
ruslan_as ©   (2002-10-15 09:46) [0]

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


 
Smithson ©   (2002-10-15 09:52) [1]

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


 
BOA_KAA ©   (2002-10-15 09:54) [2]

Можно попробовать SetFileAttributes, ну, и, соответственно, FILE_ATTRIBUTE_HIDDEN или FILE_ATTRIBUTE_SYSTEM. Поправьте, если неправ...


 
Dr_Mike ©   (2002-10-15 10:02) [3]

Шифрование (даже самое простое) - тоже лекарство :))


 
ruslan_as ©   (2002-10-15 10:24) [4]

>BOA_KAA Боюсь там такие "грамотеи", что скрытые фалы читать умеют и через блокнот высмотрят, какие там пароли.

>>Smithson хорошая идея. Подскажите где подробнее можно прочитать об изменении реестра, ну а если какой нибудь пример подбросите век помнить буду...


 
Smithson ©   (2002-10-15 10:28) [5]

Кусок, вживую выдранный из программы определения конфигурации ПЭВМ.
Тут реестр читается, а не пишется, но идея та же

[code]
Procedure TCompInfo.CheckVideo;
const BeginKey = "\REGISTRY\MACHINE";
var Key, Desc: String;
R: TRegistry;
I: Integer;
Begin
FVideoMemory := -1;

R := TRegistry.Create;
R.RootKey := HKEY_LOCAL_MACHINE;
R.OpenKey("HARDWARE\DEVICEMAP\VIDEO",false);
Key := R.ReadString("\Device\Video0");
I := Pos(BeginKey,UpperCase(Key));
if I < 0 then begin
FVideo := "Unknown";
R.CloseKey;
R.Destroy;
exit;
end;

System.Delete(Key,1,i+Length(BeginKey)-1);

I := 0;
if R.OpenKey(Key, false) then begin
Desc := R.ReadString("Device Description");
R.ReadBinaryData("HardwareInformation.MemorySize",i,SizeOf(I));
if I > 0 then
FVideoMemory := I;
end
else
Desc := "Unknown";

R.CloseKey;
R.Destroy;

if Desc = "" then Desc := "Unknown";
FVideo := Desc;
End;
(*************************************************************************)
[/code]


 
Valt   (2002-10-15 10:34) [6]

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

Это только под NT, по-моему лучше на самом использовать элементарное шифрование, это и времени меньше займет.



Страницы: 1 вся ветка

Текущий архив: 2002.10.24;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.02 c
6-78549
. : Andrey : .
2002-07-01 18:43
2002.10.24
Используемые ресурсы


3-78272
lutikh
2002-10-02 22:23
2002.10.24
Много таблиц (.dbf). Выбрать одну позицию.


3-78237
Dimedrol
2002-10-01 16:18
2002.10.24
Караул! Помогите с UDF!


6-78582
softal
2002-08-20 08:46
2002.10.24
Обновление через Inet


6-78558
star
2002-08-20 23:31
2002.10.24
Знатоки RAS, откликнитесь!