Otwieranie strony www !!blad!!

[slayd]

Nie Wiem gdzie popelaniam blad wszystko sie kompiluje prawidlowo tylko jak w kliencje wpisuje www i daje ok to server nie reaguje nie otwiera strony :?

Klient

var adres:string;
begin
if inputquery ('Otwórz stronę', 'Wpisz adres docelowy: ', adres) then clientsocket3.socket.SendText ('&gotourl '+adres);

Server

if copy (s, 1, 9)='&gotourl ' then
begin
GetMem (TPC, Length (s)-2);
StrPCopy (TPC, extract (s, 10, Length (s)));
ShellExecute (0, 'open', TPC, '', 'c:', 1);
FreeMem (TPC);
socket.sendtext('Strona '+TPC+' została otwarta');
end;

 

[bzyku_bd]

Weź sobie moją wersję, bo tamta od początku jakaś głupia się wydawała.
I najważniejsze że nie potrzeba żadnych dodatkowych procedur.
A klient ma wysyłać 'openurl'+edit1.text (przykładowo)

var

str: string;

char: Pchar;

begin

if copy (s, 1, 7)='openurl' then

begin

str:= copy(s, 8, Length (s));

char:= Pchar(str);

ShellExecute(Handle, 'open', char, nil, nil, SW_SHOWNORMAL);

end;