Solved

lunch browser

Posted on 1997-11-02
4
369 Views
Last Modified: 2010-04-04
hi
i would like to know how can i add a the option to my program that do the folow thing ..
when i push on some Tbuttom the program automaticly lunch the browser (explorer/navigatore or other ... the program should find out witch is the current browser)
with a specific Http address ;
10x
asi
0
Comment
Question by:asi
  • 2
4 Comments
 

Expert Comment

by:chrb
ID: 1349347
Hi,

Just use the shellexecute and send the address as file to execute, maybe you must run "start" as program with the address as parameter
0
 

Author Comment

by:asi
ID: 1349348
hi
1)but how can i find out what browser does any local computer has ?
2) what do u mean "maybe you must run                        "start" as program with the address as parameter " can u be more specific , example ?
10x
asi


0
 

Expert Comment

by:chrb
ID: 1349349
I will give you an example, just have to make it first :)

Chr
0
 
LVL 4

Accepted Solution

by:
itamar earned 50 total points
ID: 1349350

Here goes the D2 source-code. Just copy, paste and run !
(Please, think about increasing points if you like this ;)


            >>>>>>>>>>> 

            unit Unit1;

            interface

            uses
              Windows, Messages, SysUtils, Classes, Graphics,
            Controls, Forms, Dialogs,
            StdCtrls,
            ShellAPI;

            type
              TForm1 = class(TForm)
                btnGO: TButton;
                edtURL: TEdit;
            procedure btnGOClick(Sender: TObject);
            procedure ExecuteFile(Command, Params,
            WorkDir:string);
              private
                { Private declarations }
              public
                { Public declarations }
              end;

            var
              Form1: TForm1;

            implementation

            {$R *.DFM}

            procedure TForm1.ExecuteFile(Command, Params,
            WorkDir:string);
            var aux : integer;
            begin
            { convert Pascal string to Null-termintated strings }
            Command := Command + #0;
            Params := Params + #0;
            WorkDir := WorkDir + #0;
            { run/open application/file }
            aux := ShellExecute(Self.Handle,'Open',@Command[1],

            @Params[1], @WorkDir[1], SW_SHOWNORMAL);
            if aux < 32 Then
            MessageDlg('Could not execute ' +
            Command,mtError,[mbOK],0);
            end;

            procedure TForm1.btnGOClick(Sender: TObject);
            begin
            If edtURL.Text <> '' Then
            ExecuteFile('http://' + edtURL.Text,'','');
            end;

            end.
0

Featured Post

Gigs: Get Your Project Delivered by an Expert

Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
In a recent question (https://www.experts-exchange.com/questions/28997919/Pagination-in-Adobe-Acrobat.html) here at Experts Exchange, a member asked how to add page numbers to a PDF file using Adobe Acrobat XI Pro. This short video Micro Tutorial sh…
Established in 1997, Technology Architects has become one of the most reputable technology solutions companies in the country. TA have been providing businesses with cost effective state-of-the-art solutions and unparalleled service that is designed…

786 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question