Сайт программеров города Караганды


Здорово,чувак!	Добро пожаловать! Вы попали на сайт программистов из Караганды

Главное меню

· Главная
· форум
· гостевая книга
· проги
· глюки
· шпаргалки
· фишки
· Java-cкрипты
· видео
· написать письмо
· редактор сайта

Информация

Этот раздел моего сайта представлен программером 'Alex'. Эти проги сделаны чисто в проге Delphi. Если вы хотите заказать какую-нибудь прогу, то пишите мне на мыло, и мы договорися.

Optimizer

программа для оптимизации HTML страниц, ищет и удаляет лишние символы из текста.
скачать эту прогу

Runkill

Если вы сомневаетесь в какой-нибудь программе, то запустите ее через Runkill, и вы сможете кбить эту задачу просто нажав на Esc.
скачать эту прогу

Cursor

Прога для управления курсором с клавы. F12- клик левой. Tab- зажать/отжать клик левой. ESC- выход. Kурсор - стрелками.
Что бы приноровится к этой проге надо постараться. Для перетаскивания окна ставим на caption f12 (для активации), потом tab. Для того чтобы зажать клик после перемещения опять f12, короче разбирайтесь сами.
P.S. побаловаться можно!!!
скачать эту прогу

Delete docs

Прога быстро удаляет ярлыки последних документов.Неплохое дополнение к виндозе!
скачать эту прогу

Base

Scripts это прога-шпаргалка для начинающих программистов. Удобный поиск в базе данных (на 300 мест). За секунду вы найдёте нужный вам скрипт.
Скрыть- ESC Путь проги - здесь устанавливается путь системы программирования в последствии её можно будет запускать прямо из программы с помощью кнопки "RUN" Редактировать базу - жмёте здесь, и появляется окно: с полем для ввода названия скрипта, и полем для ввода текста скрипта и кнопками "Принять скрипт","Закрыть","Перейти" В поле над кнопкой "Перейти" вводите номер скрипта и жмете на кнопку "Перейти" потом набираете текст, и вводите название скрипта жмете кнопку "принять скрипт" сохраняете и обновляете закрываете и скрипт в вашем распоряжении (набираете имя скрипта в месагебоксе, и он выскакивает в мемо) P.S. надеюсь ясно, а если нет, то шлите на мыло вопросы и пожелания.
скачать эту прогу

Oom

'OOM 2' это прога для просмотра оперативки.'Pause break' to exit. P.S: показавает во многих играх и занимает мало места в памяти и на диске. 'OOM 3' это прога для просмотра оперативки.'Pause break' to exit. P.S: Немного упрощена. P.P.s решайте сами что лучше!
скачать эту прогу

защита

notopen прога для зашаривания файлов в случае, когда на вашем компе работают несколько людей и надо защитить файлы от удаления, перемещения и открытия Инструкция: Запускаете 'writepassword.exe' и вводите пароль на английском, затем открываете 'notopen.exe' >.>>>> на 'c:\' появляется файл 'files.info' открываете через блокнот и пишите полные пути папок, которые надо зашарить (не забудьте про вложенные папки!!!!) Запускаете ещё раз 'writepassword.exe' и вводите пароль на английском Примечания: опытный пользователь найдет, как обойти защиту, защита работает только в одной системе, не пугайтесь если новый antivirus увидел в этой программе троянский модуль (hide.dll) эта библиотека нужна чтобы программу не было видно через CTRL+ALT+DEL), файл не представляет угрозы) P.S: если ваш antivirus не видит этого, значит он гавно! P.P.S: берите каспера 2006 он увидит!
скачать эту прогу

test

Это программа для тестирования учащихся по различным предметам. Текст теста можно записывать самим. Количество вопросов практически не ограничено. При простом открытии текстового документа не видно ответов. Вопросы задаются в произвольном порядке. (в комплекте идут сразу две проги: сам тест и записывающая прога вопросов для теста.)
скачать эту прогу

Тексты программ на Delphi.

Микро прога

program miniprog;
uses windows;
begin
//код
repeat
//код
sleep(1);//задержка 1 доля
until false;
end.

Потоки

тестировалось без формы крутой способ запустить поток!!! Кодоэкономичен, не тянет за собой "Classes"!!!Из него можно работать с глобальными переменными без проблем. В памяти чистый поток весит ~7.5Kb!
program pot;

uses windows;
procedure execute;
begin
repeat
sleep(1);
until false;
ExitThread(0);
end;
procedure go;
var
h1: cardinal;
p:pointer;
begin
createthread(nil, 128, @execute, p, 0, h1);
end;
begin
go;
repeat
sleep(100);
until getasynckeystate(19)<>0
end.
////////////////////////////////////////////////////////////////

procedure execute;
begin
//текст потока
repeat
sleep(1);
until false;
//текст потока
ExitThread(0);
end;
procedure go;//процедура запуска потока
var
h1: cardinal;
p:pointer;
begin
createthread(nil, 128, @execute, p, 0, h1);
end;

Правильное использование.

if GetAsyncKeyState(27)<0 then close;
27-esc
19-pause break
112..123-f1..f12
ctrl-17
shift-16
8- back
32-spacу
91- win
93- context
44-printscreen
45-insert
46-delete
9-tab
40-down
38-up
37-left
39-right
и тд.

Функции.

это функция для перевода числа в строку:
function inttostr(i:integer):string;
begin
str(i,result);
end;

эта функция выводит текст на экране поверх всего адаптирована под вывод информации в играх есть побочные эффекты в простой работе (оставляет след на окнах)

uses windows;
procedure text(x,y:word;color:byte;s:string);
var
SDC: hDC;
begin
sdc:= GetDC(0);
settextcolor(sdc,color);
textout(sdc,x,y,pchar(s),length(s));
ReleaseDC(0,sdc);
end;

эта функция для получения размера свободной памяти ПК (в виде строки) используется совместно с функцией inttostr

uses windows;
function mem:string;
var
Status: TMemoryStatus;
begin
Status.dwLength := sizeof(TMemoryStatus);
GlobalmemoryStatus(Status);
result:='M: ' + IntToStr(Status.dwAvailPhys div 1048576) + ' Mb';
end;

получить буквы всех носителей нформации. Я немного изменил код даный в dw6

var
ld,i: byte;
begin
ld := GetLogicalDrives;
for i := 0 to 25 do
begin
if (ld and (1 shl i)) <> 0 then
combobox1.Items.Add(Char(Ord('A') + i) + ':\');
end;
end;

автозапуск в реестре

uses registery;
procedure autorun(name,fullname:string);
var
h: TRegistry;
begin
h := TRegistry.Create;
with h do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', true);
WriteString(name, fullname);
CloseKey;
Free;
end;
end;

определить путь запущеной программы (самой себя)

uses windows;
function ShowexePath:string;
var
TheFileName: array[0..MAX_PATH] of char;
begin
FillChar(TheFileName, sizeof(TheFileName), #0);
GetModuleFileName(hInstance, TheFileName, sizeof(TheFileName));
result:=string(TheFileName);
end;
скачать эти тексты

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