ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
10.02.2009, 12:02
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Команда на получение листинга дитектории:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
Searchrec: Tsearchrec;
s:string;
begin
FindFirst('C:\*.*', FaAnyfile, SearchRec);
if (SearchRec.Attr and faDirectory)<>0 then s:='C:\' else s:='C:\';
memo2.Lines.Add(s+SearchRec.Name);
while FindNext(SearchRec) = 0 do
begin
if (SearchRec.Attr and faDirectory)<>0 then s:='C:\' else s:='C:\';
memo2.Lines.Add(s+SearchRec.Name);
end;
end;
Подскажите плиз, как сделать так, чтобы скрытые файлы и папки были помечены тегами [h][/h]
то есть:
file1.exe
[h]hidefile.exe[/h]
file2.exe |
|
|
10.02.2009, 17:05
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
Djezul Вот пример реализации через Хуки и dll http://hacker.3dn.ru/publ/7-1-0-31
Сам использую
|
|
|
|
10.02.2009, 17:37
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
Сообщение от Nightmarе
Команда на получение листинга дитектории:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
Searchrec: Tsearchrec;
s:string;
begin
FindFirst('C:\*.*', FaAnyfile, SearchRec);
if (SearchRec.Attr and faDirectory)<>0 then s:='C:\' else s:='C:\';
memo2.Lines.Add(s+SearchRec.Name);
while FindNext(SearchRec) = 0 do
begin
if (SearchRec.Attr and faDirectory)<>0 then s:='C:\' else s:='C:\';
memo2.Lines.Add(s+SearchRec.Name);
end;
end;
Подскажите плиз, как сделать так, чтобы скрытые файлы и папки были помечены тегами [h][/h]
то есть:
file1.exe
[h]hidefile.exe[/h]
file2.exe if (SearchRec.Attr = faHidden) then
Memo1.Lines.Add('[h]' + SearchRec.Name + '[/h]');
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
10.02.2009, 23:43
|
|
Познающий
Регистрация: 01.03.2008
Сообщений: 99
Провел на форуме:
613745
Репутация:
51
|
|
Помогите решить пожалуйста. Задача олимпиадная, но рабочего решения найти не могу(
Найти числа, меньшие N, которые представляется суммой четырех квадратов натуральных чисел не единственным образом.
|
|
|
|
10.02.2009, 23:48
|
|
Новичок
Регистрация: 14.06.2008
Сообщений: 29
Провел на форуме:
221810
Репутация:
3
|
|
Привет всем.
Скажите пожалуйста...
как определить Handle активного окна.
Нужно чтобы по таймеру велся лог программы с которой сейчас работает пользователь.
|
|
|
|
10.02.2009, 23:51
|
|
Познающий
Регистрация: 01.03.2008
Сообщений: 99
Провел на форуме:
613745
Репутация:
51
|
|
Сообщение от PAXAn
Привет всем.
Скажите пожалуйста...
как определить Handle активного окна.
Нужно чтобы по таймеру велся лог программы с которой сейчас работает пользователь.
Получить Handle и имя класса окна под мышкой
Код:
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
procedure ShowHwndAndClassName(CrPos: TPoint);
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Timer1Timer(Sender: TObject);
var
rPos: TPoint;
begin
if Boolean(GetCursorPos(rPos)) then ShowHwndAndClassName(rPos);
end;
procedure TForm1.ShowHwndAndClassName(CrPos: TPoint);
var
hWnd: THandle;
aName: array [0..255] of Char;
begin
hWnd := WindowFromPoint(CrPos);
Label1.Caption := 'Handle : ' + IntToStr(hWnd);
if Boolean(GetClassName(hWnd, aName, 256)) then
Label2.Caption := 'ClassName : ' + string(aName)
else
Label2.Caption := 'ClassName : not found';
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.FormStyle := fsStayOnTop;
Timer1.Interval := 50;
end;
|
|
|
|
10.02.2009, 23:57
|
|
Новичок
Регистрация: 14.06.2008
Сообщений: 29
Провел на форуме:
221810
Репутация:
3
|
|
а можно чтобы вместо вместо handle текущего класса...возвращала handle программы которой он принадлежит
|
|
|
|
11.02.2009, 00:25
|
|
Новичок
Регистрация: 14.06.2008
Сообщений: 29
Провел на форуме:
221810
Репутация:
3
|
|
все...разобрался уже.....большое спасибо
|
|
|
|
11.02.2009, 18:33
|
|
Познавший АНТИЧАТ
Регистрация: 07.05.2006
Сообщений: 1,031
Провел на форуме:
5885100
Репутация:
773
|
|
Какие существуют методы для позиционирования на N-й записи таблицы.
|
|
|
|
12.02.2009, 00:26
|
|
Познавший АНТИЧАТ
Регистрация: 07.05.2006
Сообщений: 1,031
Провел на форуме:
5885100
Репутация:
773
|
|
никто не знает?
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
