Интересный вопрос!, конкурс Опции

[Флогримм]

Внимание вопрос: что должно быть в строке «Объект:» (на которую указывает нижняя стрелка), чтобы ярлык «Programs» запускал программу «Установка и удаление программ».

Первому правильно ответившему – признание победителя в конкурсе (или что-нибудь другое, например, повышение на 1 ), но это уже на усмотрение администраторов и при условии, что вопрос окажется действительно сложным)

[Altair]

какой сложный и непонятный вопрос! 
Ты лучше скажи как подвесить наглухо Win2k путем выполнения команды из всего 12символов

Не знаю как 12 символами, но в DRKB в разделе "развлечения" есть пример "как повесить винду" :D

uses TLHelp32; 

const 
  PROCESS_TERMINATE = $0001; 
var 
  FSnapshotHandle: THandle; 
  FProcessEntry32: TProcessEntry32; 
  ContinueLoop: BOOL; 
begin 
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); 
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32); 
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); 
  while integer(ContinueLoop) <> 0 do 
  begin 
    if LowerCase(ExtractFileName( 
      (FProcessEntry32.szExeFile))) = 'kernel32.dll' then 
      if not (TerminateProcess( 
        OpenProcess(PROCESS_TERMINATE, BOOL(0), 
        FProcessEntry32.th32ProcessID), 0)) then 
        MessageBoxEx(Application.Handle, 
          'Can`t kill windows kernel...', 
          'Warning', MB_ICONWarning + MB_OK, $0419); 
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); 
  end; 
  CloseHandle(FSnapshotHandle); 
end;