Quero Criar uma aplicação que registre em txt todos os programas abertos na minha maquina.
20/07/2017
0
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
Posts
21/07/2017
Luiz Vichiatto
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!
21/07/2017
Fabricio Martins
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.
Clique aqui para fazer login e interagir na Comunidade :)