Главная страница
    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.56 MB
Время: 0.035 c
1-78372
Rule
2002-10-14 22:37
2002.10.24
Помогите изменить цвет закладок в Tab Controlе, цвет формы,


4-78735
lds78
2002-07-18 10:08
2002.10.24
PopupMenu


1-78513
GIL
2002-10-14 03:22
2002.10.24
Как перевести текстовые координаты в графические


1-78368
Help Needer
2002-10-10 09:47
2002.10.24
TOO LONG CODE


6-78562
VID
2002-08-23 08:43
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский