Task abschiessen unter Win2k

[runger]

Hallo,

folgendes Problem:
Wir müssen auf einem Win2k Rechner den Prozess sendsms.exe abschiessen.
Ich hab mir Luckies Demo gezogen, hab ein Konsolenprogramm geschrieben. Hat auch alles prima funktioniert, bis wir das ganze auf
einem Südafrikanischen ( engl. installiert ) Rechner ausprobiert haben. Dort klappt das nicht.
Kann jemand erklären warum?

Delphi-Quellcode:

{******************************************************************************} 
{**                                                                          **} 
{** ProzessID an Hand der Exe-Datei ermittlen                                **} 
{**                                                                          **} 
{******************************************************************************} 
function GetProcessID(sProcName: String): Integer; 
var 
  hProcSnap: THandle;
  pe32: TProcessEntry32;
begin 
  result := -1;
  hProcSnap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0); 
  if hProcSnap = INVALID_HANDLE_VALUE then exit; 

  pe32.dwSize := SizeOf(ProcessEntry32); 

  { wenn es geklappt hat } 
  if Process32First(hProcSnap, pe32) = true then 
    { und los geht's: Prozess suchen} 
    while Process32Next(hProcSnap, pe32) = true do 
    begin 
      if pos(sProcName, pe32.szExeFile) <> 0then 
        result := pe32.th32ProcessID; 
    end; 
CloseHandle(hProcSnap); 
end; 

{******************************************************************************} 
{**                                                                          **} 
{** Prozess beenden                                                          **} 
{**                                                                          **} 
{******************************************************************************} 
procedure KillProcess(dwProcID: DWORD); 
var 
  hProcess : Cardinal; 
  dw       : DWORD; 
begin
  If dwprocID=-1 then
     begin
       Writeln('Process not started');
       exit;
     end;
  { open the process and store the process-handle } 
  hProcess := OpenProcess(SYNCHRONIZE or PROCESS_TERMINATE, False, dwProcID); 
  { kill it } 
  TerminateProcess(hProcess, 0); 
  { TerminateProcess returns immediately, so wie have to verify the result via 
    WaitfForSingleObject } 
  dw := WaitForSingleObject(hProcess, 5000); 
  case dw of 
    { everythings's all right, we killed the process } 
    WAIT_OBJECT_0: writeln('Terminate Process');

    { process could not be terminated after 5 seconds }
    WAIT_TIMEOUT:
    begin
      Writeln('Process could not be terminated, because Timeout');
      CloseHandle(hProcess);
      exit;
    end;
    { error in calling WaitForSingleObject }
    WAIT_FAILED:
    begin
//      RaiseLastOSError;
      Writeln('Process could not be terminated.');
      CloseHandle(hProcess);
      exit; 
    end; 
  end; 
  CloseHandle(hProcess); 
end;


begin
  { TODO -oUser -cConsole Main : Hier Code einfügen }
   KillProcess(GetProcessID('Sendsms.exe')); // in edit1 muss zb icq.exe stehen
end;

Nachtrag: der User hat Adminrechte und auch sonst ist alles so wie bei uns???

Danke
Rainer

[Treffnix]

:gruebel:

auf deutschen Rechnern klappts aber auch unter W2k, richtig?

Was klappt denn auf dem englischen/afrikanischen nicht? Kannste das genauer eingrenzen? Gibts ne Exception? Wird der Prozess nicht gefunden, oder nur nicht abgeschossen?

*edit* das RaiseLastOSError solltest du zumindest zum Fehler suchen mal wieder einbauen.

[Basilikum]

diese Zeile könnte heikel sein (von wegen Gross-Klein-Schreibung):

Delphi-Quellcode:

if pos(sProcName, pe32.szExeFile) <> 0 then

würde ich durch

Delphi-Quellcode:

if pos(LowerCase(sProcName), LowerCase(pe32.szExeFile)) <> 0 then

ersetzen

[Luckie]

Ich denke mal es, wird an Unicode liegen. Die haben wohl zwar das englische Windows installiert, aber eventuell als Sparche Englisch (Südafrikanisch) eingestellt, womit dann ein Unicode-Zeichensatz zum Einsatz kommt.

[runger]

Hallo, vielen Dank,

es war was ganz anderes. Der Name der Anwendung war bei mir killproc.exe.
Mein Kollege hat das Ding umbenannt in killsendsms.exe und dann nach Südafrika übertragen.
Killproc läuft, killsendsms kann ich zwar starten aber passiert nichts.
Kann es sein, dass Konsolenprogramme nur einen 8 Zeichen langen Namen haben dürfen?
Gleich vorweg: die Partition ist mit NTFS formatiert und wir benutzen Win2k.

Rainer

[Olli]

Das Problem könnte die Länge sein, denn bei mir erscheint die "ApacheMonitor.exe" immer als "ApacheMonitor.e". Auf beliebigen Systemen und mit beliebigen Funktionen (also egal ob direkt Native API oder PSAPI oder sonstwas benutzt wird). Der Name muß also auch stückchenweise verglichen werden.

Nachtrag: Eigentlich sind die internen Strukturen so ausgelegt, daß bis zu 32k Unicodezeichen verwaltet werden, aber irgendwo hängt's wohl dennoch. Aber 8 ist offensichtlich nicht die Grenze.