[opel431]

Лучше, если делать с обработкой ошибок. Убедится, что функции возвращают результат...

Код:

var
Res : Integer;
....
Res:= ReadProcessMemory('hProcess', 'lpBaseAddress', 'lpBuffer, nSize', '*lpNumberOfBytesRead');
  if Res <> 0 then
  RaiseLastOSError
else
begin
 //
end;...

времени много, посмотрел советы у других
1. Попробовать явно сделать приведение типов

Код:

type
 size_t = cardinal;

2. или последний параметр изменить - SizeOf(i)

[qpash]

Попробовал на delphi 2009 и ошибка пропала, но в заголовке вместо параметра командной строки выводит иероглифы. Пробовал добавить AnsiString - теперь вместо иероглифов вопросы (добавил тут Caption:=AnsiString (trim(Str))

[qpash]

Часто в сети встречается вот такой код:

Код:

function GetProcessCmdLine(PID:DWORD):string;
{©Drkb v.3(2007): www.drkb.ru}
var
 h:THandle;
 pbi:TProcessBacicInformation;
 ret:NTSTATUS;
 r:Cardinal;
 ws:WideString;
begin
 result:='';
 if pid=0 then exit;
 h:=OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, FALSE, pid);
 if h=0 then exit;
 try
  ret:=NtQueryInformationProcess(h,ProcessBasicInformation,@pbi,sizeof(pbi),@r);
  if ret=STATUS_SUCCESS then
  if ReadProcessMemory(h,pbi.PebBaseAddress.ProcessParameters.CommandLine.Buffer,PWideChar(ws),
  pbi.PebBaseAddress.ProcessParameters.CommandLine.Length,r) then
  result:=string(ws);
 finally
 closehandle(h)
 end
end;

Но тут ругается сразу же на TProcessBacicInformation - не найден. Наверное что-то прописать еще надо, библиотеку какую-то

[opel431]

Если уж unicode, то почему не - GetCommandLineW?
function WideCharToString(Source: PWideChar): string;

[opel431]

Часто в сети встречается вот такой код: »

Смотреть нужно из первого источника - http://www.delphikingdom.com/asp/ans...IDAnswer=62376