Как сделать?

[Valio]

Судя по всему ты пишешь программу, которая вылезает при старте и просит отправить СМС.
Поэтому то у тебя там рипит стоит... нет уж, сам думай.

[cargo29]

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

Судя по всему ты пишешь программу, которая вылезает при старте и просит отправить СМС.
Поэтому то у тебя там рипит стоит... нет уж, сам думай.

нкт я другое задумал и поверб женатым это неплохая штука

[cargo29]

вот код кто боиться

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdCoder, IdCoder3to4, IdCoderUUE, IdCoderXXE, IdBaseComponent,
  sSkinManager, StdCtrls, sRadioButton, sButton, sMemo, sDialogs, ComCtrls,
  sRichEdit, IdCoderMIME, inifiles, Menus, sPageControl, sEdit, sGroupBox,
  ExtCtrls, sLabel, Buttons, sBitBtn, sCheckBox, ImgList, acAlphaImageList, SHFolder;

type
  TForm1 = class(TForm)
    sPageControl1: TsPageControl;
    sTabSheet1: TsTabSheet;
    sButton1: TsButton;
    sRadioButton1: TsRadioButton;
    sRadioButton2: TsRadioButton;
    sButton2: TsButton;
    sButton3: TsButton;
    sMemo1: TsMemo;
    sSkinManager1: TsSkinManager;
    IdEncoderXXE1: TIdEncoderXXE;
    IdDecoderXXE1: TIdDecoderXXE;
    sOpenDialog1: TsOpenDialog;
    sSaveDialog1: TsSaveDialog;
    IdEncoderMIME1: TIdEncoderMIME;
    IdDecoderMIME1: TIdDecoderMIME;
    Popup: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    sTabSheet2: TsTabSheet;
    sGroupBox1: TsGroupBox;
    sEdit1: TsEdit;
    sButton4: TsButton;
    sGroupBox2: TsGroupBox;
    sRadioButton3: TsRadioButton;
    sRadioButton4: TsRadioButton;
    sRadioButton5: TsRadioButton;
    sRadioButton6: TsRadioButton;
    sButton5: TsButton;
    sRadioButton7: TsRadioButton;
    sRadioButton8: TsRadioButton;
    sRadioButton9: TsRadioButton;
    sRadioButton10: TsRadioButton;
    sRadioButton11: TsRadioButton;
    sRadioButton12: TsRadioButton;
    sRadioButton13: TsRadioButton;
    sTabSheet3: TsTabSheet;
    sRichEdit1: TsRichEdit;
    sMemo2: TsMemo;
    sBitBtn1: TsBitBtn;
    sLabel1: TsLabel;
    Timer1: TTimer;
    sBitBtn2: TsBitBtn;
    sAlphaImageList1: TsAlphaImageList;
    sCheckBox1: TsCheckBox;
    sTabSheet4: TsTabSheet;
    sButton6: TsButton;
    sEdit2: TsEdit;
    sLabel2: TsLabel;
    sSaveDialog2: TsSaveDialog;
    procedure sButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure sButton3Click(Sender: TObject);
    procedure sButton2Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure sButton4Click(Sender: TObject);
    procedure sButton5Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure sBitBtn1Click(Sender: TObject);
    procedure sBitBtn2Click(Sender: TObject);
    procedure sButton6Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N3Click(Sender: TObject);
  private
     function getWin: string;




    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   value : string;
   ini:Tinifile;

   implementation

{$R *.dfm}

procedure TForm1.sButton1Click(Sender: TObject);
begin

if sRadioButton1.Checked=true then
begin
smemo1.text:=IdEncoderMIME1.Encode(smemo1.Text)
end
else
if sRadioButton2.Checked=true then
smemo1.text:=IdDecoderMIME1.DecodeString(smemo1.Text);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ini:=Tinifile.Create(getWin+'\progss.ini');
sSkinManager1.SkinName:=ini.ReadString('style','tema', 'WMP11 (internal)');

repeat
value := InputBox('Внимание', 'Введите пароль!', '');
until value=ini.ReadString('pass', 'code','Пароль');
showmessage('Пароль правильный');

sEdit2.Text:=ini.ReadString('put','we',sEdit2.Text);
sRichEdit1.Lines.LoadFromFile(sEdit2.Text);

end;

procedure TForm1.sButton3Click(Sender: TObject);
begin
if sOpenDialog1.Execute=true then
smemo1.Lines.LoadFromFile(sOpenDialog1.FileName);
end;

procedure TForm1.sButton2Click(Sender: TObject);
begin
if sSaveDialog1.Execute=true then
smemo1.Lines.SaveToFile(sSaveDialog1.FileName+'.txt');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
ini.Free;

end;

procedure TForm1.N1Click(Sender: TObject);
begin
if sOpenDialog1.Execute=true then
smemo1.Lines.LoadFromFile(sOpenDialog1.FileName);
end;

procedure TForm1.N2Click(Sender: TObject);
begin
if sSaveDialog1.Execute=true then
smemo1.Lines.SaveToFile(sSaveDialog1.FileName+'.txt');
end;

procedure TForm1.sButton4Click(Sender: TObject);
begin
ini.WriteString('pass','code',sEdit1.Text);
showmessage('Пароль изменен');
end;

[cargo29]

procedure TForm1.sButton5Click(Sender: TObject);
begin
if sRadioButton3.Checked=true then
sSkinManager1.SkinName:='WMP11 (internal)';

if sRadioButton4.Checked=true then
sSkinManager1.SkinName:='Deep (internal)';

if sRadioButton5.Checked=true then
sSkinManager1.SkinName:='Vista (internal)';

if sRadioButton6.Checked=true then
sSkinManager1.SkinName:='XPSilver (internal)';

if sRadioButton7.Checked=true then
sSkinManager1.SkinName:='Aluminium (internal)';

if sRadioButton8.Checked=true then
sSkinManager1.SkinName:='Cappuccino (internal)';

if sRadioButton9.Checked=true then
sSkinManager1.SkinName:='Cold (internal)';

if sRadioButton10.Checked=true then
sSkinManager1.SkinName:='Garnet (internal)';

if sRadioButton11.Checked=true then
sSkinManager1.SkinName:='KaraKum (internal)';

 if sRadioButton12.Checked=true then
sSkinManager1.SkinName:='Nautilus (internal)';

if sRadioButton13.Checked=true then
sSkinManager1.SkinName:='FalloutStyle (internal)';
ini.WriteString('style','tema', sSkinManager1.SkinName);
 showmessage('Тема изменина!');

end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
sLabel1.Caption:=inttostr(length(smemo2.Text));
 if sEdit2.Text='' then
 begin
 sBitBtn1.Enabled:=false;
 sBitBtn2.Enabled:=false;
 end
 else
 begin
 sBitBtn1.Enabled:=true;
 sBitBtn2.Enabled:=true;
 end
end;
procedure TForm1.sBitBtn1Click(Sender: TObject);
var
data:string;
F : TextFile; 
S : String;
begin
if sCheckBox1.Checked=true then
begin
data:=datetostr(date);
sRichEdit1.Lines.Add(data+'    '+sMemo2.Text);
sMemo2.Clear;
end
else
begin
sRichEdit1.Lines.Add(sMemo2.Text);
sMemo2.Clear;
end;
 AssignFile(F, sEdit2.Text);
Rewrite(F);
S := sRichEdit1.Text;
WriteLn(F,S);
CloseFile(F);
end;
procedure TForm1.sBitBtn2Click(Sender: TObject);
 var
 F : TextFile;
S : String;
begin
AssignFile(F, sEdit2.Text);
Rewrite(F);
S := sRichEdit1.Text;
WriteLn(F,S);
CloseFile(F);
end;
 function TForm1.getWin: string;
var
 i:cardinal;
 d:array[0..MAX_PATH] of Char;
 begin
 try
 if getWindowsDirectory(d,i) >0 then
  result:= d;
  except
  result:= 'undifined';
  end;
end;
procedure TForm1.sButton6Click(Sender: TObject);
begin
if sSaveDialog2.Execute=true then
begin
sEdit2.Text:=sSaveDialog2.FileName;
end
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ini.WriteString('put','we',sEdit2.Text);
end;
procedure TForm1.N3Click(Sender: TObject);
begin
sTabSheet2.PageControl.ActivePageIndex:=1;
end;

end.

продолжение

[cargo29]

я только учусь буквально.... так что за мой корявый код не ругать ....

[niki2012]

Вот вариант как сделать:

ok:=false;
while ok=false do
begin
  If InputBox('Внимание', 'Введите пароль!', '')=password then ok:=true
  else
  begin
    If  MessageDlg (‘Пароль неправильный. Выйти?’, mtConfirmation, [mbYes, mbNo] ,0) = mrYes then Close; 
  end;
end;

[DeKot]

я только учусь буквально....

Обалдеть-ть -ть!
ТС - Вам же указали элементарщину. См. посты #13 , #21.

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Form1.Edit1.Text = 'abcd1234' then // вместо 'abcd1234' - любой пароль
  begin
    Form2.Show;
  end
  else Form1.Edit1.Text:= 'Неверно! Повторите';// или " система отключается"....да что угодно
  Form1.Edit1.SetFocus;
end;

end.

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.FormPaint(Sender: TObject);
begin
  Form2.Canvas.TextOut(20,20,'УРА! Пароль правильный');
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  Form2.Canvas.Font.Size:= 12;
  Form2.Canvas.Font.Color:= clRed;
end;

end.

Че уж проще может быть ?

[misher]

Проверка правильности ввода ключа.rarКачай

[cargo29]

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

Вот вариант как сделать:

while ok=false do
begin
  If InputBox('Внимание', 'Введите пароль!', '')=password then ok:=true
  else
  begin
    If  MessageDlg (‘Пароль неправильный. Выйти?’, mtConfirmation, [mbYes, mbNo] ,0) = mrYes then Close; 
  end;
end;

тут переменные ну пароль это понятно а вот ОК это у нас что идет?что где еще дописать?

[niki2012]

в var дописываешь ok: boolean
PS. и еще забыл в начале перед while'ом надо дописать ok:=false;