Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.24;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.009 c
1-78495
Invisible
2002-10-13 17:38
2002.10.24
Перезагрузка


3-78302
Werewolfru
2002-10-03 15:40
2002.10.24
Чистка базы с сохранением структуры таблиц?


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


4-78724
lds78
2002-08-05 08:51
2002.10.24
PopUp menu


1-78380
andrey_pst
2002-10-15 08:05
2002.10.24
Выбор каталога и сетевое окружение





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский