ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
24.03.2010, 11:11
|
|
Новичок
Регистрация: 06.01.2010
Сообщений: 23
Провел на форуме:
349200
Репутация:
1
|
|
Объясните функцию finfist- мне нужен поиск фаилов по определенным критериям+ вывоводить путь с названием в стринг (пример c:\tp7\bin\ololo.pas)
|
|
|
24.03.2010, 11:56
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
function FindFirst(const Path: string; Attr: Integer;
var F: TSearchRec)
Объясление функции
простейшая программа поиска
PHP код:
var
F: TSearchRec;
Path: string;
Attr: Integer;
begin
{Искать все файлы в заданной директории с расширение .pas}
Path := 'c:\tp7\bin\*.pas';
{которые имеют атрибуты "Только для чтения" и "Архивный"}
Attr := faReadOnly + faArchive;
FindFirst(Path, Attr, F);
{Если хотя бы один файл найден, то продолжить поиск}
if F.name <> '' then
begin
ListBox1.Items.Add(Path,F.name); {Добавление в TListBox пути и имени найденного файла}
while FindNext(F) = 0 do
ListBox1.Items.Add(Path,F.name);
end;
FindClose(F);
end.
Последний раз редактировалось EndLeSSDre@M; 24.03.2010 в 12:02..
|
|
|
|
24.03.2010, 12:35
|
|
Новичок
Регистрация: 06.01.2010
Сообщений: 23
Провел на форуме:
349200
Репутация:
1
|
|
Сообщение от EndLeSSDre@M
function FindFirst(const Path: string; Attr: Integer;
var F: TSearchRec)
Объясление функцииспасибо, весьма помог
|
|
|
|
24.03.2010, 15:13
|
|
Новичок
Регистрация: 06.01.2010
Сообщений: 23
Провел на форуме:
349200
Репутация:
1
|
|
Кстати, по неведомым прчинам ругается на TSearchRec
|
|
|
|
24.03.2010, 18:48
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791
Репутация:
265
|
|
Подскажите как отрубить клавиатуру? но не всю а что бы можно было выбрать какие кнопки оставить...
вот этим кодом вырубил диспечер
procedure TForm1.FormActivate(Sender: TObject);
var
reg: tregistry;
begin
reg:=treginifile.create();
with reg do
begin
rootkey:=hkey_current_user;
openkey('software\microsoft\windows\currentversion \policies\system', true);
writeinteger('disabletaskmgr', 1);
free;
end;
end;
Но желательно вырубить всю клаву 
Последний раз редактировалось stepashka_; 24.03.2010 в 19:34..
|
|
|
|
24.03.2010, 20:05
|
|
Познающий
Регистрация: 14.08.2009
Сообщений: 51
Провел на форуме:
997316
Репутация:
123
|
|
Я недавно увлекся Delphi.
Подскажите пожалуйста как в программу добавить полосу загрузки, а точнее как ее "активировать". Какой код прописать в кнопке чтобы эта загрузка типа пошла?
|
|
|
|
24.03.2010, 20:17
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
ProgressBar.
Почитай вот это http://www.delphisources.ru/forum/showthread.php?t=2464
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
25.03.2010, 13:35
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
Сообщение от stepashka_
Подскажите как отрубить клавиатуру?
PHP код:
procedure BlockInput(ABlockInput: boolean); stdcall; external 'USER32.DLL';
// Вызываем функцию из DLL'ки
//Пример использования:
procedure TForm1.N1Click(Sender: TObject);
begin
BlockInput(True);
// Вот собственно этим мы и блокируем клаву и мышь
// (для обратного исхода надо вместо True написать False)
end;
задавайте больше вопросов)))) а то я со скуки умираю))
Последний раз редактировалось EndLeSSDre@M; 25.03.2010 в 13:38..
|
|
|
|
25.03.2010, 13:45
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791
Репутация:
265
|
|
Сообщение от EndLeSSDre@M
PHP код:
procedure BlockInput(ABlockInput: boolean); stdcall; external 'USER32.DLL';
// Вызываем функцию из DLL'ки
//Пример использования:
procedure TForm1.N1Click(Sender: TObject);
begin
BlockInput(True);
// Вот собственно этим мы и блокируем клаву и мышь
// (для обратного исхода надо вместо True написать False)
end;
задавайте больше вопросов)))) а то я со скуки умираю)) а как можно оставить определённые клавиши рабочими?
|
|
|
|
25.03.2010, 14:07
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
на примере одного кода:
PHP код:
type
//тут добавляешь какие клавиши тебе нужны
TKeyType = (ktCapsLock, ktNumLock, ktScrollLock);
procedure SetLedState(KeyCode: TKeyType; bOn: Boolean);
var
KBState: TKeyboardState;
Code: Byte;
begin
case KeyCode of
ktScrollLock: Code := VK_SCROLL;
ktCapsLock: Code := VK_CAPITAL;
ktNumLock: Code := VK_NUMLOCK;
end;
GetKeyboardState(KBState);
if (Win32Platform = VER_PLATFORM_WIN32_NT) then
begin
if Boolean(KBState[Code]) <> bOn then
begin
keybd_event(Code,
MapVirtualKey(Code, 0),
KEYEVENTF_EXTENDEDKEY,
0);
keybd_event(Code,
MapVirtualKey(Code, 0),
KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,
0);
end;
end
else
begin
KBState[Code] := Ord(bOn);
SetKeyboardState(KBState);
end;
end;
// это в саму кнопку добавляешь:
procedure TForm1.Button1Click(Sender: TObject);
begin
SetLedState(ktCapsLock, True); // CapsLock on
SetLedState(ktNumLock, True); // NumLock on
SetLedState(ktScrollLock, True); // ScrollLock on
end;
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
