Solved

Log internet activity

Posted on 2000-05-02
2
142 Views
Last Modified: 2010-04-04
I've been asked to write a program for NT that logs all internet activity.  I just want to know how to get a list of web sites that I am currently connected to from within Delphi 4.

Any ideas?

John.
0
Comment
Question by:Jaymol
2 Comments
 
LVL 17

Accepted Solution

by:
inthe earned 250 total points
Comment Utility
hi john,maybe this helps:
add ddeman to uses section then use this
code from a paq ,dunno who from

function Get_URL(Servicio: string): String;
var
Cliente_DDE: TDDEClientConv;
begin
Result := '';
Cliente_DDE:= TDDEClientConv.Create( nil );
with Cliente_DDE do
 begin
SetLink( Servicio,'WWW_GetWindowInfo');
Result := StrPas(RequestData('0xFFFFFFFF'));
CloseLink;
end;
Cliente_DDE.Free;
end;

procedure TForm1.Button1Click(Sender);
begin
 showmessage(Get_URL('Netscape'));
    or
 showmessage(Get_URL('IExplore'));
end;
0
 
LVL 6

Author Comment

by:Jaymol
Comment Utility
As always, thanks for a superb answer!!

Ta,

John.
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…
This tutorial demonstrates a quick way of adding group price to multiple Magento products.

728 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

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now