ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
02.06.2008, 12:52
|
|
Members of Antichat - Level 5
Регистрация: 01.04.2007
Сообщений: 1,268
Провел на форуме:
10046345
Репутация:
4589
|
|
В делфи вот так:
Код:
procedure MyWriteln(const S: string);
var
NewStr: string;
begin
SetLengtn(NewStr, Length(S));
CharToOem(PChar(S), PChar(NewStr));
Writeln(NewStr);
end;
...
MyWriteln('Русс.яз');
В паскале должно быть по аналогии .. |
|
|
02.06.2008, 12:59
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
Для паскаля драйвер должен быть загружен, например, rk.com =))
|
|
|
|
02.06.2008, 17:34
|
|
Постоянный
Регистрация: 30.04.2008
Сообщений: 323
Провел на форуме:
379101
Репутация:
136
|
|
Сообщение от Andres
Ребят, как в Турбо Паскаль 7.0 писать на русском?
Тоесть смотрите например:
Код:
program test;
const
text='Не важно';
begin
writeLn(text);
end.
Так вот, в самой программе когда переставляешь на рус.язык, оно просто не переставляеться, точнее переставляеться, но пишеться всеравно на ENG.
Ну так как же можно вот эту часть "тела" программы: " 'Не важно' " - сделать на русском/украинском?! Переводи с помощью штирлица в дос кодировку и вставляй в исходник, с помощью блокнота.
|
|
|
|
02.06.2008, 19:12
|
|
Постоянный
Регистрация: 26.12.2007
Сообщений: 353
Провел на форуме:
905389
Репутация:
332
|
|
найдется всетаки человек который покажет наконец как отследить на delphi обращения к реестру как regmon тонсть тип действия (Чтение создание изменение) и все параметры.....
|
|
|
|
02.06.2008, 19:13
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
Провел на форуме:
2360904
Репутация:
1393
|
|
Сообщение от KIR@PRO
найдется всетаки человек который покажет наконец как отследить на delphi обращения к реестру как regmon тонсть тип действия (Чтение создание изменение) и все параметры.....
У регмона, исходные тексты открыты. Он написан на WinApi. Разве сложно скачать сырцы и разобраться?
|
|
|
|
02.06.2008, 19:47
|
|
Постоянный
Регистрация: 26.12.2007
Сообщений: 353
Провел на форуме:
905389
Репутация:
332
|
|
z01b да они есть у меня они на си написаны а с си я пока на ВЫ (((( я думал может есть у кого на delphi дак поделятся для изучения...... ну нет дак нет..... беде ковыряться в кодах си (
|
|
|
|
02.06.2008, 19:51
|
|
Постоянный
Регистрация: 30.04.2008
Сообщений: 323
Провел на форуме:
379101
Репутация:
136
|
|
Сообщение от KIR@PRO
найдется всетаки человек который покажет наконец как отследить на delphi обращения к реестру как regmon тонсть тип действия (Чтение создание изменение) и все параметры.....
найтив апи надо юзать, для получения всех обращений, так как обычные является, только переходниками, к более низким.
|
|
|
|
02.06.2008, 20:06
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
Сообщение от 0verbreaK
найтив апи надо юзать, для получения всех обращений, так как обычные является, только переходниками, к более низким.
Зачем? Никто, почти кроме системы, родной апи не использует, а так можно поставить хуки на RegQueryValueEx и ижес ним и радоваться жизни...
Про хуки - смотри в гугле  Или справку по апи по функциям типа SetWindowsHookEx
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
02.06.2008, 20:25
|
|
Banned
Регистрация: 13.09.2006
Сообщений: 523
Провел на форуме:
2869410
Репутация:
925
|
|
Сообщение от KIR@PRO
найдется всетаки человек который покажет наконец как отследить на delphi обращения к реестру как regmon тонсть тип действия (Чтение создание изменение) и все параметры.....
Глобальным хуком: драйвер,внедрение (dll,кода) во все процессы,сплайсинг апи и.т.д
|
|
|
|
02.06.2008, 20:34
|
|
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
Провел на форуме:
246020
Репутация:
105
|
|
Сообщение от Andres
Ребят, как в Турбо Паскаль 7.0 писать на русском?
Тоесть смотрите например:
Код:
program test;
const
text='Не важно';
begin
writeLn(text);
end.
Так вот, в самой программе когда переставляешь на рус.язык, оно просто не переставляеться, точнее переставляеться, но пишеться всеравно на ENG.
Ну так как же можно вот эту часть "тела" программы: " 'Не важно' " - сделать на русском/украинском?!
Делай так
Код:
program test;
function AnsiToDos(mes: String):String;
var
i: Word;
begin
for i := 1 to length(mes) do
case mes[i] of
'А'..'п': mes[i] := Chr(Ord(mes[i]) - 64);
'р'..'я': mes[i] := Chr(Ord(mes[i]) - 16);
Chr(168): mes[i] := Chr(240);
Chr(184): mes[i] := Chr(241);
end;
//для Delphi надо так:
//Result := mes;
//Для Пискаля так:
AnsiToDos := mes;
end;
const
text='Не важно';
begin
writeLn(AnsiToDos(text));
end.
2 0verbreaK
Переводи с помощью штирлица в дос кодировку и вставляй в исходник, с помощью блокнота.
Это ты что то сильно загнул.
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
