ychatu42.pas

Yahoo Messenger for Mobile

unit YchatU42;

interface

uses
  Windows, Messages, SysUtils,  Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, YchatU1;

type
  TForm38 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label1: TLabel;
    Label3: TLabel;
    Button2: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Label2: TLabel;
    Button3: TButton;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form38: TForm38;

implementation

uses YchatU22;

{$R *.dfm}

procedure TForm38.FormCreate(Sender: TObject);
begin
  Edit1.Text:=Path+'ymlitecam.exe';
end;

procedure TForm38.Button1Click(Sender: TObject);
Var
 Bs: String;
begin
   If RadioButton1.Checked=True Then
     Bs:=RadioButton1.Caption
      else
     Bs:=RadioButton2.Caption;
   Form1.ShellExecute(handle, 'open', Pchar(edit1.text), Pchar(LoggedInName+' '+Bs+' '+Edit2.Text+' '+form22.edit8.text+' '+Edit3.Text), '',  sw_Normal);
     //edit1 = Yahoo ID Label 2 = MODE, Anony or user , Edit8.Text = Cam Authentication Str
   Close;
end;

procedure TForm38.Button2Click(Sender: TObject);
begin
 Close;
end;

procedure TForm38.Button3Click(Sender: TObject);
begin
 Form1.SendText(Form1.GetTOken(Edit2.Text));
end;

procedure TForm38.Button4Click(Sender: TObject);
begin
//  Form1.SendText(Form1.GetTOken(Edit2.Text));
  Form38.Edit2.Text:=LoggedInName;
  Form1.ShellExecute(handle, 'open', Pchar(Path+'ymcambc.exe'), Pchar(LoggedInName+' '+Edit3.Text+' '+form22.edit8.text+' '+RoomName), '',  sw_Normal);
  Close;
end;

end.