VPF::Как определить запущенное приложение???

maxsa

Дата 3.3.2006, 15:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 3.3.2006

Репутация: нет
Всего: нет

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

bems

Дата 3.3.2006, 15:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

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

--------------------

Обижено школьников: 8

Snowy

Дата 3.3.2006, 15:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

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

Код

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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

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

--------------------

Обижено школьников: 8

Snowy

Дата 3.3.2006, 16:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

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

Код

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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 3.3.2006

Репутация: нет
Всего: нет

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

Cashey

Дата 2.3.2009, 16:07 (ссылка)

(нет голосов)

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: нет
Всего: 60

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

Цитата

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

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

--------------------

библия учит любить ближнего, а камасутра обучает как именно

Snowy

Дата 2.3.2009, 16:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

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

Snowy

Дата 2.3.2009, 17:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Что-то экспандер не экспандит.
Пришлось написать функцию, которая разворачивает полный путь.
Такой 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 (ссылка)

(нет голосов)

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 7
Всего: 158

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

)

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

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

GetLongPathName

wadim

Дата 10.3.2009, 10:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 19.10.2006
Где: г.Тамбов

Репутация: нет
Всего: нет

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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »