Главная страница
    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-78349
MikeFW
2002-10-14 17:53
2002.10.24
Архивация файлов


14-78591
AFrolov
2002-09-23 11:36
2002.10.24
про накопленную вычислительную погрешность.


1-78512
FREEMAX
2002-10-14 01:49
2002.10.24
Очень нада, помогите


6-78573
ППавел
2002-08-23 12:10
2002.10.24
Поговорим о почте....


4-78743
Tihas
2002-09-07 17:48
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский