Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Как определить запущенное приложение???

Автор: maxsa 3.3.2006, 15:12

Всем здрасти!!!!!!
У меня такая проблемма. Как сделать что бы моё свёрнутое приложение, оприделяло приложение с которым я работаю.....
Т.е. к примеру я работаю с блокнотом, а моё приложение записало в текстовый файл текст 'notepad.exe', включил калькулятор, приложение записало в файл 'calc.exe' и т.д.

Автор: bems 3.3.2006, 15:20

SetWindowsHookEx->WM_ACTIVATE(WM_ACTVATEAPP)->ParamStr(0)

Автор: Snowy 3.3.2006, 15:53

Ну вот пример для консоли. Переделай под файл или что там у тебя.

Код

program Project2;

{$APPTYPE CONSOLE}

uses
  Windows, Messages;

const BufLen = 2048;
var
  h: THandle;
  p: PChar;
begin
  GetMem(p, BufLen);
  h := GetForegroundWindow;
  repeat
    if GetForegroundWindow <> h then
    begin
      h := GetForegroundWindow;
      SendMessage(h, WM_GETTEXT, BufLen, integer(p));
      WriteLn(p);
    end;
  until false;
end.

Автор: bems 3.3.2006, 15:55

а имя файла как получить?

Автор: Snowy 3.3.2006, 16:50

Если нужно имя файла, тогда так:

Код

program Project2;

{$APPTYPE CONSOLE}

uses
  Windows, Messages, TlHelp32;

var
  h, pr: THandle;
  pid: HINST;
  me32: TModuleEntry32;
begin
  h := GetForegroundWindow;
  repeat
    if GetForegroundWindow <> h then
    begin
      h := GetForegroundWindow;
      GetWindowThreadProcessId(h, @pid);
      pr := CreateToolHelp32Snapshot(TH32CS_SNAPMODULE, pid);
      me32.dwSize := SizeOf(me32);
      Module32First(pr, me32);
      WriteLn(me32.szExePath);
      CloseHandle(pr);
    end;
    Sleep(100);
  until false;
end.

Автор: maxsa 3.3.2006, 18:23

Спасибо!!!!.......... smile

Автор: Cashey 2.3.2009, 16:07

Snowy, твой код в целом работает, но me32.szExePath содержит путь в дос формате например:

Цитата

C:\PROGRA~1\COMMON~1\MICROS~1\VFP\FOXHHE~1.EXE

а как получить полный путь нормальными буквами?

Автор: Snowy 2.3.2009, 16:53

Странно, у меня нормально выдаёт.
Ну, раз короткий формат, то используй ExpandFileName

Автор: Snowy 2.3.2009, 17:48

Что-то экспандер не экспандит.
Пришлось написать функцию, которая разворачивает полный путь.
Такой ExtractShortPathName наоборот.
Хотя ощущение, что изобретаю велосипед.

Код

function ExtractFullPathName(FileName: string): string;
var
  s: string;
  function ExpandName(fn: string): string;
  var
    sr: TSearchRec;
  begin
    if FindFirst(fn, faAnyFile, sr) = 0 then
      Result := StrPas(sr.FindData.CFileName)
    else Result := ExtractFileName(fn);
    FindClose(sr);
  end;
begin
  s := FileName;
  Result := '';
  while Length(s) > 3 do
  begin
    if Result = '' then Result := ExpandName(s)
    else Result := ExpandName(s) + '\' + Result;
    s := ExtractFileDir(s);
  end;
  Result := s + Result;
end;

Автор: dumb 3.3.2009, 06:22

Цитата(Cashey @ 2.3.2009, 16:07

)

код в целом работает, но me32.szExePath содержит путь в дос формате

значит процесс запускался с указанием именно "короткого" имени.

http://msdn.microsoft.com/en-us/library/aa364980(VS.85).aspx

Автор: wadim 10.3.2009, 10:03

Это всё очень хорошо!
Но вот и продолжение вопроса:
а ежели это окошко принадлежит DOS-приложению
- как найти путь/имя файла?