Есть у меня своя программа. И есть некоторая сторонняя программа, которая имеет несколько возможных параметров запуска. Так вот я запускаю эту стороннюю программу через shellexecute и передаю туда нужные параметры запуска.
На самом деле эти параметры запуска «секретные», там пароли, коды и всё такое, которые посторонние люди знать не должны, но люди пользуясь сторонним софтом эти параметры выдирают. Можно ли после запуска программы их стереть, как будто я запускал программу без каких-либо параметров запуска?

Anton911

memoffset = $85004; // смещение указателя на адрес где параметры от kernel32.dll

procedure DetectCode;

  var

    wBuff: Array[0..350] of Char;

    sBuff,tBuff:String;

    point_addr, kernelBase:DWORD;

    wHandle, ProcessID, pHandle, BytesCount: cardinal;

    i:Integer;

begin

 Form1.Console.Clear;

 pHandle := 0;

 wHandle := 0;

 kernelBase := GetModuleHandle(PWideChar('Kernel32.dll'));

 ShellExecute(0,'Open', PWideChar(ExtractFilePath(ParamStr(0)) + 'proga.exe'),

                PWideChar(GetParam), nil, SW_SHOWNORMAL);

 while wHandle = 0 do wHandle := IsProgRun;

 if wHandle  0 then

  begin

   GetWindowThreadProcessId(wHandle, @ProcessID);

   pHandle := OpenProcess(PROCESS_ALL_ACCESS, FALSE, ProcessID);

   if not ReadProcessMemory(pHandle, Pointer(kernelBase + memoffset), @point_addr, sizeof(point_addr), BytesCount) then

   Form1.Console.Lines.Add('Не могу получить адресс указателя на смещение');

   {}

   sBuff := wBuff;

   FillChar(wBuff, SizeOf(wBuff), #0);

   tBuff := Copy(sBuff, 1, Pos('-password=', sBuff) - 1);

   Delete(sBuff, 1, Pos('-password=', sBuff) - 1);

   if Pos(' ', sBuff)  0 then

    begin

     Delete(sBuff,1, Pos(' ', sBuff));

     tBuff := tBuff + sBuff;

    end;

   for i := 0 to Length(tBuff) - 1 do

    begin

     wBuff := tBuff;

    end;

   if not WriteProcessMemory(pHandle, Pointer(point_addr), @wBuff, sizeof(wBuff), BytesCount) then

    Form1.Console.Lines.Add('Не могу внедриться в программу');

 end;

end;

Пеллетные котлы Kostrzewa — автоматические твердотопливные котлы с ёмкостью бункера обеспечивающего непрерывную работу — 1 неделю и больше. Автоматический розжиг и модуляция процесса горения от 20% до 100%.

тема на форуме

Есть база, там прописан полный путь к файлу. Мне нужно распечатать этот файл, просто отправив его на печать. (читать всё…)

При нажатии на кнопку нужно, чтобы открылась папка. Например: D:\games. А если папки не существует, то выдается ошибка. Какой код нужно написать для кнопки? (читать всё…)

avd

При запуске Win приложение как положено запускается, но в меню программы есть пункт «справка». При открытии программы пользователем справка открывается, а при автозапуске программы нет. Как это исправить? (читать всё…)

как перевести строковое значение (адрес веб сайта) в значение типа PAnsiChar? (читать всё…)

(читать всё…)

(читать всё…)

Как в Delphi вызвать окно Windows Открыть с помощью… для выбора соответсвующей программы для открытия определённого файла. (читать всё…)

У меня есть *.ехе — шник, который обрабатывает файл находящийся в некоторой директории. Если в пути к файлу имеется пробел, например: (читать всё…)

Задача такова: есть TPopupMenu. В него динамически добавляются элементы, которые в качестве Caption содержат директории (C:\,F:\ и тд). Нужно динамически прописать, чтобы при клике на элемент его Caption исполнялся в ShellExecute. Возможно такое сделать? (читать всё…)