Управление компонентами(видимыми и невидиммыми) в чужой программе(любой)

[Alter]

Сообщение от Tokolist

вот довольно таки неплохая статья по этому поводу
_http://rsdn.ru/article/qna/baseserv/enumproc.xml

Что-то неншёл там как путь к файлу запущенной программы определить. Тем тем более там на "Сях" написано. Лучше бы что-нибудь на Delphi или Pascal. Первое предпочтительнее.

[rpy3uH]

вот код на дельфи

function GetFullNameByPID(PID: DWORD): string;
var
 hProcess, Readed: DWORD;
 Info: PROCESS_BASIC_INFORMATION;
 ProcessParams: Pointer;
 UniFileName: TUnicodeString;
 FileName: array[0..MAX_PATH] of WideChar;
begin
 Result := '';
 ZeroMemory(@FileName, MAX_PATH * SizeOf(WideChar));
 hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, PID);
 if ZwQueryInformationProcess(hProcess, ProcessBasicInformation, @Info,
      SizeOf(PROCESS_BASIC_INFORMATION), nil) = STATUS_SUCCESS then
  begin
   if ReadProcessMemory(hProcess, pointer(dword(Info.PebBaseAddress) + $10), @ProcessParams,
        SizeOf(pointer), Readed) and
      ReadProcessMemory(hProcess, pointer(dword(ProcessParams) + $38), @UniFileName,
        SizeOf(TUnicodeString), Readed)  and
      ReadProcessMemory(hProcess, UniFileName.Buffer, @FileName,
                        UniFileName.Length, Readed) then
        begin
          Result := WideCharToString(FileName);
        end;
   end;
 CloseHandle(hProcess);
end;

но нужны дополнительные структуры и надо много стуктур
вот некоторые

 NTStatus = cardinal;

PUnicodeString = ^TUnicodeString;
  TUnicodeString = packed record
    Length: Word;
    MaximumLength: Word;
    Buffer: PWideChar;
  end;

Function ZwQueryInformationProcess(
                                ProcessHandle:THANDLE;
                                ProcessInformationClass:DWORD;
                                ProcessInformation:pointer;
                                ProcessInformationLength:ULONG;
                                ReturnLength: PULONG):NTStatus;stdcall;
                                external 'ntdll.dll';

PROCESS_BASIC_INFORMATION = packed record
   ExitStatus: BOOL;
   PebBaseAddress: pointer;
   AffinityMask: PULONG;
   BasePriority: dword;
   UniqueProcessId: ULONG;
   InheritedFromUniqueProcessId: ULONG;
  end;

если ещё будут ошибки скажи

[Tokolist]

Сообщение от Alter

Что-то неншёл там как путь к файлу запущенной программы определить. Тем тем более там на "Сях" написано. Лучше бы что-нибудь на Delphi или Pascal. Первое предпочтительнее.

Честно говоря, язык программирования в данном случае играет второстепенную роль
а то что Вы там не нашли как это сделать значит, что Вы плохо искали
но, к счастью, у Вас уже есть готовый пример реализации одного из способов на Delphi

[Alter]

Хоть что-то есть

[Diktofon]

А как получить доступ к компонентам чужой программы (один исполняемый файл, в котором реализован графический интерфейс) через MATLAB? У меня есть exe-шник, у него на форме парочка Edit Text и пара кнопок. Меня интересует: есть ли хоть какая то возможность получить к этим компонентам доступ из MATLABа? По возможности, оперировать ими, т.е. изменять значения текстовых строк в Edit Text и вызывать действие "нажатия" кнопок?

Да, забыл упомянуть, что я не в курсе, на чем написан exe-шник. Может быть, это С, но я не уверен.

[Diktofon]

никто не в курсе? а из Delphi такое возможно?

[rpy3uH]

если надо получить доступ из MATLAB к твоей проге, то такое врядли получится.

[Diktofon]

rpy3uH, а какими другими способами можно получить доступ к этим компонентам? Как я понял, вышеописанные процедуры относятся к получению доступа из Delphi к программам, написанным на Delphi. Если моя программа была написана, скажем, на С, и я хочу получить к ней доступ из Delphi, эти процедуры будут работать?

[Пепел Феникса]

язык не важен
я из Дельфи получал доступ к прогам на С
таам используется ВИНАпи, а он и в африке ВИНАпи

просто программы на Дельфи имеют свои названия классов окон
а у С свои

[rpy3uH]

Diktofon, я неправильно понял задачу. Надо из Delphi-программы получить доступ к программе MATLAB, так можно, но надо очень сильно захотеть.