lalala
asked on
grabtext
how can i build in Delphi an app that get every runing aplication em send it to a editbox?
Pls be more specific, i don't untherstand what you wannt...
do you wannt to count how many times your app is beein started?
do you wannt to count how many times your app is beein started?
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Viktor, This will only get Delphi applications!
The code below will put all names of all running processes (applications) into a treeview...
Cheers,
Raymond.
implementation
uses
tlHelp32;
{$R *.DFM}
procedure TForm1.Button1Click(Sender : TObject);
var
hSnapshot : THandle;
pe : TPROCESSENTRY32;
begin
hSnapshot := CreateToolhelp32Snapshot(T H32CS_SNAP PROCESS, 0);
if hSnapshot = THandle(-1) then
Exit;
pe.dwSize := sizeof(pe);
if Process32First(hSnapshot, pe) then
repeat
TreeView1.Items.AddChild(T reeView1.i tems[0], pe.szExeFile);
until not Process32Next(hSnapshot, pe);
CloseHandle(hSnapshot);
end;
end.
The code below will put all names of all running processes (applications) into a treeview...
Cheers,
Raymond.
implementation
uses
tlHelp32;
{$R *.DFM}
procedure TForm1.Button1Click(Sender
var
hSnapshot : THandle;
pe : TPROCESSENTRY32;
begin
hSnapshot := CreateToolhelp32Snapshot(T
if hSnapshot = THandle(-1) then
Exit;
pe.dwSize := sizeof(pe);
if Process32First(hSnapshot, pe) then
repeat
TreeView1.Items.AddChild(T
until not Process32Next(hSnapshot, pe);
CloseHandle(hSnapshot);
end;
end.
lalala: Have you used an answer posted here? If so which one?
Cheers,
Raymond.
Cheers,
Raymond.
Raymond, you going through all your proposed answers/comments? ;-)
do you wannt to count how many times your app is beein started?