Как определить класс стороннего приложения.

[Son]

Привет. Фукнция FindWindows возвращает хендел по названию или по классу окна. Как можно узнать класс окна, допустим зная его название? Задача: нужно обратиться к проигрывателю (Media Player Classic).

Вот код. Что ту неправильно?

procedure TForm1.Button2Click(Sender: TObject);
  var cl:PChar;idi:HWND;
begin
  idi:=FindWindow(nil,'Косынка');
  GetClassName(idi,cl,10);
  Memo1.Text:=cl;
end;

В результате: S‹Ш‹ГивО

[rpy3uH]

procedure TForm1.Button1Click(Sender: TObject);
  var cl:array[0..255] of char;
  idi:HWND;
begin
  idi:=FindWindow(nil,'Косынка');
  GetClassName(idi,@cl,10);
  ShowMEssage(cl);
end;

[Son]

И вот еще какая проблема. Delphi 7 ругается на функцию GetModuleUsage.
[Error] Unit1.pas(40): Undeclared identifier: 'GetModuleUsage'.
Какой модуль необходимо подключить?

[rpy3uH]

а такая функция вообще существует? а если существует, то из какой она операционной системы?

[Son]

Вот пример http://www.delphiworld.narod.ru/base...other_app.html
Скачал функции API там тоже указана эта процедура.
Функция GetModuleUsage

Описание:
function GetModuleUsage(Module: THandle): Integer;
Считывает счетчик обpащений к модулю.
Паpаметpы:
Module: Идентификатоp модуля.
Возвpащаемое значение:
Значение счетчика обpащений.

[rpy3uH]

эти функции старые и использовались в 16 битных Win 3.x
есть более современный вариант.

procedure TForm1.Button1Click(Sender: TObject);
var
  Rlst: LongBool;
  StartUpInfo: TStartUpInfo;
  ProcessInfo: TProcessInformation;
  Error: integer;
  ExitCode: Cardinal;
begin
  FillChar(StartUpInfo, SizeOf(TStartUpInfo), 0);
  StartUpInfo.cb := SizeOf(TStartUpInfo);
  StartUpInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
  StartUpInfo.wShowWindow := SW_SHOWNORMAL;

  Rlst := CreateProcess('C:\Windows\System32\calc.exe', nil, nil, nil, false, NORMAL_PRIORITY_CLASS, nil, nil, StartUpInfo, ProcessInfo);
  WaitforSingleObject(ProcessInfo.hProcess, INFINITE); 
  ShowMessage('процесс звершён');
end;

[Son]

Все работает! спасибо большое rpy3uH!