Diff for /mozptch/ProcessViewer.pas between versions 1.1 and 1.2

version 1.1, 2004/03/14 12:49:07 version 1.2, 2004/05/30 19:51:15
Line 13 Line 13
 unit ProcessViewer;  unit ProcessViewer;
   
 interface  interface
{$IFDEF MSWINDOWS}
 uses  uses
         Windows, Dialogs, SysUtils, Classes, ShellAPI, TLHelp32, Forms;          Windows, Dialogs, SysUtils, Classes, ShellAPI, TLHelp32, Forms;
   
Line 41  function KillProcessByFileName(FileName: Line 41  function KillProcessByFileName(FileName:
 procedure GetProcessList;  procedure GetProcessList;
 function GetFileNameFromHandle(Handle: hwnd):string;  function GetFileNameFromHandle(Handle: hwnd):string;
 function IsFileActive(FileName: String): boolean;  function IsFileActive(FileName: String): boolean;
{$ENDIF}
 implementation  implementation
{$IFDEF MSWINDOWS}
 procedure GetProcessList;  procedure GetProcessList;
 var  var
         i,Laenge: integer;          i,Laenge: integer;
Line 216  CaptionList.Free;  Line 216  CaptionList.Free; 
 VisibleList.Free;  VisibleList.Free;
 ThreadIdList.Free;  ThreadIdList.Free;
 PIDList.Free;  PIDList.Free;
{$ENDIF}
 end.  end.

Removed from v.1.1  
changed lines
  Added in v.1.2


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>