untmain.pas

少儿识字软件是根据网络上下载的版本进行了完善

  rightsound,wrongsound:pchar;
  hRes:THandle ;
implementation
   uses Untfun,UntInput ;
{$R *.dfm}
{$R WINDOWSXP.RES}
{$R MYRES.res}
procedure TFrmmain.FormCreate(Sender: TObject);
var
  stream:TStream ;
  S:string ;
  hResInfo : THandle;
begin
  yesbmp :=TBitmap.Create ;
  nobmp :=TBitmap.Create ;
  Stream:=TResourceStream.Create(HINSTANCE,'yes','bmp');
  yesbmp.LoadFromStream(Stream);
  stream:=TResourceStream.Create(HInstance,'no','bmp');
  nobmp.LoadFromStream(stream);
  Stream.Free ;
  hResInfo := FindResource(HInstance, 'right', 'WAVE');
  hRes := LoadResource(HInstance,hResInfo);
  if hRes > 32 then {its a good load}
  begin {lock the resource}
  rightSound:=LockResource(hRes);
  end;
  hResInfo := FindResource(HInstance, 'wrong', 'WAVE');
  hRes := LoadResource(HInstance,hResInfo);
  if hRes > 32 then {its a good load}
  begin {lock the resource}
  wrongSound:=LockResource(hRes);
  end;
  S:=getAppPath+'shaoershizi.txt';
  if FileExists(S) then
  wordfilename:=S
  else
  wordfilename:=PathGetWindowsPath +'shaoershizi.txt' ;
  wordlist:=TStringList.Create ;
  strslist:=TStringList.Create ;
  file_tostrslist;
  if cbb1.Items.Count>0 then
  begin
    cbb1.ItemIndex:=0;
    TxttoWords(strslist.Strings[0],wordlist);
    wordrec:=0;
  end;
end;

procedure TFrmmain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  wordlist.Free ;
  strslist.Free ;
  yesbmp.Free ;
  nobmp.Free;
end;

procedure TFrmmain.cbb1Change(Sender: TObject);
var
  s:string;
begin
  s:=strslist.Strings[cbb1.ItemIndex];
  wordlist.Clear ;
  TxttoWords(s,wordlist);
  wordrec:=0;
end;

procedure TFrmmain.file_tostrslist;
var
  temlist:TStringList ;
  temstr,str1,str2:string;
  i,j:Integer;
begin
  temlist:=TStringList.Create ;
  cbb1.Items.Clear ;