Check om program kører

If Dir('c:\***********') <> '1' then  ?

du kan trykke ctrl+alt+delete, og så kommer der en oversigt som skulle vise alt hvad computeren kører.

Valla kig på kat :P

det kan du gøre ved hjælp af findwindow:

if findwindow(nil, 'MSN Messenger') <> 0 then
  Showmessage('Messenger kører') else
  Showmessage('Messenger kører ikke');

Du kan gøre det ved hjælp af caption og/eller classname, se i hjælp om findwindow

sry

Eller ved hjælp af exe filens navn:

Uses TlHelp32;

Type
  TEnumData = Record
    hW: HWND;
    pID: DWORD;
  End;

Function EnumProc( hw: HWND; Var data: TEnumData ): Bool; stdcall;
  Var
    pID: DWORD;
  Begin
    Result := True;
    If (GetWindowLong(hw, GWL_HWNDPARENT) = 0) and
      (IsWindowVisible( hw ) or IsIconic(hw))
    Then Begin
      GetWindowThreadProcessID( hw, @pID );
      If pID = data.pID Then Begin
        data.hW := hW;
        Result := False;
      End; { If }
    End; { If }
  End; { EnumProc }

Function WindowFromProcessID( pID: DWORD ): HWND;
  Var
    data: TEnumData;
  Begin
    data.pID := pID;
    data.hW := 0;
    EnumWindows( @EnumProc, longint(@data) );
    Result := data.hW;
  End; { WindowFromProcessID }

Function WindowFromAppname32( appname: String ): HWND;
  { Take only the application filename, not full path!
    Need to pass the extension as well. }
  Var
    snapshot: THandle;
    processEntry : TProcessEntry32;
  Begin
    Result := 0;
    snapshot := CreateToolhelp32Snapshot(
                  TH32CS_SNAPPROCESS,
                  0 );
    If snapshot <> 0 Then
    try
      processEntry.dwSize := Sizeof( processEntry );
      If Process32First( snapshot, processEntry ) Then
      Repeat
        If AnsiCompareText(
            appname,
            ExtractFilename( StrPas(processEntry.szExeFile))
            ) = 0
        Then Begin
          Result:= WindowFromProcessID( processEntry.th32ProcessID);
          Break;
        End; { If }
      Until not Process32Next( snapshot, processEntry );
    finally
      CloseHandle( snapshot );
    End; { try }
  End; { WindowFromAppname32 }


procedure TForm1.Button1Click(Sender: TObject);
begin
if WindowFromAppname32('msnmsgr.exe') <> 0 then
  ShowMessage('Messenger kører')
else
  ShowMessage('Messenger kører ikke');
end;

Hvilken metode er sikkrets?

tryk ctrl + alt + del og vælg jobliste (i XP) og vælg prosesser der kan du se alt der er i gang.

jesper_bn, Lur lige hvilken kategori det her er...
Du er her : Eksperten : Programmering : Delphi..

Den rigtige metode at hente joblisten frem på er ctrl-skift-esc.

Det løser bare ikke spørgerens problem. Umiddelbart ser dkn's eksempel lettest ud, mens hejhej's er flottest.

Darkside > LUR mener du ikke lue (fra email fra lønneberg)