Проводник с паролём - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе
23.08.2016, 20:32
#1
Разведчик
Регистрация: 23.08.2013
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Проводник с паролём
Доброго времени суток, хочу вот создать такую мини программку для себя, для удобства и чтобы никто не лазил.
[Ссылки могут видеть только зарегистрированные пользователи. ]
Собственно нужны советы как "полностью" реализовать, о-то у меня форма 2 не видит ини файл который создает форма 1 и пароль не меняется.
________________
Не важно сколько силы,главное сколько храбрости!
26.08.2016, 00:39
#2
Фельдмаршал
Регистрация: 22.02.2011
Сообщений: 949
Популярность: 34698
Сказал(а) спасибо: 939
Поблагодарили 2,534 раз(а) в 911 сообщениях
Re: Проводник с паролём
код выложи.
29.08.2016, 17:28
#3
Разведчик
Регистрация: 23.08.2013
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Re: Проводник с паролём
Код:
unit Проводник;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IniFiles;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Edit1Click(Sender: TObject);
procedure Edit2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
var
a:string;
b:string;
c:string;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses Unit2;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form2.Show;
end;
procedure TForm1.Edit1Click(Sender: TObject);
begin
Edit1.Clear;
end;
procedure TForm1.Edit2Click(Sender: TObject);
begin
Edit2.Clear;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
Ini:TIniFile;
begin
Ini:=TIniFile.Create(extractfilepath(paramstr(0))+'Settings.ini');
Ini.WriteString('Пароли','Пароль',Form2.Edit2.Text);
Edit1.Text:=Ini.ReadString('Логины','Логин', Edit1.Text);
Edit2.Text:=Ini.ReadString('Пароли','Пароль',Edit2.Text);
Ini.Free;
end;
end.
Код:
unit Unit2;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm2 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
Edit3: TEdit;
procedure Edit1Click(Sender: TObject);
procedure Edit2Click(Sender: TObject);
procedure Edit3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Edit1Click(Sender: TObject);
begin
Edit1.Clear;
end;
procedure TForm2.Edit2Click(Sender: TObject);
begin
Edit2.Clear;
end;
procedure TForm2.Edit3Click(Sender: TObject);
begin
Edit3.Clear;
end;
end.
________________
Не важно сколько силы,главное сколько храбрости!
Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 07:05 .