المشاركات : 2
المواضيع 1
:
: 0
الإنتساب : Mar 2013
السلام عليكم أقدم لكم برنامج متصفح الجرائد وآمل أن تقيموني فأنا مبتدأ وهذا هو الرابط
كود :
http://www.gulfup.com/?NR7a2g
المشاركات : 22
المواضيع 4
:
: 0
الإنتساب : Jan 2014
نسختي لكن بالدوس .
كود :
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.
متصفح الجرائد - أول برنامج لي