ANTICHAT — форум по информационной безопасности, OSINT и технологиям

uses 
Psapi, tlhelp32; 

procedure CreateWin9xProcessList(List: TstringList); 
var 
hSnapShot: THandle; 
ProcInfo: TProcessEntry32; 
begin 
if List = nil then Exit; 
hSnapShot := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0); 
if (hSnapShot <> THandle(-1)) then 
begin 
   ProcInfo.dwSize := SizeOf(ProcInfo); 
   if (Process32First(hSnapshot, ProcInfo)) then 
   begin 
     List.Add(ProcInfo.szExeFile); 
     while (Process32Next(hSnapShot, ProcInfo)) do 
       List.Add(ProcInfo.szExeFile); 
   end; 
   CloseHandle(hSnapShot); 
end; 
end; 

procedure CreateWinNTProcessList(List: TstringList); 
var 
PIDArray: array [0..1023] of DWORD; 
cb: DWORD; 
I: Integer; 
ProcCount: Integer; 
hMod: HMODULE; 
hProcess: THandle; 
ModuleName: array [0..300] of Char; 
begin 
if List = nil then Exit; 
EnumProcesses(@PIDArray, SizeOf(PIDArray), cb); 
ProcCount := cb div SizeOf(DWORD); 
for I := 0 to ProcCount - 1 do 
begin 
   hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or 
     PROCESS_VM_READ, 
     False, 
     PIDArray[I]); 
   if (hProcess <> 0) then 
   begin 
     EnumProcessModules(hProcess, @hMod, SizeOf(hMod), cb); 
     GetModuleFilenameEx(hProcess, hMod, ModuleName, SizeOf(ModuleName)); 
     List.Add(ModuleName); 
     CloseHandle(hProcess); 
   end; 
end; 
end; 

 

procedure GetProcessList(var List: TstringList); 
var 
ovi: TOSVersionInfo; 
begin 
if List = nil then Exit; 
ovi.dwOSVersionInfoSize := SizeOf(TOSVersionInfo); 
GetVersionEx(ovi); 
case ovi.dwPlatformId of 
   VER_PLATFORM_WIN32_WINDOWS: CreateWin9xProcessList(List); 
   VER_PLATFORM_WIN32_NT: CreateWinNTProcessList(List); 
end 
end; 

 

function EXE_Running(FileName: string; bFullpath: Boolean): Boolean; 
var 
i: Integer; 
MyProcList: TstringList; 
begin 
MyProcList := TStringList.Create; 
try 
   GetProcessList(MyProcList); 
   Result := False; 
   if MyProcList = nil then Exit; 
   for i := 0 to MyProcList.Count - 1 do 
   begin 
     if not bFullpath then 
     begin 
       if CompareText(ExtractFileName(MyProcList.Strings[i]), FileName) = 0 then 
         Result := True 
     end 
     else if CompareText(MyProcList.strings[i], FileName) = 0 then Result := True; 
     if Result then Break; 
   end; 
finally 
   MyProcList.Free; 
end; 

end;

procedure CheckFile;
var
  f: TextFile;
  s: string;
begin
  AssignFile(f,'c:\1.txt');
  Reset(f);
  Readln(f,s);
  if s='123' then
  begin
    if EXE_Running('1.exe', False) then
      ShowMessage('EXE is running')
    else
      ShowMessage('EXE is not running');
  end;
  CloseFile(f);
end;

uses 
Tlhelp32, Windows, SysUtils; 

function KillTask(ExeFileName: string): integer; 
const 
PROCESS_TERMINATE=$0001; 
var 
ContinueLoop: BOOL; 
FSnapshotHandle: THandle; 
FProcessEntry32: TProcessEntry32; 
begin 
result := 0; 
FSnapshotHandle := CreateToolhelp32Snapshot 
                    (TH32CS_SNAPPROCESS, 0); 
FProcessEntry32.dwSize := Sizeof(FProcessEntry32); 
ContinueLoop := Process32First(FSnapshotHandle, 
                                FProcessEntry32); 
while integer(ContinueLoop) <> 0 do 
begin 
   if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = 
        UpperCase(ExeFileName)) 
    or (UpperCase(FProcessEntry32.szExeFile) = 
        UpperCase(ExeFileName))) then 
     Result := Integer(TerminateProcess(OpenProcess( 
                       PROCESS_TERMINATE, BOOL(0), 
                       FProcessEntry32.th32ProcessID), 0)); 
   ContinueLoop := Process32Next(FSnapshotHandle, 
                                 FProcessEntry32); 
end;  
CloseHandle(FSnapshotHandle); 
end;

1:2
3:4
5:6
7:8
9:10
11:12
13:14
и, т.д.

#include <windows.h>
#include"stdio.h"
HDC hDC;
RECT rect;
static HWND wedit;
static HWND wedit1;
HWND hWnd;
FILE*f;
BYTE chBuff[80],c[80],k,n=0;
int i=0;
WORD cbText;
WNDCLASS wc;

HINSTANCE hInst;
LRESULT CALLBACK WndProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam);


int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,LPSTR lpCmdLine, int nCmdShow)
{
LPCSTR AppName = "Прога";
MSG msg;
hInst = hInstance;
WNDCLASS wc;
ZeroMemory(&wc, sizeof(wc));
wc.style = CS_HREDRAW | CS_VREDRAW;
wc.lpfnWndProc = (WNDPROC)WndProc;
wc.hInstance = hInst;
wc.hIcon = LoadIcon(hInst, IDI_APPLICATION);
wc.hCursor = LoadCursor(NULL, IDC_ARROW);
wc.hbrBackground = (HBRUSH)(COLOR_WINDOW+1);
wc.lpszClassName = AppName;
RegisterClass(&wc);
hWnd = CreateWindow(AppName,AppName,WS_OVERLAPPEDWINDOW,CW_USEDEFAULT, 0,100, 130,NULL,NULL,hInst,NULL);
FreeConsole();
ShowWindow(hWnd, SW_SHOW); // Отображаем окно
UpdateWindow(hWnd); // Перерисовываем окно
while(GetMessage(&msg, NULL, 0, 0))
{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
return msg.wParam;
}

LRESULT CALLBACK WndProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
switch(msg)
{
case WM_CREATE:
CreateWindow("BUTTON","OK",WS_CHILD|BS_PUSHBUTTON|WS_VISIBLE,10,60,90,20,hWnd,0,1,NULL);
wedit=CreateWindow("edit", "",WS_CHILD | WS_VISIBLE| WS_BORDER| ES_CENTER | ES_MULTILINE | ES_WANTRETURN ,5, 5, 100, 20, hWnd, NULL, 1, NULL);
wedit1=CreateWindow("edit", "",WS_CHILD | WS_VISIBLE | WS_BORDER| ES_CENTER| ES_MULTILINE | ES_WANTRETURN ,5, 30, 100, 20, hWnd, NULL, 1, NULL);
SetFocus(wedit);
break;

case WM_DESTROY:
PostQuitMessage(0);
break;

case WM_COMMAND:
hDC=GetDC(hWnd);
switch(LOWORD(wParam))
{
case 0://событие от первой кнопки
if (HIWORD(wParam)==BN_CLICKED)
{
*(WORD*) chBuff = sizeof (chBuff) - 1;
cbText = SendMessage(wedit, EM_GETLINE, 0,(LPARAM)(LPSTR)chBuff);
chBuff[cbText] = '\0';
if((f=fopen("name.txt","r"))==NULL)
{
SetWindowText(wedit1,(LPSTR)(LPCSTR)"ошибка");
}
i=0;
n=0;
while(fscanf(f,"%c",&k),!feof(f))
{
if((k>='0')&&(k<='9'))
{
c[i]=k;
i++;
}
else
{
c[i]='\0';
i=0;
if((k==':')&&(strcmp(c,chBuff)==0))
{
while(fscanf(f,"%c",&c[i]),((c[i]>='0')&&(c[i]<='9')))
{
i++;
}
c[i]='\0';
SetWindowText(wedit1,(LPSTR)(LPCSTR)c);
n=1;
}
}
}
fclose(f);
if(n==0)
{
SetWindowText(wedit1,(LPSTR)(LPCSTR)"не найдено");
}
}
break;
};
DeleteObject(hDC);
break;
default:
return DefWindowProc(hWnd, msg, wParam, lParam);
}

return 0;
}

var
 mas:array of string;
 cnt:integer;
 f:texfile;
x:integer;
s:string;
begin
 assignfile(f,'name.txt');
reset(f);
cnt:=0;
 while not eof(f) do
   begin
     inc(cnt);
    setlength(mas,cnt)
    readln(f,mas[cnt-1]);
   end;
closefile(f);
.............
for x:=0 to cnt-1 do
 begin
  if copy(mas[x],1,pos(':',mas[x])-1)=edit1.text then 
   begin
    s:=mas[x];
   delete(s,1,pos(':',s));
    edit2.text:=s;
    break;
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  f: TextFile;
  s,d: String;
  i: Integer;
begin
  d:=Edit1.Text;
  AssignFile(f,'name.txt');
  Reset(f);
  while not eof(f) do
  begin
    ReadLn(f,s);
    i:=pos(':',s);
    if d=copy(s,1,i-1) then
    begin
      Edit2.Text:=copy(s,i+1,Length(s)-i+1);
      Break;
    end;
  end;
  CloseFile(f);
end;