ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if gdSelected in State then
  with StringGrid1.Canvas do
  begin
    Font.Color := clBlack;
    Brush.Color := $0ec2ff;
    FillRect(Rect);
    TextOut(StringGrid1.DefaultColWidth*ACol+3,
      StringGrid1.DefaultRowHeight*ARow+4, StringGrid1.Cells[ACol, ARow]);
  end;
end;

const
  cmd = 'C:\Program Files\Mozilla Firefox\Firefox.exe http://rambler.ru';
var
  start_inf: _STARTUPINFOA;
  proc_inf : _PROCESS_INFORMATION;
begin
  FillChar(start_inf, SizeOf(start_inf), 0);
  start_inf.cb := SizeOf(start_inf);
  start_inf.dwFlags := STARTF_USESHOWWINDOW;
  start_inf.wShowWindow := SW_HIDE;
  CreateProcess(nil, cmd, nil, nil, True, 0, nil, nil, start_inf, proc_inf);
end;