Главная страница
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.016 c
8-78544
Alexfdfdfd
2002-06-26 01:17
2002.10.24
Короче задача, нужно взять файл типа *.bmp


1-78519
Cosinus
2002-10-11 18:15
2002.10.24
Предопределенные константы


4-78716
denisz
2002-09-11 22:00
2002.10.24
Список файлов


14-78667
Nik8.
2002-10-05 09:10
2002.10.24
Nik8.Nik8.Nik8.Nik8.Nik8.Nik8.Nik8.Nik8.Nik8.Nik8.Nik8.Nik8.Nik8.


1-78482
kofman
2002-10-12 14:11
2002.10.24
Как посчитать контрольную сумму моей программы?