متصفح الجرائد - أول برنامج لي - نسخة قابلة للطباعة

كود :
program Alg_NP;
    uses crt ,windows, registry;

function GetDefaultApp(ext : AnsiString ): AnsiString;
var    reg : TRegistry;
      MRUList,ret : AnsiString;
begin
   reg := TRegistry.Create;
   reg.RootKey := HKEY_CURRENT_USER;
   reg.OpenKeyReadOnly('Software\\Microsoft\\Windows\\' +
                       'CurrentVersion\\Explorer\\FileExts\\.'
                       + ext + '\\OpenWithList');
   //
   MRUList := reg.ReadString('MRUList');
   ret := reg.ReadString(AnsiString(char(MRUList[1])));
   result := ret;
end;

procedure OpenURL( URL : AnsiString) ;
var
    app : AnsiString;
begin
   app := GetDefaultApp('html');
   ShellExecute(0,'open',pchar(app),pchar(URL),nil,SW_SHOWDEFAULT);
end;

var

 newspapers  : array [1..6] of record
               name : string;
               id   : integer;
               end = ((name:'http://www.elwatan.com/'; id:1),
                      (name:'http://www.elkhabar.com/';id:2),
                      (name:'http://www.echoroukonline.com/ara/';id:3),
                      (name:'http://www.ennaharonline.com/ar/';id:4),
                      (name:'http://www.annasronline.com/';id:5),
                      (name:'http://www.al-fadjr.com/';id:6) );

var
   c : integer;
   done : boolean = false;
begin

  while not done do
  begin
     ClrScr();
     writeln('    ----------Algerian NewsPapers--------');
     writeln('    1 : elwatan');
     writeln('    2 : elkhabar');
     writeln('    3 : echoroukonline');
     writeln('    4 : ennaharonline');
     writeln('    5 : annasronline');
     writeln('    6 : al-fadjr');
     writeln('    0 : Quit');
     write ('    >'); read(c);

     case c of
       1 : begin OpenURL(newspapers[c].name); end;
       2 : begin OpenURL(newspapers[c].name); end;
       3 : begin OpenURL(newspapers[c].name); end;
       4 : begin OpenURL(newspapers[c].name); end;
       5 : begin OpenURL(newspapers[c].name); end;
       6 : begin OpenURL(newspapers[c].name); end;
       0 : begin done := true; end;
     end;
  end;

end.