Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Несколько функций

Автор: Elandar 2.11.2008, 20:16

Буду благодарен если кто-то даст код открытия : Диспетчер задач, Панель управления, Поиск, Командная строка.
Прошу модераторов не удалять тему некоторое время и не гвоорить что это есть - я не нашел.. что касается диспетчера задач - да, возможно оно и есть на форуме. остальногоя не нашел. Вообщем собрать в одном месте это не помешает форуму. Заранее спасибо за оказанную помощь.

Автор: Qu1nt 2.11.2008, 21:09

Код


uses
  ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Панель управления
  ShellExecute(Handle, nil, 'control', nil, nil, SW_NORMAL);
  // Диспетчер задач
  ShellExecute(Handle, nil, 'taskmgr', nil, nil, SW_NORMAL);
  // Командная строка
  ShellExecute(Handle, nil, 'cmd', nil, nil, SW_NORMAL);
  // Поиск
  ShellExecute(Handle, 'find', nil, nil, nil, SW_NORMAL);
end;