Utkin

Имеется БД FireBird, ламерская таблица, ничего особенного. Задача формировать первичный ключ. Сама БД собрана с помощью SQL Manager Lite for InterBase & Firebird, так вот она там наформировала для первичных ключей возможность автоинкремента через триггеры и генераторы. Вопрос, как из скромного приложения (Делфи + InterBase) генерировать первичный ключ? Понятно, что доверять юзеру такой вопрос нельзя никак.

(читать всё…)

Alar:

Сформулировал свое понимание капитала, не по Марксу.

Капитал — это скорость обмена информацией помноженная на количество участников обмена.

Дальше проще

Прибыль — эффективность использования капитала

Продолжение здесь: http://www.programmersforum.ru/showthread.php?t=253443

Т.е если запускаю софт нажимаю кнопку «обновить» и что бы софт (ехе файл) автоматом перекачивался и сохранялся в ту же папку что и запущенная версия, как такое реализовать? (читать всё…)

Через Listbox выбираю один из нескольких файлов. Закидываю его в dbmemo. и загружаю его в базу. Как сделать, чтобы после команды POST выбранный файл удалялся? (читать всё…)

(читать всё…)

(читать всё…)

Пост на основе этой темы.

В настройках персонализации есть настройки экрана, которые позволяют управлять отображением рабочего стола на одном и более экранах, одновременно.

Как же управлять этим программно?

Начиная с ОС Windows 7 есть специальная системная утилита: displayswitch.exe живет в %SystemRoot%\System32\ папке.

Принимает параметры:

1. /internal — Отображать рабочий стол только на основном мониторе
2. /clone — Отображать рабочий стол на всех мониторах (клонирование)
3. /extend — Расширить рабочий стол на кол-во мониторов (Имея 2 монитора, 50% рабочего стола будет отображена на 1, остальные 50% на втором).
4. /external — Отображать рабочий стол только на втором мониторе (Основной будет выключен)

Пример использования в Delphi:

//Добавить в uses модули ShellAPI,SysUtils,Windows
var
sDir:string; //Рабочая папка приложения displayswitch.exe
begin
sDir:=IncludeTrailingPathDelimiter(GetEnvironmentVariable('SYSTEMROOT')) + 'System32\';
ShellExecute(0,PChar('Open'),PChar(sDir+'displayswitch.exe'),PChar(' /extend'),PChar(sDir),SW_HIDE);
end;


Данный пример, скрытно, переключает рабочий стол в режим расширенного отображения на всех подключенных экранах.

Спасибо: doktor255

как сделать вывод подсказки Hint при наведении на каждый заголовок столбца. В таблице используется сортировка, она постоянно меняется, на каждом столбце своя стоит и нужно выводить какая стоит при наведении. (читать всё…)

(читать всё…)

ак в паскале(версия 7.0) записать динамический двумерный массив. Если можно с примером… (читать всё…)