title: How to get ShellExecute to work with pathname longer then 57 chars?
body: <p>Am trying to launch quake from its directory using code below but the pathname is more then 50+ chars so its not working due to limits is there anyway to do larger pathnames?</p>
  
  <p>Pathname example</p>
  
  <blockquote>
    <p>C:\Users\USERNAME\AppData\Roaming\Gaming\Toys\Q2\quake2.exe</p>
  </blockquote>
  
  <pre><code>procedure TAutoLauncher.OKBtnClick(Sender: TObject);
  var
    parameters : string;
    toydir : string;
  begin
    if FileFound then
    begin
      ToyDir := ExtractFilePath(ExtractFileDir(Application.ExeName)) + 'Toys\';
      FolderNameEdit.Text := ToyDir + 'Q2\quake2.exe';
      //
      parameters := Trim('');
      case ModeBox.ItemIndex of
        0: parameters := ' +connect '+ HostEdit.Text +':'+ PortEdit.Text +' +password '+ PasswordEdit.Text;
        1: parameters := ' +set game ctf';
        2: parameters := ' +set game rogue';
        3: parameters := ' +set game xatrix';
      end;
      //
      ShellExecute(handle, 'open', PChar(FolderNameEdit.Text), PChar(parameters), nil, SW_SHOWNORMAL);
     end else
     begin
       Application.MessageBox('Quake2 files not found.', 'Game Not Found', MB_OK OR MB_ICONQUESTION);
    end;
  end;
  </code></pre>
  
  <p>Thanks</p>