Artikelah « Dani Amarullah

View Process & Kill

Hmmm Bete ga puguh mending aja sigw post lagi dechhh,wekekekekek….
sekarang si gw maubagi2 lagi artikel yang si gw dah kumpulin dan mau berbagi dengan teman2..hehehehe yaitu buat aplikasi untuk melihat semua prosess di windows yang sedang berjalan wokeyyy, serta untuk meng KILL nya,wakakakakaka…
langsung aja ke TKP,wakakakaka… pertama biasa

siapkan :

Cemilan
Roko
Kopi
Winamp
dan Berdoa jangan lupa,hehehehe

Ok langsung aja buka delphi nya brooooooo
Ini Source nya broooooo(cuma dikit ko listing nya,wekekekekkekee)….

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, 
  Controls, Forms, Dialogs, StdCtrls, TLHelp32, ExtCtrls;

type
  TForm1 = class(TForm)
  Button1: TButton;
  ListBox2: TListBox;
  Button2: TButton;
  procedure Button1Click(Sender: TObject);
  procedure Button2Click(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
  end;

var
  Form1: TForm1;
  x,a : integer;
  CaptionApplication : String;

implementation

{$R *.dfm}

function KillTask(ExeFileName: string): Integer;
const
  PROCESS_TERMINATE = $0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  Result := 0;
  FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
  FProcessEntry32.dwSize:=SizeOf(FProcessEntry32);
  ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32);
  while Integer(ContinueLoop)0 do  begin
  if (
     (UpperCase(ExtractFileName(FProcessEntry32.szExeFile))=
       UpperCase(ExeFileName)) 
      or
     (UpperCase(FProcessEntry32.szExeFile)=
       UpperCase(ExeFileName))
    ) then
    Result :=
    Integer(
      TerminateProcess(
      OpenProcess(
        PROCESS_TERMINATE,
        BOOL(0),
        FProcessEntry32.th32ProcessID
      ),
      0
      )
    );
   ContinueLoop:=Process32Next(FSnapshotHandle,FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

procedure TForm1.Button1Click(Sender: TObject);
Var
  MyHandle: THandle;
  Struct: TProcessEntry32;
begin
  ListBox2.Clear;
  if listbox2.ItemIndex < 0 then
  listBox2.itemindex := 0;
  MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
  Struct.dwSize:=Sizeof(TProcessEntry32);
  if Process32First(MyHandle, Struct) then
  ListBox2.Items.Add(Struct.szExeFile);
  while Process32Next(MyHandle, Struct) do
  ListBox2.Items.Add(Struct.szExeFile);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if ListBox2.ItemIndex >= 0 then
  begin
  CaptionApplication:=ListBox2.Items.Strings[listBox2.itemindex];
  if CaptionApplication  '' then
  begin
    KillTask(CaptionApplication);
    Button1.Click;
  end
  else
    Button1.Click;
  end;
    Button1.Click;
end;

end.

Syntax Highlighted with http://delphi-id.org/syntax

bisa didonlot semua source di sini —-> Download here…

SkrinSuuut nya…

Beressss deh, semoga bermanfaat ya brooooo…. Wakakakakaaaaa

July 20, 2007 Posted by p2bf | Artikelah, D3lPhE | 2 Comments

Membuat splash screen

Splash screen merupakan tampilan yang kita lihat pertama kali waktu kita menjalankan sebuah aplikasi. Splash screen ini biasanya ditampilkan untuk mengurangi kejenuhan user sewaktu program masih dalam tahap inisialisasi.

Untuk membuat splash scren tersebut caranya sebagai berikut :

Bikin dulu form utamanya.
Tambahkan form yang akan digunakan sebagai splash screen (dari menu File, pilih New Form). Beri nama form tersebut dengan FrmSplash.
Tambahkan komponen Timer (terletak pada tab Win32), beri nama dengan tmMainTimer.
Tambahkan kode berikut pada events onTimer dari komponen Timer tersebut :
tmMainTimer.Enabled := False;
Dari menu Project, pilih Options.
Pindah ke tab Forms.
Dari bagian auto create forms akan terlihat dua buah form. Pilih Form yang akan digunakan sebagai splash screen dan klik tombol “>” untuk memindah form splash screen ke bagian Available forms.
Kalau sudah klik OK.
Sekarang dari menu View, pilih Project Source. Pada program utama buatlah form splash screen sebelum inisialisasi dilakukan.

Untuk lebih jelasnya lihat potongan program berikut ini :

program Project1;

uses
Forms,
   Unit1 in ‘Unit1.pas’ {Form1},
   Unit2 in ‘Unit2.pas’ {FrmSplash};

{$R *.RES}

begin
   FrmSplash := TFrmSplash.Create(Application);
   FrmSplash.Show;
   FrmSplash.Update;
   while FrmSplash.tmMainTimer.Enabled do
   Application.ProcessMessages;
   Application.Initialize;
   Application.CreateForm(TForm1, Form1);
   FrmSplash.Hide;
   FrmSplash.Free;
   Application.Run;
end.