Wireless sinyal güçlendirici anten yapımı

Wireless antenle ilk tanışmam bundan 2 sene önceydi.Yeni taşındığımız binada internete ortak olabileceğim kimse yoktu.İnternet fiyatlarını çok fahiş bulduğum içinde böyle bir şeyin var olup olmadığının doğrulunu araştırdım.Masaüstü pc kullandığım için wireless taraması yapamıyordum ve bir riske girmek zorundaydım.Girdiğim risk sonucu airties air 2410 marka bir wireless adaptore 100 lira verdim.

Delphi ile Internet adresini yeni ve ölçüleri belirtilen bir pencerede açmak

procedure TFmMain.GotoUrl(SUrl: string; Width, Height: Integer; ToolBar: Boolean);
const
csOLEObjName = 'InternetExplorer.Application';
var
IE        : Variant;
WinHanlde : HWnd;
begin
if( VarIsEmpty( IE ) )then
begin
IE := CreateOleObject( csOLEObjName );
IE.Visible := true;
IE.Toolbar := Toolbar;
if Width > 0 then IE.Width := Width;
if Height > 0 then IE.Height := Height;
IE.Navigate( sURL );
end else
begin
WinHanlde := FindWIndow( 'IEFrame', nil );
if( 0 <> WinHanlde )then
begin
IE.Navigate( sURL );
SetForegroundWindow( WinHanlde );
end else
begin
ShowMessage('Internet Explorer acilamadi');
end;
end;
end;

// kullanimi:
{adresi yukseklik ve genislik belirtmeden acar }
GotoUrl('http://www.programlama.com', 0, 0, True);
{adresi yukseklik ve genislik belirterek toolbar
olmayan bir pencerede acar }
GotoUrl('http://www.programlama.com', 500, 500, False);

TD Software