Проект CLEO: новые опкоды

Sanchez · 18-04-2007 09:58

2All:
satrainer.cleo - простенький трйнер:
http://slil.ru/24253660

Infinite Health       F5
Infinite Ammo         F6
Infinite Money        F7
Freeze Time           F8
Respect               F9

listener:
В Express нету *.h файлов для компиляции.

Seemann · 18-04-2007 13:11

2Sanchez:
Норм, только надо бы еще Unfreeze сделать wink

Кстати, ты как делал проверку нажатия? У меня событие KeyPressed получается через GetKeyState, а вот KeyUp или KeyDown никак. Т.е. мне нужна функция на апи, которая возвращает true, если кнопка была отпущена или нажимается (но не нажата). Не знаешь как сделать?

Sanchez · 20-04-2007 08:59

Кстати, ты как делал проверку нажатия?

SetTimer
GetAsyncKeyState

Вот здесь посмотри: http://foolroot.nm.ru/satrainer.rar

Seemann · 20-04-2007 10:07

результат GetAsyncKeyState не равен 0? Вроде делал так, но это не помогает в случае KeyUp/KeyDown.

Проверка нажатия у меня

function KeyPressed(const Key: Smallint): Boolean;
begin
  Result := Hi(GetKeyState(Key))=$FF;
end;

Sanchez · 20-04-2007 10:27

Т.е. мне нужна функция на апи, которая возвращает true, если кнопка была отпущена или нажимается (но не нажата). Не знаешь как сделать?

Попробуй через хуки или обрабатывай сообщения, посылаемые программой.

Seemann · 21-04-2007 15:13

C  	Pascal

&  	AND
|  	OR
^  	XOR
<<	 SHL
>> 	SHR
~  	NOT

знатоки си, я правильно написал соответствия операторов с++ и паскаль?

listener · 21-04-2007 16:46

2Seemann:
В целом правильно, только обуял меня склероз на старости лет:
в паскале логические и битовые AND и OR отличаются?

&, | и ~ - битовые
&&, || и ! - логические.

Seemann · 21-04-2007 17:06

в паскале логические и битовые AND и OR отличаются?

видимо да. Оператор один, различия проводятся по типу операндов. Если оба булевы то OR = ||. Если оба integer: OR = |

Вроде так, но я никогда этим не пользовался. Хочу в опкодах сделать, на гтафорумс просили

мне нужны только битовые

Last edited by Seemann (21-04-2007 17:08)

listener · 21-04-2007 17:23

мне нужны только битовые

тогда все правильно

Sanchez · 22-04-2007 10:32

У меня событие KeyPressed получается через GetKeyState, а вот KeyUp или KeyDown никак.

Описание:
function GetKeyState(VirtKey: Integer): Integer;

Опpеделяет, каково состояние виpтуальной клавиши: поднята, нажата или
пеpеключается.

Паpаметpы:
VirtKey: Виpтуальная клавиша.

Возвpащаемое значение:
Клавиша нажата, если стаpший бит pавен 1, и клавиша пеpеключается, если младший
бит pавен 1.

Seemann · 22-04-2007 10:42

2Sanchez:

Клавиша нажата, если стаpший бит pавен 1, и клавиша пеpеключается, если младший
бит pавен 1.

там фишка в том, что младший бит постоянно переключается. Нажал кнопку - 0, нажал еще раз 1, опять нажал 0. Т.е. по нему узнать нельзя. Можно правда запоминать какое значение было в последний раз и проверять изменилось ли оно, но как сделать это для первого раза? Короче или я туплю, или одно из двух. Мне бы рабочий код wink

С нажатой кнопкой проблем нет, функцию постил выше.

Alexander · 23-04-2007 11:28

Вот гении скажите мне , как запустить приложение ShellExecute/WinExec/Createprocess из ДЛЛ , чтобы ещё запущеное приложение не было активным . А то окно СА сворачивается .

listener · 23-04-2007 12:18

Alexander wrote:

Вот гении скажите мне , как запустить приложение ShellExecute/WinExec/Createprocess из ДЛЛ , чтобы ещё запущеное приложение не было активным . А то окно СА сворачивается .

Посмотреть мануал по ShellExecute на предмет параметра nShowCmd.

SW_SHOWMINNOACTIVE -- Displays the window as a minimized window. The active window remains active.
SW_SHOWNA -- Displays the window in its current state. The active window remains active.
SW_SHOWNOACTIVATE -- Displays a window in its most recent size and position. The active window remains active.

Seemann · 23-04-2007 12:19

2Alexander:
Я тут подумал, а нафик тебе форма в приложении, если она невидима? пиши консольное приложение.

2listener:
я уже предлагал ему это. видимо, не помогло

Last edited by Seemann (23-04-2007 12:20)

Alexander · 23-04-2007 19:27

2Seemann : гы , я не знаю , как в консольном приложении можно использовать компонент mediaplayer , у которого предком являеться TObject

Seemann · 24-04-2007 13:45

2Alexander:
можно на torry.net или vclcomponents.com поискать альтернативу MediaPlayer'у.

listener · 24-04-2007 17:21

Alexander wrote:

2Seemann : гы , я не знаю , как в консольном приложении можно использовать компонент mediaplayer , у которого предком являеться TObject

А зачем?

Во-первых, сильно кастрированный плеер есть в самом gta_sa.exe. Теоретически, можно подсунуть произвольный mp3/ogg/wma в очередь. (но этот кусок я еще серьезно не разбирал).

Во-вторых, собрать собственный media-graph для произвольного файла - строчек 100 кода (курить документацию и примеры к DirectShow). Искать где-то в районе описания интерфейса IGraphBuilder.

Sanchez · 28-04-2007 08:27

2Alexander:
Использую API: sndPlaySound, PlaySound

 uses 
 mmsystem; 
 
 // PLAY 
 sndPlaySound('C:\DELPHIWORLD.WAV', SND_ASYNC); 
 
 // Loop Mode (зацикливание) 
 sndPlaySound('C:\DELPHIWORLD.WAV', SND_ASYNC + SND_LOOP); 
 
 //STOP 
 sndPlaySound(nil, SND_ASYNC);

Sanchez · 28-04-2007 09:09

MP3 можно через mci устройство проигрывать:

uses
  mmsystem;

// play

procedure tform1.button1click;
const
  filename = 'file.mp3';
begin
  mciSendString(PChar('play ' + filename), nil, 0, 0);
end;

// stop

procedure tform1.button1click;
const
  filename = 'file.mp3';
begin
  mciSendString(PChar('stop ' + filename), nil, 0, 0);
end;

Last edited by Sanchez (28-04-2007 09:09)

Alexander · 28-04-2007 12:05

-хы , щас тест .
-Пашет , а можно сделать проверку , закончился ли проигрываемый файл ?

(С) спс

Last edited by Alexander (28-04-2007 12:54)

Tector · 03-05-2007 15:03

Не уверен, но, возможно, поможет PlaySound('recycle.wav', 0, SND_SYNC); Если правильно понимаю, то тебе нужна проверка для выполнения дальнейших действий, а эта команда вернет управление программе только после проигрывания файла

SannyBuilder.com Forums

#26 18-04-2007 09:58

Re: Проект CLEO: новые опкоды

#27 18-04-2007 13:11

Re: Проект CLEO: новые опкоды

#28 20-04-2007 08:59

Re: Проект CLEO: новые опкоды

#29 20-04-2007 10:07

Re: Проект CLEO: новые опкоды

#30 20-04-2007 10:27

Re: Проект CLEO: новые опкоды

#31 21-04-2007 15:13

Re: Проект CLEO: новые опкоды

#32 21-04-2007 16:46

Re: Проект CLEO: новые опкоды

#33 21-04-2007 17:06

Re: Проект CLEO: новые опкоды

#34 21-04-2007 17:23

Re: Проект CLEO: новые опкоды

#35 22-04-2007 10:32

Re: Проект CLEO: новые опкоды

#36 22-04-2007 10:42

Re: Проект CLEO: новые опкоды

#37 23-04-2007 11:28

Re: Проект CLEO: новые опкоды

#38 23-04-2007 12:18

Re: Проект CLEO: новые опкоды

#39 23-04-2007 12:19

Re: Проект CLEO: новые опкоды

#40 23-04-2007 19:27

Re: Проект CLEO: новые опкоды

#41 24-04-2007 13:45

Re: Проект CLEO: новые опкоды

#42 24-04-2007 17:21

Re: Проект CLEO: новые опкоды

#43 28-04-2007 08:27

Re: Проект CLEO: новые опкоды

#44 28-04-2007 09:09

Re: Проект CLEO: новые опкоды

#45 28-04-2007 12:05

Re: Проект CLEO: новые опкоды

#46 03-05-2007 15:03

Re: Проект CLEO: новые опкоды

Board footer