na4inae6t sam

Na4ina6t sam na Delphi i iskam da popitam kak kato slojq nqkoi buton, moga da go prawq link. kakaw e sourca. sa6to taka kajete i nqkoe URL za Delphi ot kadeto mogat da se wzemat razli4ni sourcowe.

Makar 4e vuprosa ti e izkliu4itelno neiasen predpolagam 4e iskash da otvorish browsera si na opredepen "link" - URL. Tova ste ti svursh rabota. Samo zamesti ocvetenie v sinio text s jelanoto URL

uses
ShellAPI, Registry;

procedure OpenURL(Url : string);
var
ts :string;
begin
with TRegistry.Create do try
rootkey:= HKEY_CLASSES_ROOT;
OpenKey('\htmlfile\shell\open\command',false);
try
ts:= ReadString('');
except
ts:= '';
end;
CloseKey;
finally
Free;
end;
if ts = '' then Exit;
// remove quotes and commandline parameters
ts:= Copy(ts,Pos('"',ts)+1,Length(ts));
ts:= Copy(ts,1,Pos('"',ts)-1);
ShellExecute(0,'open',pchar(ts),pchar(url),nil,sw_show);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenURL('[линк] URL');
end;


Niakoi sites za delphi resurci:

[линк]
[линк]
[линк]


Uspeh

ami da. blagodarq
prawilno si razbral waprosa mi ,
no ne6to ne moga da go daprawq kakto trqbwa.
ako moje6 prati mi nqkoi source za Delphi s edin buton, koioto da otwarq IE kam nqkoi link.( sourca da e gotow.
za da wida kak stawa . :)
e-mail: admin@infoleaf.com

Predpolagam 4e si zabravil da dobavish shellapi v unit-ite koito izpolzvash... Eto ti oste edin elementaren primer:


uses
shellapi;

....

procedure TForm1.Button1Click(Sender:TObject);
begin
shellexecute(handle,'open','[линк]',nil,nil,sw_show);
end;


ne zabraviai v usesda dobavish shellapi

P.S. sus shellexecute pojesh da otvariash vseki asociiran ot windows fail ili da startirash izpulnimi programi.

Uspeh

Blagodarq ti priqteliu .:)
to4no towa mi trqbwa6e .
pri parwiq source koito mi be6e izpratil ne bqh zabrawil da sloja w uses
shellapi; prosto be6re mnogo dalag i obarkwa6 . sega wsi4ko e nared .
ako imam problemi za napred s Delphi-to , predpolagam 4e moga da se obra6tam kam. :)
6te mi dade6 li mail