Luk applikation

det kan man godt ja

Jeg mener jeg har nogle kode stumper, til at hente alle programmer som køre ... en et andet eksempel til at lukke et valgt program.

Skrive din mail adr. og jeg sende det.
//dl

fatter_keine@dumazz.dk

er sendt.
//dl

øhh>  hvem fik point ?
//dl

>>dl, Kan du ikke lægge dine kodestumper her istedte.

Denne kode: finder alle programmer som køre på din pc, ligt ligesom  Taskbaren.

program StopProcess;
{$APPTYPE CONSOLE}
uses
  Windows,Messages,SysUtils;

function EnumWindowsProc(WHandle: HWND; LParM: LParam): Boolean; StdCall
Export;
var
  Title, ClassName: array[0..128] of char;
  sTitle , sClass : STRING ;
begin
  Result := TRUE ;
  GetWindowText(WHandle, Title, 128);
  GetClassName(WHandle, ClassName, 128);
  sTitle := Title ;
  sClass := ClassName ;
  IF ParamCount > 0 THEN BEGIN
      Result := UpperCase(sClass) = UpperCase(ParamStr(1));
      IF ParamCount > 1 THEN
        Result := Result AND ( UpperCase(sTitle) = UpperCase(ParamStr(2)));
      Result := NOT Result ;
      IF NOT Result THEN
        PostMessage(WHandle,WM_Close,0,0);
  END ELSE
      WRITELN(sClass , '/' , sTitle,' Handle = ',WHandle );
end;

begin
  EnumWindows(@EnumWindowsProc, $0);
end.

og denne kode, kan lukke lukke en application.

procedure TForm1.btnFindWindowClick(Sender: TObject);
var
  FoundHwnd: THandle;
  bfr: array[0..255] of Char;
begin
  FoundHwnd := FindWindow(nil, PChar(txtWindowTitle.Text));
  if FoundHwnd <> 0 then
  begin
    lblWindowHandle.Caption := IntToStr(FoundHwnd);
    lblWindowHandle.Tag := FoundHwnd;
    FillChar(bfr, 256, 0);
    GetClassName(FoundHwnd, bfr, 255);
    lblWindowClass.Caption := bfr;
  end
  else
  begin
    lblWindowHandle.Caption := '';
    lblWindowHandle.Tag := 0;
    lblWindowClass.Caption := '';
  end;
end;

procedure TForm1.btnCloseFOundWindowClick(Sender: TObject);
begin
  if lblWindowHandle.Caption <> '' then
    SendMessage(lblWindowHandle.Tag, WM_CLOSE, 0, 0);
end;

Og så må du lige selv rette det lidt til.
//dl

øhh>  hvem fik point ?
//dl

>>dl, det ser ud til at du fik 100 point den 28/06-2004 20:59:33.

Hvor ser i det ?

ps. takker for dem. ;)

I venstre kolonne, nr. fire fra toppen. Du har også i sin tid fået en mail.

Accepteret svar: dl
28/06-2004 20:59:33
Point: 100,00

= der hvor du har skrevet:
er sendt.
//dl

det har jeg ikke noget af... men jeg er så heller ikke betalingsbruger herinde.

//dl