HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

  #1691  
Старый 02.06.2008, 12:52
BlackSun
Познавший АНТИЧАТ
Регистрация: 01.04.2007
Сообщений: 1,268
С нами: 10058786

Репутация: 4589


По умолчанию

В делфи вот так:

Код:
procedure MyWriteln(const S: string);
var
  NewStr: string;
begin
  SetLengtn(NewStr, Length(S));
  CharToOem(PChar(S), PChar(NewStr));
  Writeln(NewStr);
end;
...
MyWriteln('Русс.яз');
В паскале должно быть по аналогии ..
 
Ответить с цитированием

  #1692  
Старый 02.06.2008, 12:59
krypt3r
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
С нами: 10021597

Репутация: 905


По умолчанию

Для паскаля драйвер должен быть загружен, например, rk.com =))
 
Ответить с цитированием

  #1693  
Старый 02.06.2008, 17:34
0verbreaK
Постоянный
Регистрация: 30.04.2008
Сообщений: 323
С нами: 9489537

Репутация: 136
По умолчанию

Цитата:
Сообщение от Andres  
Ребят, как в Турбо Паскаль 7.0 писать на русском?
Тоесть смотрите например:
Код:
program test;
const
   text='Не важно';
begin
   writeLn(text);
end.
Так вот, в самой программе когда переставляешь на рус.язык, оно просто не переставляеться, точнее переставляеться, но пишеться всеравно на ENG.

Ну так как же можно вот эту часть "тела" программы: " 'Не важно' " - сделать на русском/украинском?!
Переводи с помощью штирлица в дос кодировку и вставляй в исходник, с помощью блокнота.
 
Ответить с цитированием

  #1694  
Старый 02.06.2008, 19:12
KIR@PRO
Постоянный
Регистрация: 26.12.2007
Сообщений: 355
С нами: 9671366

Репутация: 332
По умолчанию

найдется всетаки человек который покажет наконец как отследить на delphi обращения к реестру как regmon тонсть тип действия (Чтение создание изменение) и все параметры.....
 
Ответить с цитированием

  #1695  
Старый 02.06.2008, 19:13
z01b
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
С нами: 10182506

Репутация: 1393


По умолчанию

Цитата:
Сообщение от KIR@PRO  
найдется всетаки человек который покажет наконец как отследить на delphi обращения к реестру как regmon тонсть тип действия (Чтение создание изменение) и все параметры.....
У регмона, исходные тексты открыты. Он написан на WinApi. Разве сложно скачать сырцы и разобраться?
 
Ответить с цитированием

  #1696  
Старый 02.06.2008, 19:47
KIR@PRO
Постоянный
Регистрация: 26.12.2007
Сообщений: 355
С нами: 9671366

Репутация: 332
По умолчанию

z01b да они есть у меня они на си написаны а с си я пока на ВЫ (((( я думал может есть у кого на delphi дак поделятся для изучения...... ну нет дак нет..... беде ковыряться в кодах си (
 
Ответить с цитированием

  #1697  
Старый 02.06.2008, 19:51
0verbreaK
Постоянный
Регистрация: 30.04.2008
Сообщений: 323
С нами: 9489537

Репутация: 136
По умолчанию

Цитата:
Сообщение от KIR@PRO  
найдется всетаки человек который покажет наконец как отследить на delphi обращения к реестру как regmon тонсть тип действия (Чтение создание изменение) и все параметры.....
найтив апи надо юзать, для получения всех обращений, так как обычные является, только переходниками, к более низким.
 
Ответить с цитированием

  #1698  
Старый 02.06.2008, 20:06
desTiny
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
С нами: 10139366

Репутация: 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
 
Ответить с цитированием

  #1699  
Старый 02.06.2008, 20:25
zl0y
Banned
Регистрация: 13.09.2006
Сообщений: 523
С нами: 10346786

Репутация: 925


По умолчанию

Цитата:
Сообщение от KIR@PRO  
найдется всетаки человек который покажет наконец как отследить на delphi обращения к реестру как regmon тонсть тип действия (Чтение создание изменение) и все параметры.....
Глобальным хуком: драйвер,внедрение (dll,кода) во все процессы,сплайсинг апи и.т.д
 
Ответить с цитированием

  #1700  
Старый 02.06.2008, 20:34
t04
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
С нами: 10175096

Репутация: 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
Цитата:
Переводи с помощью штирлица в дос кодировку и вставляй в исходник, с помощью блокнота.
Это ты что то сильно загнул.
 
Ответить с цитированием
Ответ



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ! Alexsize Беспроводные технологии/Wi-Fi/Wardriving 2570 09.06.2026 16:21
[jQuery] - Задай вопрос, получи ответ Isis PHP 62 25.12.2009 03:25



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.