Скачка из интернета. Пока однопотоковый, но уже поддерживает очередь, ДОКАЧКУ, ведется лог соединения с сервером. Чуть доработать - и будет новый ReGet! ССЫЛКА НАКОНЕЦ-ТО РАБОТАЕТ Исходник взят с http://mixan.narod.ru
»»» Скачать: исходные тексты (4кб) посмотреть скриншот
Маленький сканер CGI-скриптов. В базе сканера пока 619 скриптов. Поддержка прокси-сервера. ССЫЛКА НАКОНЕЦ-ТО РАБОТАЕТ Исходник взят с http://mixan.narod.ru
»»» Скачать: исходные тексты (2кб) посмотреть скриншот
Показывает АБСОЛЮТНО все запущенные программы(даже скрытые и дочерние) и позволяет их завершать. ССЫЛКА НАКОНЕЦ-ТО РАБОТАЕТ Исходник взят с http://mixan.narod.ru
»»» Скачать: исходные тексты (2кб) посмотреть скриншот
Сканирует папку на наличие переименованных файлов. Находит скрытые MIDI, EXE, DLL, BMP, GIF, JPG, PCX, ZIP, WAV, ANI. ССЫЛКА НАКОНЕЦ-ТО РАБОТАЕТ Исходник взят с http://mixan.narod.ru
»»» Скачать: исходные тексты (2кб) посмотреть скриншот
Как изменить шрифт hint'а?
В примере перехватывается событие Application.OnShowHint и изменяется шрифт Hint'а. Пример:
type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private {Private declarations} public procedure MyShowHint(var HintStr: string; var CanShow: Boolean;var HintInfo: THintInfo); {Public declarations} end;
var Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.MyShowHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo); var i : integer; begin for i := 0 to Application.ComponentCount - 1 do if Application.Components[i] is THintWindow then with THintWindow(Application.Components[i]).Canvas do begin Font.Name:= 'Arial'; Font.Size:= 18; Font.Style:= [fsBold]; HintInfo.HintColor:= clWhite; end; end;
procedure TForm1.FormCreate(Sender: TObject); begin Application.OnShowHint := MyShowHint; end;