finde et program under proccessor

Sådan her:

uses
    TlHelp32;


function isExeRunning(const exe: string): boolean;
var
    exeName:    string;
    proc:      PROCESSENTRY32;
    hSnap:      HWND;
    Looper:    BOOL;
begin
    result:=false;
    proc.dwSize:=SizeOf(Proc);
    hSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
    Looper:=Process32First(hSnap,proc);
    while Integer(Looper) <> 0 do begin
        exeName:=ExtractFileName(proc.szExeFile);
        if (lowercase(exeName)=copy(exe,1,length(exeName))) //bemærk at w2k klipper derfor dette
        then begin
            result:=true;
            break;
        end;
        Looper:=Process32Next(hSnap,proc);
    end;
    CloseHandle(hSnap);
end; //is exe running

--nop

Jeg takker nop... Det virker helt efter hensigten... Lægger du et svar... Så sender jeg lidt point...

forresten så kan navne nogen gange optræde som fx: "testafla~.exe" i 98 og nt 4, ellers er det ok. På forhånd tak for pointene. --nop