bpmax:
 

I am a programmer...

There is absolutely no need for an EXE to be registered in the registry. It is easy to create a program that is stand-alone, Can be run or not, Can be deleted without affecting any other part of the computer or living traces and residue.

Your skeptisism is misplaced here.

The fact that every program you have installed has registered itself is due to your choice of program - I have used (and created) a great many programs that do not register themselves [it is actually easier to create a non-registering program than one that registers itself].

Mark

I agree to Treatid! He is right!!!

Here is the sourcecode of the tool. Show me the line that adds something to the registry and you've won $1000!!!

Small utilities don't neen new entries in the registry if they don't have options which must be saved. And a programmer can choose how he wants to save the options! The registry or a file.
Did you see any options which I could save?

Kamil


Here is the sourcecode:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, GWebCache, AsUrlLabel, Menus, ShellAPI, GnuCon,
ComCtrls, ScktComp, ExtCtrls;

const
WM_KILLSOCKET = WM_USER + $100;

type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
AsUrlLabel1: TAsUrlLabel;
MainMenu1: TMainMenu;
File1: TMenuItem;
Start1: TMenuItem;
Stop1: TMenuItem;
N1: TMenuItem;
Help1: TMenuItem;
Help2: TMenuItem;
Homepage1: TMenuItem;
StatusBar1: TStatusBar;
GWebCache1: TGWebCache;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure GWebCache1VerifiedHost(Sender: TObject; IP: String;
Port: Integer);
procedure ListBox1Click(Sender: TObject);
procedure Edit1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure Start1Click(Sender: TObject);
procedure Stop1Click(Sender: TObject);
procedure Homepage1Click(Sender: TObject);
procedure Help2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
num:integer;
total:integer;
active:integer;
SocketList:TList;
procedure OnSockEventError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
procedure KillSocket(var Message: TMessage); message WM_KILLSOCKET;
procedure OnSockConnect(Sender: TObject; Socket: TCustomWinSocket);
procedure OnSockDisconnect(Sender: TObject; Socket: TCustomWinSocket);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Caption='Start' then
begin
GWebCache1.Start;
StatusBar1.Panels.Items[0].Text:='Searching...';
Button1.Caption:='Stop';
end
else
begin
GWebCache1.Stop;
StatusBar1.Panels.Items[0].Text:='';
Button1.Caption:='Start';
end;
end;

procedure TForm1.GWebCache1VerifiedHost(Sender: TObject; IP: String;
Port: Integer);
var
c:TClientSocket;
begin
inc(total);
inc(active);
c:=TClientSocket.Create(self);
SocketList.Add(TObject(c));
c.Host:=IP;
c.Port:=Port;
c.OnConnect:=OnSockConnect;
c.OnError:=OnSockEventError;
c.OnDisconnect:=OnSockDisconnect;
c.Open;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to ListBox1.Items.Count-1 do
if ListBox1.Selected[i] then
begin
Edit1.Text:=copy(ListBox1.Items[i],1,pos(':',ListBox1.Items[i])-1);
Edit2.Text:=copy(ListBox1.Items[i],pos(':',ListBox1.Items[i])+1,length(ListBox1.Items[i]));
end;
end;

procedure TForm1.Edit1Click(Sender: TObject);
begin
(Sender AS TEdit).SelectAll;
(Sender AS TEdit).CopyToClipboard;
(Sender AS TEdit).SelLength:=0;;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Start1Click(Sender: TObject);
begin
GWebCache1.Start;
StatusBar1.Panels.Items[0].Text:='Searching...';
Button1.Caption:='Stop';
end;

procedure TForm1.Stop1Click(Sender: TObject);
begin
GWebCache1.Stop;
StatusBar1.Panels.Items[0].Text:='';
Button1.Caption:='Start';
end;

procedure TForm1.Homepage1Click(Sender: TObject);
begin
ShellExecute(Application.MainForm.Handle,NIL,PChar ('http://delphi.pogorzelski.de'),'','',SW_MAXIMIZE)
end;

procedure TForm1.Help2Click(Sender: TObject);
begin
Form2.ShowModal;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
num:=0;
total:=0;
active:=0;
SocketList:=TList.Create;
end;

procedure TForm1.OnSockEventError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
Socket.Close;
PostMessage(Handle, WM_KILLSOCKET, 0, lParam(Sender));
ErrorCode:=0;
end;

procedure TForm1.KillSocket(var Message: TMessage);
var
i:integer;
begin
try
i:=SocketList.IndexOf(TObject(Message.LParam));
if i<>-1 then
begin
SocketList.Items[i]:=nil;
TObject(Message.LParam).Free;
dec(active);
end;
finally
try
except
end;
end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
i:integer;
begin
GWebCache1.Stop;
while SocketList.Count>0 do
begin
SocketList.Pack;
Application.ProcessMessages;
Sleep(10);
for i:=SocketList.Count-1 downto 0 do
begin
try
if SocketList.Items[i]<>nil then
SendMessage(Handle, WM_KILLSOCKET, 0, lParam(SocketList.Items[i]));
except;
end;
end;
end;
SocketList.Free;
Action:=caFree;
end;

procedure TForm1.OnSockConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
ListBox1.Items.Add(Socket.RemoteAddress+':'+IntToS tr(Socket.RemotePort));
inc(num);
StatusBar1.Panels.Items[1].Text:=inttostr(Num)+' IPs found of '+inttostr(total)+' (active: '+inttostr(active)+')';
Socket.Close;
PostMessage(Handle, WM_KILLSOCKET, 0, lParam(Sender));
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
StatusBar1.Panels.Items[1].Text:=inttostr(Num)+' IPs found of '+inttostr(total)+' (active: '+inttostr(active)+')';
end;

procedure TForm1.OnSockDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
PostMessage(Handle, WM_KILLSOCKET, 0, lParam(Sender));
end;

end.

Public service announcement - Do not take the following seriously...

To the person who viciously demeaned and humiliated me with the savage words, something to the effect of, (sniff, sniffle) "You ain't savin' anyone" (Your Saviour)... well, I... I... I saved myself. (Baby.) Okay, so you're uptight, your powerbook or power Mac or power tools ain't connecting to Limewire, I suggest I haven't saved YOU, but others, (literally thousands) have personally contacted me, sent money and gifts, bathed me and fed me grapes. Make that millions. Trillions. While you are questioning your faith, and hacking down (false) idols... I continue to download 440,000 songs a minute. I am playing said songs on multiple surround speakers, simultaneously. However, I am a humble man, humble saviour (small 's' saviour) and I stand defeated by my inept attempt to help you...

Since the source is open you can use whatever method is being used there to connect on any platform.

@efield: PostMessage is a Windows specific function. It won't run on Mac or Linux.

Mac Users
 

Is there anything for Mac Users to do? I'm pretty sure that there are a lot of Mac users like that our Limewire doesn't connect. What can we do?:confused:

I don't have a Mac and I don't know how to write programs for it. The only thing you can do is: contact the developers of Limewire and tell them to add proxy support to the GWebCache routines.

Greets
Kamil

Same for me. I get no error messages and no connection attempts to my firewall. I'm on a DSL line and I can use other things just fine. Kazaa works fine, for example. What gives?

Try this
 

If you're using Windows, open the windows explorer window, open the Windows folder and go to recently dowloaded programs, search for the latest program for IE (Internet Explorer) Try to find a program that has benn downloaded arround the time thata your Limewire started to give you problems, and Delete it, in my case was a program named "IE Dial Fast" Or something like that, I erased it and my Limewire is working again. And If you're using mac, try to find this file in the Internet Explorer Folder.
I hope that this advice help you with your Limewire.;)

@bpmax: I'm the unreg user.
I can explain why the program can help people when LW worked in older versions and doesn't work anymore.

if the test described on limewire.com works and you cannot connect with LW
(http://www.limewire.com/index.jsp/faqs#sta1)
or if LW connected in earlier versions than you can use this utility
(in most cases this means that you must use a proxy server, which is a firewall problem)

In earlier versions LW used hostcaches to find the initial connection but now they are closed. Now LW uses GWebCaches, which are normal PHP scripts. If you must use a proxy server to surf the web you also must use a proxy server to connect to a GWebCache. And LW doesn't have a option to set the proxy server. That's why LW can't find a connection. My utility uses the proxy server that is used by IE 3.0+.

The utility works for all people who:
-must to use a proxy server to surf the web
-have IE 3.0 or higher (and it's working)
-the test described on www.limewire.com works
-have a windows OS
(-LW can't connect)

Kamil
http://delphi.mediaceta.net/utilities.php