В начало

  

X- PLANET

| НАЧАЛО |      | СТАТЬИ |      | DOWNLOAD |     | О ПРОЕКТЕ |

Tips & Tricks

Начало

Delphi

  •  Уменьшить объем скомпилированного файла можно, выбрав в options (меню Project), выбрать закладку Packages и поставить галочку в пункте Build with runtime packages. Но необходимо знать, что такая прога будет работать только на компе с установленной дельфи. Другой способ - сжать AsPack'ом. Взять можно здесь.
  • В каком-то форуме я встретил вопрос. "Как сделать маску ввода в компоненте DBEdit?" Меня заинтересовала такая проблема, тем более что я как раз тогда изучал создание БДшек.

    Короче, вот простое и элегантное решение, для которого надо написать всего 1 строчку кода. Ставим на форму компонент MaskEdit, задаем в нем маску ввода, потом располагаем его там, где должен быть DBEdit, сам DBEdit делаем скрытым (Visible:=false) и в обработчике события OnChange компонента MaskEdit пишем примерно так DBEdit.Text:=MaskEdit.Text. Вот и все. Другой способ еще менее трудоемкий - Задать маску ввода можно в свойстве поля, за которое "отвечает" этот DBEdit.

  • Как поменять кнопки мыши местами?

    А так:

    SwapMouseButton(true); // Для левши 

    SwapMouseButton(false); // Обратно

  • Как ограничить область передвижения мышки? Сначала объявляем переменную типа TRect. Затем инициируем ее: Rect(0,0,100,100). Затем используем функцию ClipCursor, передавая ей указатель на эту переменную: ClipCursor(@Rect). Все гениальное просто!

  • Как переключить раскладку клавиатуры

    var
      Layout: array[0.. KL_NAMELENGTH] of char;
    begin
      LoadKeyboardLayout( StrCopy(Layout,'00000419'),KLF_ACTIVATE);//На русский

      LoadKeyboardLayout(StrCopy(Layout,'00000409'),KLF_ACTIVATE);//На английский
end;

  • Как программно вырубить монитор

    А так:

    SendMessage(Application.Handle,WM_SYSCOMMAND, SC_MONITORPOWER,0)//вырубить

    SendMessage(Application.Handle,WM_SYSCOMMAND, SC_MONITORPOWER,-1)//включить

  • Как определить версию Винды

    Надо поставить на форму 2 Лейбла и одну кнопку. После чего написать: 

    type
  TWinVersion = (wvUnknown, wv95, wv98, wvME, wvNT3, wvNT4, wvW2K, wvXP);

function DetectWinVersion: TWinVersion;
var
  OSVersionInfo: TOSVersionInfo;
begin
  Result := wvUnknown;
  OSVersionInfo.dwOSVersionInfoSize := sizeof(TOSVersionInfo);
  if GetVersionEx(OSVersionInfo) then
  begin
    case OSVersionInfo.DwMajorVersion of
      3: Result := wvNT3;
      4: case OSVersionInfo.DwMinorVersion of
          0: if OSVersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT then
              Result := wvNT4
            else
              Result := wv95;
          10: Result := wv98;
          90: Result := wvME;
        end;
      5: case OSVersionInfo.DwMinorVersion of
          0: Result := wvW2K;
          1: Result := wvXP;
        end;
    end;
  end;
end;

function DetectWinVersionStr: string;
const
  VersStr: array[TWinVersion] of string = (
    'Unknown',
    'Windows 95',
    'Windows 98',
    'Windows ME',
    'Windows NT 3',
    'Windows NT 4',
    'Windows 2000',
    'Windows XP');
begin
  Result := VersStr[DetectWinVersion];
end;


procedure TForm1.Button1Click(Sender: TObject);
Var
  ver:TWinVersion;
begin
  Ver:=DetectWinVersion;
  Label1.Caption := IntToStr(ord(ver));
  Label2.Caption := DetectWinVersionStr;
end

  • Как определить каталог установки Винды

    Надо поставить на форму Lable, Button и накатать:

    var
    Windir: string;
    WindirP: PChar;
    Res: Cardinal;

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    WinDirP := StrAlloc(MAX_PATH);
    Res := GetWindowsDirectory(WinDirP, MAX_PATH);
    if Res > 0 then
    WinDir := StrPas(WinDirP);
    Label1.Caption := WinDir;
    end;

  • Как определить тактовую частоту процессора

    Надо написать эту функцию, а потом обращаться к ней по какому-то событию. Нажатию кнопки, например.

    function GetCPUSpeed: double;
const
  DelayTime = 500; // время измерения в миллисекундах
var
  TimerHi, TimerLo: DWORD;
  PriorityClass, Priority: integer;
begin
  PriorityClass := GetPriorityClass(GetCurrentProcess);
  Priority := GetThreadPriority(GetCurrentThread);
  SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
  SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);
  Sleep(10);
  asm
    dw 310Fh 
    mov TimerLo, eax
    mov TimerHi, edx
  end;
  Sleep(DelayTime);
  asm
    dw 310Fh 
    sub eax, TimerLo
    sbb edx, TimerHi
    mov TimerLo, eax
    mov TimerHi, edx
  end;
  SetThreadPriority(GetCurrentThread, Priority);
  SetPriorityClass(GetCurrentProcess, PriorityClass);
  Result := TimerLo / (1000.0 * DelayTime);
end;

begin
  LabelCPUSpeed.Caption := Format('CPU speed: %f MHz', [GetCPUSpeed]);
end;
Вверх

Office

  • Word.  
    • Можно создать табличку крайне просто. Если ввести такую строку +----+------+------+ и нажать <Enter>. то получится табличка в 1 строчку, где "+" - граница ячейки, а "-" - сторона.

    • Как быстро изменить регистр букв в Word'e. Надо выделить текст и нажать F3.

    • Выделить прямоугольный кусок текста в Word'e можно, нажав Alt.

    • Горячие клавиши в Word

      • Полужирный текст - нажимаем Ctrl+B (или в русскоязычном режиме - Ctrl+И). Выключается аналогично.

      • Курсивный текст - Ctrl+I или Сtrl+Y (в русском - Ctrl+Ш или Ctrl+Н).

      • Подчёркнутый текст - Ctrl+U (в русском - Ctrl+Г)
        Текст с двойным подчёркиванием - Ctrl+Shift+D (Ctrl+Shift+в)

      • Текст, набранный капителями (уменьшенными заглавными буквами) - Ctrl+Shift+K (Ctrl+Shift+Л) (для изменения данных атрибутов у целого слова, его вовсе не обязательно выделять целиком. Достаточно лишь, чтобы курсор находился внутри слова).

      • Выравнивание абзацев: влево - Ctrl+q (Ctrl+й);
        вправо - Ctrl+r (Ctrl+к);

      • по центру - Ctrl+e (Ctrl+у)

      • по формату - Ctrl+j (Ctrl+о)

      • маркированный список - Ctrl+Shift+L (Ctrl+Shift+д)

      • Сдвиг абзаца вправо Ctrl+M (Ctrl+ь)

      • Увеличение отступа слева (кроме первой строки) - Ctrl+T (Ctrl+е)

      • Печать документа (в Word и почти во всех других программах) - Ctrl+P (ctrl+З).

      • Ctrl+X - вырезать

      • Ctrl+C - копировать

      • Ctrl+V - вставить

    • Если вы хотите сделать шпаргалки из текста набранного в Word (подразумевается большой текст), то нет ни чего проще. Просто жмите Файл_Печать... и в пункте "число страниц на листе" ставите к примеру 8. Остаётся только их порезать и спрятать :).

  • Excel.  
    • Для того чтобы быстро подобрать оптимальную ширину столбца при надо подвести курсор к правой границе этого столбца вверху (там, где написаны буквы A, B, C ...) и сделать двойной щелчок левой кнопкой мыши по границе столбцов.
    • Быстро вставить формулу суммы в Excel'e можно нажав "Alt"+"="

    • Запуск калькулятора Windows из Excel

      Вы, вероятно, знаете, что есть очень хороший калькулятор в Windows 9x/Me/2000. Когда Вы работаете с Excel и Вам потребовался калькулятор, Вам нужно нажать Пуск, выбрать Программы и т.д. Это довольно неудобно. Давайте поместим кнопку калькулятора на панель инструментов Excel.

      Запустите Excel, и выберите Вид->Панель инструментов->Настройка. Откроется диалоговое окно Настройка, перейдите на вкладку Команды. Теперь, в списке «Категории» выберите Сервис. Прокрутите вниз список «Команды», вы увидите значок калькулятора (рядом будет текстовая надпись «Другая»). Перетащите этот значок из списка на панель инструментов. Нажмите кнопку закрыть диалогового окна «Настройка», и теперь вы можете просто щелкать по новому значку, чтобы запустить калькулятор.

      А можно сделать проще (как я). В главном меню назначить ярлыку калькулятора горячую клавишу. И запускать его можно теперь хоть из ..., а не только из Excel'a

Вверх

Internet Explorer

  • Очистить историю введенных URL можно с помощью реестра по адресу: HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs

  • Для того, чтобы в браузере изменить надоевшую надпись "Internet Explorer" на что-то другое надо зайти в реестр по адресу: HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main и добавить строковый параметр "Window Title", значение которого и будет новой надписью.

Вверх

Windows.

  • Если вы пользуетесь горячими клавишами, то возможно, вы хотели бы расширить сферу их применения. Можно назначить горячую клавишу любому приложению. Для этого надо Создать для него ярлык, в свойствах этого ярлыка поставить курсор и нажать Ctrl+Alt+"буква". Примечание. Не работает для ярлыков, расположенных на панели быстрого запуска (во всяком случае, у меня)

Вверх

Copyright© - Константин, www.konstantin17.narod.ru/

Карта сайта
Tips & Tricks
DOWNLOAD
Статьи
Рассылка
Гостевая
Учеба
Ссылки
О проекте
Реклама
 
Hosted by uCoz