Утилита командной строки для трасляции *.c и *.h файлов в *.pas модули. Переводит около 80% кода языка СИ (на чистом Win32 API) в код на паскале (в частности, Delphi4,5, VP, FPC). Дополнительно форматирует переведенный текст для удобства чтения.
Источник: www.astonshell.com/rus/ -= · Tools · =-
Компонент для передачи сообщений по локальной сети (по принципу WinPopup). Работает на основе функции Netbios. Для работы необходимо, чтобы в настройках сети протокол NetBEUI использовался по умолчанию.
»»» Скачать: исходные тексты (44кб)
Программа для решения и составления кроссвордов. Вместе с ДЕМО есть несколько уже готовых кроссвордов. Просьба замечание и предложения присылать на e-mail (см. readme.txt). Исходники не ложу (есть еще поле для деятельности).
»»» Скачать: исходные тексты (330кб)
type TForm1 = class(TForm) Button1: TButton; Button2: TButton; RichEdit1: TRichEdit; procedure RichEdit1KeyPress(Sender: TObject; var Key: Char); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
uses richedit;
{$R *.DFM}
procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char); var line, col, indent: integer; S: String; begin if key = #13 thenbegin key := #0; with sender as TRichEdit dobegin {figure out line and column position of caret} line := PerForm( EM_EXLINEFROMCHAR, 0, SelStart ); Col := SelStart - Perform( EM_LINEINDEX, line, 0 ); {get part of current line in front of caret} S:= Copy( lines[ line ], 1, col ); {count blanks and tabs in this string} indent := 0; while (indent < length( S )) and (S[indent + 1] in [' ', #9]) do Inc( indent ); {insert a linebreak followed by the substring of blanks and tabs} SelText := #13#10 + Copy(S, 1, indent); end; end; end;
Выкллючить комп
Никто не знает как из командной строки выключить компьютер?Нужно из командной строки, а не программно.
Как использовать Paradox без BDE
Такая проблема. Надо осуществить работу с таблицей Paradox BDE. Основные таблицыв программы DBF
Серийный номер... ПРИНТЕРА?!
Коллеги, а есть ли такая возможность - вытащить серийник из принтера? В новых моделях принтера он точно прошит. Но как ...
Hook, клавиатурный шпион
Привет всем! Написал клавиатурного шпиона, теперь задача состоит в следующем: предположим я не знаю какой процесс в ...
Понимание много-поточности в VCL для веб-серверных ISAPI-расширений
В среде Delphi можно создавать высокоэффективные веб-серверные ISAPI-расширения на основе технологии WebBroker. Создайте проект с помощью мастера (New -> Web Server Application - ISAPI DLL). Прилагаемая справочная документация, а так же демонстрационный пример "$(DELPHI)\Demos\Webserv" позволяют достаточно быстро освоиться в приемах написания веб-серверных ISAPI-расширений...
Windway pages Тут собраны несколько моих любимых библиотек под Delphi, а также пара программок, написаных мной на этих библиотеках... Одна из них PE (Power Editor), мне кажется достаточно интересной заменой ...
Опрос населения :)
Готовится к выпуску журнал "Мастера DELPHI". За какую сумму вы готовы его покупать?
Давно витающая в воздухе нашего сайта идея создания журнала, посвященного всеми нами любимой среде разработки Delphi, похоже, обретает зримую форму. Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
Для души
Хокку дня
Только художник Видит, как наклоняет Травинку роса.
Афоризмы
Говорить можно с каждым, а поговорить, почитай, и не с кем (Феликс Хвалибуг)
Фраза дня
Мирные жители зверски расстреляли оккупантов.
И на закуску коротенький анекдот
- Дыхните. - Пожалуйста. - Еще раз. - Зачем? - Очень запах нравится.