Cor, a SEVERE case of MondayItis........
Just reverse the process and that takes care of it!
Instead of:
begin
regstring := inputbox('Now CamSnap AutoMails the key. Enter your name',
'Name:', '');
regstring := 'Order CamSnap for ' + regstring;
regstring := regstring + ' User Code is: ' +
inttostr(IceLock.GetHDSerialNumber);
ExecuteFile('mailto:[EMAIL PROTECTED]?subject=' + regstring, '', '',
SW_SHOWNOACTIVATE);
Application.HelpJump('OnlineOrder');
end;
Do it this way, silly Al
begin
Application.HelpJump('OnlineOrder'); //this one goes first dahhhhh
regstring := inputbox('Now CamSnap AutoMails the key. Enter your name',
'Name:', '');
regstring := 'Order CamSnap for ' + regstring;
regstring := regstring + ' User Code is: ' +
inttostr(IceLock.GetHDSerialNumber);
ExecuteFile('mailto:[EMAIL PROTECTED]?subject=' + regstring, '', '',
SW_SHOWNOACTIVATE);
end;
Ya wouldnt think I was a beer drinker would you?
Cheers all for the help.
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
