Чтобы устанавливать сразу все свойства использую .bat скриптик:
rem setbugtraq.bat ( Read more... )

Данный код помещенный в .htaccess запрещает скачивание js, css файлов с сайтов кроме нашего example.org

RewriteEngine on
RewriteCond %{HTTP_REFERER} !^$
RewriteCond %{HTTP_REFERER} !^http://(www\.)?example.org/.*$ [NC]
RewriteRule \.(js|css)$ - [F]

Если еужно прокрутить на StringGrid на видимую строку, то это делается без проблем через установку StringGrid.Row = i, но вот если строку не видно нужно сделать некторые манипуляции. Смотрим код:

if StringGrid.RowCount > StringGrid.VisibleRowCount then
StringGrid.TopRow := StringGrid.RowCount - StringGrid.VisibleRowCount;
StringGrid1.Row := ( Read more... )

Можно переписать стандартный Writeln для вывода русских букв (кириллицы) к окно консольного приложения ( Read more... )

Сделю ка я пунктик "Выделить все" для таблички
// выделить все
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If ((GetKeyState(VK_CONTROL) AND 128)=128) and
((GetKeyState(ord('A')) AND 128)=128)
then
ShowMessage('CTRL+A');
end;

Когда-то мне было запускать каждую службу вручную, а памяти было мало, поэтому автозапуск не использовался.
Вот тогда я и написал скрипт для запуска/останова всех служб.
Создал 2 ярлыка: Stop, Start - для остановки и зспуска.

@echo off
CLS

set app0 = APACHE
set app1 = MSSQL$SQLEXPRESS
( Скрипт целиком... )

Приложение с формой входа для аутентификации. Форма вызывается из главной, поэтому главная форма уже создана и все ее горячие клавиши можно вызывать. Нехорошо давать пользователю выполнять действия, пока он не вошел, потому надо запретить вызов ShortCut не из главной формы.
Ставим хук, и все - теперь вызывать можно только из главной формы.
// хук ( Read more... )

var
h:Thandle;
begin
h:=CreateEvent(nil,true,false,nil);
while TimerEnable do // пока таймер включен
begin
//нужные действия
whaitForSingleObject (h,1000); //1000 - интервал таймера
end;
end;

var
DateValue : TDate;
TimeValue: TTime;
OutDateTime : TDateTime;
...
// OutDateTime combines DateValue and TimeValue
OutDateTime := Int(DateValue) + Frac(TimeValue) ;

Прочитал старенькую заметку "Bat-файл в Группе проектов" и сразу одной проблемой стало меньше.
Я помещаю в испольняемый файл дополнительные ресурсы, в том числе и картинки в JPEG, PNG.
Если дать компилировать этот файл дельфи, то он ругается что встречает не поддреживаемы тип ресурса, картинка более 16 бит.
Поэтому для сборки ресурса используется ( Read more... )