|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Помогите с проектом!
Всем привет.
есть одна идея, помогите реализовать. Начну с сути: есть пару штук ярлыков (lnk, pif). Необходимо перед их запуском потребовать ввода пароля. Все настройки хранятся в .ini файле, а именно: пароль и запускаемый ярлык. Если введенный пароль совпал - открой тот ярлык который прописан в ini. =) Для открытия ярлыка думаю можно использовать ShellExecute. Но как все связать с ini... |
#2
|
||||
|
||||
А толку? Что помешает пользователю запустить программу из "Пуск>Все программы..." или прямо с корневой папки программ?
Хотя если очень надо то вроде так: Код:
var Form1: TForm1; AppIni: TIniFile; pass, programm:String; implementation {$R *.dfm} procedure TForm1.FormShow(Sender: TObject); begin AppIni := TIniFile.Create('conf.ini'); pass:=AppIni.ReadString('Pass','pass1',''); programm:=AppIni.ReadString('Prog','prog1',''); end; procedure TForm1.Button1Click(Sender: TObject); begin If pass=Edit1.Text then shellexecute(programm,...................); end; end. Последний раз редактировалось deltas, 25.11.2010 в 20:58. |
#3
|
|||
|
|||
Помешает то что рабочий стол ограничен: пуска нету, запуска командной строки тоже, настроек и всего остального.
Есть только голый рабочий стол. Жестокие спартанские условия =-)) Спасибо буду пробывать. Вопрос: как сделать скрытый ввод пароля, т.е. когда ввожу цифоровой пароль - на экране вижу знаки * или #. |
#4
|
||||
|
||||
В OnCreate формы:
Код:
SendMessage(Edit1.Handle, EM_SETPASSWORDCHAR, Ord('*'), 0); |
#5
|
||||
|
||||
А еще из INI-файла можно взять данные через простецкие строки:
Код:
var f:text; s:string; ... assignfile(f,'123.ini'); while not eof(f) do begin readln(f,s); <обработка> end; closefile(f); jmp $ ; Happy End! The Cake Is A Lie. |
#6
|
||||
|
||||
Цитата:
И CTR+ALT+DEL отключил? Каким образом убрал пуск? |
#7
|
||||
|
||||
CTRL+ALT+DEL вроде бы неотключаем.
Однако я поступил когда писал блокировщик по-хитрому: при запуске Диспетчера я его отрубаю (защита от диспетчера), прога моя записывается в авторан в реесре (защита от выхода из системы и выключения). А больше там ниче страшного нет. А пуск убрать - ниче сложного: через hw:=FindWindow(nil,имя Класса) найти панель задач (название класса по инету ходит, сча уж не помню) и ShowWindow(hw,SW_HIDE); jmp $ ; Happy End! The Cake Is A Lie. |
#8
|
|||
|
|||
Цитата:
А еще диспечер выключается reg настройками. |
#9
|
||||
|
||||
В винХР я слышал про рег отрубание. Но в винVista/7 вроде как не пашет.
а вот с момента "замена файла ОС" пожалста поподробнее jmp $ ; Happy End! The Cake Is A Lie. |