Quero Criar uma aplicação que registre em txt todos os programas abertos na minha maquina.

20/07/2017

0

Olá amigos, Eu estou querendo uma aplicação que salve em um log de texto os programas que são abertos no meu Pc. já procurei algo parecido já tentei fazer algo com o meu conhecimento mas ate agora não conseguir nada :/

teria com você mim ajuda?
quero uma coisa simples por exemplo criar uma aplicação que funcione em segundo plano ao iniciar o pc ate ai tudo bem.

mas o que falta mesmo é fazer uma aplicação que registre os aplicativos EXE em texto
ex. aplicativo aberto em segundo plano ao abrir um exe ele registraria o nome e se possível o caminho em um log. C:\\Logexe.txt

tipo assim ou pelo nomes so o nome do arquivo Camera Capture
C:\\Program Files (x86)\\USB 2.0 PC CAMERA\\Camera Capture.exe

ficarei aguardando algo abraços...
Fabricio Martins

Fabricio Martins

Responder

Posts

21/07/2017

Luiz Vichiatto

Tudo bom Fabricio?
Então, sobre a sua questão segue um post que pode te auxiliar.

O que deseja são os programas que vemos quando clicamos com o botão direito na barra do menu iniciar e clicamos no item Gerenciador de Tarefas, foi o que entendi.

Assim leia e poste, acredito que irá te auxiliar.

https://www.devmedia.com.br/forum/listar-executaveis-em-execucao/371384

Abraços e sucesso!
Responder

21/07/2017

Fabricio Martins

O melhor que conseguir chegar ate agora foi isso abaixo ele registra tudo que esta aberto na barra de tarefa. claro que se eu deixar o aplicativo continuo ele vai registrar tudo que vai ser aberto porem não mostra o caminho apenas os nomes. que para mim já é grande coisa :)



unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button2: TButton;
    ListBox1: TListBox;
    procedure Button2Click(Sender: TObject);

   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



Function EnumWindowsProc (Wnd: HWND; lb: TListbox): BOOL; stdcall;
var caption: Array [0..128] of Char;
begin
Result := True;
if IsWindowVisible(Wnd) and
((GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) or
(HWND(GetWindowLong(Wnd, GWL_HWNDPARENT)) = GetDesktopWindow))and
((GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW) = 0)
then
begin
SendMessage( Wnd, WM_GETTEXT, Sizeof(caption),integer(@caption));
lb.Items.AddObject( caption,TObject( Wnd ));
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
EnumWindows( @EnumWindowsProc, integer( listbox1 ));
end;


end.



Até agora já é um grande começo :) vamos lá aplicativo criando vai fica aberto em segundo plano registrando todos os arquivos aberto.
em um Listbox ou Memo ai eu faço que ele guarde em um log.txt para depois ser visualizado e não ter perca de inf. quando o pc for desligado.
Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar