Al,

You might like to have had a look at the Delphi help for StringReplace.
;-)

We were incorrect in the syntax of our initial suggestion (I'm not using
Delphi regularly at the mo).

If you check the help, the first parameter to StringReplace is a
constant parameter.  Therefore yes, our initial suggestion for
StringReplace didn't change MailString.

However, what you need to do is this:

MailString := StringReplace(MailString, ' ', '%20', [rfReplaceAll]);
ShellExecute(Application.Handle, nil, pchar(Mailstring), nil, nil,
SW_SHOWNOACTIVATE);

It's probably fair to say that you'll often not get the complete answer
when asking questions in forums like these - one often gets pointed in
the right direction by other busy people, but has to follow it up
oneself... ;-)

Cheers,

Conor

-----Original Message-----
From: Alistair George [mailto:[EMAIL PROTECTED]

This does it:
  NewString:='';
  For i:=1 to length(mailstring) do
  if mailstring[i]=' ' then NewString:=NewString+'%20' else
NewString:=Newstring+Mailstring[i];
 //use the old bugger
  Mailstring:=NewString;
  ShellExecute(Application.Handle, nil,pchar(Mailstring),nil,nil,
SW_SHOWNOACTIVATE);
---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/

Reply via email to