[Gr_Scream]

Всем привет.
есть одна идея, помогите реализовать.
Начну с сути: есть пару штук ярлыков (lnk, pif). Необходимо перед их запуском потребовать ввода пароля.
Все настройки хранятся в .ini файле, а именно: пароль и запускаемый ярлык.
Если введенный пароль совпал - открой тот ярлык который прописан в ini.
=)
Для открытия ярлыка думаю можно использовать ShellExecute. Но как все связать с ini...

[deltas]

А толку? Что помешает пользователю запустить программу из "Пуск>Все программы..." или прямо с корневой папки программ?

Хотя если очень надо то вроде так:

Код:

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.

[Gr_Scream]

Помешает то что рабочий стол ограничен: пуска нету, запуска командной строки тоже, настроек и всего остального.
Есть только голый рабочий стол.
Жестокие спартанские условия =-))

Спасибо буду пробывать.

Вопрос: как сделать скрытый ввод пароля, т.е. когда ввожу цифоровой пароль - на экране вижу знаки * или #.

[ryderx34]

В OnCreate формы:

Код:

SendMessage(Edit1.Handle, EM_SETPASSWORDCHAR, Ord('*'), 0);

А в Delphi 2009 для этого есть свойство PasswordChar.

[Bargest]

А еще из INI-файла можно взять данные через простецкие строки:

Код:

var f:text;
     s:string;
...
assignfile(f,'123.ini');
while not eof(f) do
begin
  readln(f,s);
  <обработка>
end;
closefile(f);

[deltas]

Сообщение от Gr_Scream

Помешает то что рабочий стол ограничен: пуска нету, запуска командной строки тоже, настроек и всего остального.
Есть только голый рабочий стол.
Жестокие спартанские условия =-))

И CTR+ALT+DEL отключил? Каким образом убрал пуск?

[Bargest]

CTRL+ALT+DEL вроде бы неотключаем.
Однако я поступил когда писал блокировщик по-хитрому: при запуске Диспетчера я его отрубаю (защита от диспетчера), прога моя записывается в авторан в реесре (защита от выхода из системы и выключения). А больше там ниче страшного нет.
А пуск убрать - ниче сложного: через hw:=FindWindow(nil,имя Класса) найти панель задач (название класса по инету ходит, сча уж не помню) и ShowWindow(hw,SW_HIDE);

[Gr_Scream]

Сообщение от deltas

И CTR+ALT+DEL отключил? Каким образом убрал пуск?

Заменой файла ОС. setshell.exe.... Могу скинуть. Только надо быть предельно аккуратным =)
А еще диспечер выключается reg настройками.

[Bargest]

В винХР я слышал про рег отрубание. Но в винVista/7 вроде как не пашет.
а вот с момента "замена файла ОС" пожалста поподробнее