Kan man få sit program til at tjekke hele tiden?

Ikke umiddelbart. Men maaske en traad som loeber gennem alle processer og checker for noget hvert sekund og informerer main traad hvis den finder noget.

kan du koden til det?

hvis du smider din email kan jeg sende dig koden til en processviewer og en watchdog

carstenblaach@gmail.com

Jape44, jeg er ikke den bedste til delphi, så jeg synes det er lidt svært at overskue. så tænkte på om du ikke lige kunne sende mig en mail, der fortæller hvordan man skal gøre? ( jeg har sendt en mail hvor det er uddypet)

undskyld men det er ret irriterende, når problemer her bliver diskuteret og løst udenfor eksperten. så når andre med det samme problem søger sig frem til det her topic, så er det bare spild af tid :\

man må IKKE

tildele point for en løsning, der ikke er tilgængelig for alle Eksperten.dk’s brugere.


tildele point for en opgave løst uden om Eksperten.dk (f.eks. opgaver løst via mail, ICQ eller telefon)

rolig nu, jeg kan jo ikke vedhæfte sourcekode her vel ? og kommunikationen fortsætter her.

Men jeg kan jo poste de API kald som jo er den centrale del i spørgsmålet.
bemærk psapi.dll ligger i C:\windows\system32


unit psapi;

{$WEAKPACKAGEUNIT ON}
interface

uses Windows;

type
PHInst = ^HInst;
TModuleInfo = record
  lpBaseOfDll : pointer;
  SizeOfImage : Integer;
  EntryPoint : pointer
end;

TPSAPIWsWatchInformation = record
  FaultingPc : pointer;
  FaultingVa : pointer
end;

TProcessMemoryCounters = record
  cb : Integer;
  PageFaultCount : Integer;
  PeakWorkingSetSize : Integer;
  WorkingSetSize : Integer;
  QuotaPeakPagedPoolUsage : Integer;
  QuotaPagedPoolUsage : Integer;
  QuotaPeakNonPagedPoolUsage : Integer;
  QuotaNonPagedPoolUsage : Integer;
  PagefileUsage : Integer;
  PeakPagefileUsage : Integer
end;

function EnumProcesses (pidList : PInteger; cb : Integer; var cbNeeded : Integer): boolean; stdcall;
function EnumProcessModules (hProcess : THandle; moduleList : PHInst; cb : Integer; var cbNeeded : Integer) : boolean; stdcall;
function GetModuleBaseName (hProcess : THandle; module : HInst; BaseName : Pchar; size : Integer) : Integer; stdcall;
function GetModuleFileNameEx (hProcess : THandle; module : HInst; FileName : PChar; size : Integer) : Integer; stdcall;
function GetModuleInformation(hProcess : THandle; module : HInst; var info : TModuleInfo; size : Integer) : boolean; stdcall;
function EmptyWorkingSet (hProcess : THandle) : boolean; stdcall;
function QueryWorkingSet (hProcess : THandle; var pv; size : Integer) : boolean; stdcall;
function InitializeProcessForWsWatch (hProcess : THandle) : boolean; stdcall;
function GetWsChanges (hProcess : THandle; var WatchInfo : TPSAPIWsWatchInformation; size : Integer) : boolean; stdcall;
function GetMappedFileName (hProcess : THandle; pv : pointer; FileName : PChar; size : Integer) : Integer; stdcall;
function EnumDeviceDrivers (var ImageBase : Integer; cb : Integer; var cbNeeded : Integer) : boolean; stdcall;
function GetDeviceDriverBaseName (ImageBase : Integer; BaseName : PChar; size : Integer) : Integer; stdcall;
function GetDeviceDriverFileName (ImageBase : Integer; FileName : PChar; size : Integer) : Integer; stdcall;
function GetProcessMemoryInfo (hProcess : THandle; var ProcessMemoryCounters : TProcessMemoryCounters; size : Integer) : boolean; stdcall;

implementation

const psapidll = 'psapi.dll';

function EnumProcesses; external psapidll;
function EnumProcessModules; external psapidll;
function GetModuleBaseName; external psapidll name 'GetModuleBaseNameA';
function GetModuleFileNameEx; external psapidll name 'GetModuleFileNameExA';
function GetModuleInformation; external psapidll;
function EmptyWorkingSet; external psapidll;
function QueryWorkingSet; external psapidll;
function InitializeProcessForWsWatch; external psapidll;
function GetWsChanges; external psapidll;
function GetMappedFileName; external psapidll name 'GetMappedFileNameA';
function EnumDeviceDrivers; external psapidll;
function GetDeviceDriverBaseName; external psapidll name 'GetDeviceDriverBaseNameA';
function GetDeviceDriverFileName; external psapidll name 'GetDeviceDriverFileNameA';
function GetProcessMemoryInfo; external psapidll;
end.