  Ŀ
  Ŀ
                                                                          
                        Windows'ta msnz?                               
                                                                          
  ٳ
                                                    Yasin Kaplan (T)      
  




 Bu program altrdnzda Windows'ta olup olmadnz renebilirsiniz.

 Program, evre deikenlerinden "windir" kullanarak alr. Eer
  "windir=C:\WINDOWS" tanmlamas var ise "Windows ykl" mesaj yazlr.


  Ŀ
   Program IsWin;                                                 
   Uses Dos;                                                      
   Var                                                            
     I    : Integer;                                              
     Cont : Boolean;                                              
   Begin                                                          
     WriteLn('  ISWIN (C)opyright 1994 by Yasin KAPLAN');         
     WriteLn;                                                     
     For I := 1 to EnvCount do                                    
      If EnvStr(I)='windir=C:\WINDOWS' then Cont:=True;           
     If Cont Then WriteLn('   Windows ykl')                     
      Else WriteLn('   Windows ykl deil');                     
   End.                                                           
  

 Eer Windows'un bulunduu rehber C:\WINDOWS deilse, programda deiiklik
  yapmanz gerekecektir.



 