Solved

lunch browser

Posted on 1997-11-02
4
379 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

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

Suggested Solutions

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 I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…

679 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