Cara Mendeteksi Running Application di Delphi 7

7

Posted by Bayu Idham Fathurachman Delphi 7, Function, Procedure, Proggraming, Registry, tips trik | 0 komentar

Ya ampuun , udah lama banget blog ini kagak di update :hammer.Saya tidak akan berapologi dengan mengatakan kalau saya sibuk ini-itu walaupun kenyataannya memang begitu.(itu berapologi juga bay -,-" ).Okay , untuk postingan kali ini saya akan membahas mengenai Cara Mendeteksi Running Application di Delphi 7.Maksudnya !? Jadi gini gan , saya itu kesel sama adik saya yang maniak banget

nge-game.Game online pastinya.Sehari bisa seharian dia anteng mantengin PC cuma untuk naekin level yang menurut saya amat sangat tidak bermanfaat.Apalagi dia masih SMA , dan sekarang sedang masa-masa ujian.Dengan motif tersebut , saya tergugah untuk membuat sebuah aplikasi yang berfungsi untuk setidaknya mereduksi kenikmatan dia main game , hahahahaha (evil laugh).Well , lalu bagaimana alur kerja aplikasi ini !? Trus hubungannya sama judul apa !? Okay , saya jelaskan :

1.Aplikasi ini akan mendetect file exe program , dalam kasus ini lostsaga.exe (nama gamenya).

2.Jika lostsaga.exe terdeteksi , maka dalam selang waktu beberapa menit , komputer akan restart sendiri , hehe.

3.Kita akan membuat aplikasi ini running ketika start up.

4.Tentu saja , kita juga harus menyembunyikan aplikasi ini di taskbar.

Terdengar simple bukan !? makanya , ayo kita buat programnya segera.Simpan aplikasi dengan nama AppInterface.

Pertama , kita harus setting terlebih dahulu formnya agar tak terlihar.Gampang kok , set properties borderStyle menjadi none , color menjadi clBlack dan transparent.Coba jalankan program anda , kalo anda tidak melihat form apapun , berarti sudah oke.Selanjutnya , tambahkan beberapa class pada kalusa uses , yaitu ShellAPI , TlHelp32 dan Registry.Lalu kita akan membuat function yang berfungsi untuk menyembunyikan program di taskbar.Ketikan kode berikut :

view plainprint?

1. procedure showTaskBarIcon(Const Show : boolean);  
2. begin  
3.   ShowWindow(Application.Handle, SW_HIDE);  
4.   
5.   if Show = false then  
6.   SetWindowLong(Application.Handle, GWL_EXSTYLE,GetWindowLong(Application.Handle,GWL_EXSTYLE) or WS_EX_TOOLWINDOW)  
7.   else  
8.     SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_OVERLAPPED);  
9.     ShowWindow(Application.Handle, SW_SHOW);  
10. end;  

procedure showTaskBarIcon(Const Show : boolean);
begin
  ShowWindow(Application.Handle, SW_HIDE);

  if Show = false then
  SetWindowLong(Application.Handle, GWL_EXSTYLE,GetWindowLong(Application.Handle,GWL_EXSTYLE) or WS_EX_TOOLWINDOW)
  else
    SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_OVERLAPPED);
    ShowWindow(Application.Handle, SW_SHOW);
end;

Okay , function tersebut bertipe boolean.Yang nantinya akan di panggil saat aplikasi di jalankan.Selanjutnya , kita akan membuat function yang berfungsi untuk mendetect apakah sebuah program sedang running atau tidak (nyambung sama judul kan !? hehe ).Ketikan kode berikut :

view plainprint?

1. function processExists(exeFileName: string): Boolean;  
2. var  
3.   ContinueLoop: BOOL;  
4.   FSnapshotHandle: THandle;  
5.   FProcessEntry32: TProcessEntry32;  
6. begin  
7.   FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);  
8.   FProcessEntry32.dwSize := SizeOf(FProcessEntry32);  
9.   ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);  
10.   Result := False;  
11.   while Integer(ContinueLoop) <> 0 do  
12.   begin  
13.     if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =  
14.       UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =  
15.       UpperCase(ExeFileName))) then  
16.     bdgin  
17.       Result := True;  
18.     end;  
19.     ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);  
20.   end;  
21.   CloseHandle(FSnapshotHandle);  
22. end;  

function processExists(exeFileName: string): Boolean;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  Result := False;
  while Integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
      UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
      UpperCase(ExeFileName))) then
    begin
      Result := True;
    end;
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

Sama seperti function sebelumnya , function ini juga bertipe boolean.Selanjutnya , kita akan membuat procedure yang mengatur program agar running ketika start up komputer.Inti dari procedure ini adalah , kita membuat value di registry dengan path program kita sebagai isinya.Dan ketika pertama booting , program di jalankan.Ketikan kode berikut :

view plainprint?

1. procedure RunOnStartup(WindowTitle,CommandLn:String;RunOnlyOnce: Boolean);  
2. var  
3.   RegIniFile  : TRegIniFile;  
4. begin  
5.   RegIniFile := TRegIniFile.Create('');  
6.   with RegIniFile do begin  
7.     RootKey := HKEY_LOCAL_MACHINE;  
8.     if RunOnlyOnce then  
9.       RegIniFile.WriteString('Software\Microsoft\Windows\' +  
10.                              'CurrentVersion\RunOnce'#0,  
11.                               WindowTitle, CommandLn)  
12.     else  
13.       RegIniFile.WriteString('Software\Microsoft\Windows\' +  
14.                              'CurrentVersion\Run'#0,  
15.                               WindowTitle, CommandLn);  
16.     Free;  
17.   end;  
18. end;  

procedure RunOnStartup(WindowTitle,CommandLn:String;RunOnlyOnce: Boolean);
var
  RegIniFile  : TRegIniFile;
begin
  RegIniFile := TRegIniFile.Create('');
  with RegIniFile do begin
    RootKey := HKEY_LOCAL_MACHINE;
    if RunOnlyOnce then
      RegIniFile.WriteString('Software\Microsoft\Windows\' +
                             'CurrentVersion\RunOnce'#0,
                              WindowTitle, CommandLn)
    else
      RegIniFile.WriteString('Software\Microsoft\Windows\' +
                             'CurrentVersion\Run'#0,
                              WindowTitle, CommandLn);
    Free;
  end;
end;

Seperti terlihat pada code diatas , bila program kita hanya ingin dijalankan sekali saja , maka yang di pilih adalah path RunOnce , bila ingin terus menerus dijalankan ketika start up , kita pilih path run.Selanjutnya , kita akan menuliskan 2 buah function yang berfungsi untuk menghandle proses turn off komputer.Ketikan kode berikut :

view plainprint?

1. function setShutDownPrivilege : Boolean;  
2. var  
3.     TTokenHnd : THandle;  
4.     TTokenPvg : TTokenPrivileges;  
5.     cbtpPrevious : DWORD;  
6.     rTTokenPvg : TTokenPrivileges;  
7.     pcbtpPreviousRequired : DWORD;  
8.     tpResult : Boolean;  
9.   
10. const  
11.     SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';  
12. begin  
13.   Result := false;  
14.   
15.   if Win32Platform = VER_PLATFORM_WIN32_NT  then  
16.     begin  
17.       if OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, TTokenHnd) then  
18.         begin  
19.           tpResult := lookupPrivilegeValue(nil, SE_SHUTDOWN_NAME,TTokenPvg.Privileges[0].Luid);  
20.           TTokenPvg.PrivilegeCount := 1;  
21.           TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;  
22.           cbtpPrevious := SizeOf(rTTokenPvg);  
23.           pcbtpPreviousRequired := 0;  
24.           if tpResult then  
25.             Result := windows.AdjustTokenPrivileges(TTokenHnd,False,TTokenPvg,cbtpPrevious,rTTokenPvg, pcbtpPreviousRequired);  
26.         end;  
27.     end;  
28. end;  
29.   
30. function Power(pwFlags: Cardinal) : Boolean;  
31. begin  
32.   if Win32Platform = VER_PLATFORM_WIN32_NT then  
33.     setShutDownPrivilege;  
34.     Result := ExitWindowsEx(pwFlags, 0);  
35. end;  

function setShutDownPrivilege : Boolean;
var
    TTokenHnd : THandle;
    TTokenPvg : TTokenPrivileges;
    cbtpPrevious : DWORD;
    rTTokenPvg : TTokenPrivileges;
    pcbtpPreviousRequired : DWORD;
    tpResult : Boolean;

const
    SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';
begin
  Result := false;

  if Win32Platform = VER_PLATFORM_WIN32_NT  then
    begin
      if OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, TTokenHnd) then
        begin
          tpResult := lookupPrivilegeValue(nil, SE_SHUTDOWN_NAME,TTokenPvg.Privileges[0].Luid);
          TTokenPvg.PrivilegeCount := 1;
          TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
          cbtpPrevious := SizeOf(rTTokenPvg);
          pcbtpPreviousRequired := 0;
          if tpResult then
            Result := windows.AdjustTokenPrivileges(TTokenHnd,False,TTokenPvg,cbtpPrevious,rTTokenPvg, pcbtpPreviousRequired);
        end;
    end;
end;

function Power(pwFlags: Cardinal) : Boolean;
begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
    setShutDownPrivilege;
    Result := ExitWindowsEx(pwFlags, 0);
end;

Okay , semua function dan procedure telah kita siapkan , saatnya proses eksekusi ;).Tambahkan 2 buah Timer.Pada timer1 , set Intervalnya menjadi 5000 dan enabled true.Lalu ketikan code berikut :

view plainprint?

1. procedure TForm1.Timer1Timer(Sender: TObject);  
2. var prog:string;  
3. begin  
4.   prog:='lostsaga.exe';  //nama programnya  
5.   if processExists(prog) then  
6.     begin  
7.       Timer2.Enabled:=true;  
8.     end;  
9. end;  

procedure TForm1.Timer1Timer(Sender: TObject);
var prog:string;
begin
  prog:='lostsaga.exe';  //nama programnya
  if processExists(prog) then
    begin
      Timer2.Enabled:=true;
    end;
end;

Seperti kita lihat , setiap 5 detik sekali , aplikasi akan mengecek , apakah program lostsaga.exe running atau tidak.Function processExists() dipanggil.Dan bila ternyata lostsaga.exe sedang running , maka timer2 akan di aktifkan.Okay , untuk timer2 , set intervalnya sesuai keinginan anda :D.Dan set propeties enabled menjadi false..Lalu ketikan kode berikut :

view plainprint?

1. procedure TForm1.Timer2Timer(Sender: TObject);  
2. begin  
3.   Power(EWX_REBOOT or EWX_FORCE);  
4. end;  

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  Power(EWX_REBOOT or EWX_FORCE);
end;

Yuph , kita akan menshutdown komputer kita sesuai interval yang telah di set.Dan yang terakhir , kita akan memindahkan aplikasi kita ke tempat yang cukup jarang di jamah oleh user awam pada saat program di jalankan.Masuk ke form event onShow lalu ketikan kode berikut :

view plainprint?

1. procedure TForm1.FormShow(Sender: TObject);  
2. begin  
3.   if FileExists('AppInterface.exe') then //cek , apakah pogram kita ada  
4.     begin  
5.       //bila ada , kita akan pindahkan sesuai path  
6.       MoveFile('AppInterface.exe','C:\WINDOWS\system32\AppInterface.exe');  
7.     end;  
8.     //function taskbar di panggil , dan di set false agar tak terlihat  
9.   showTaskBarIcon(False);  
10.   
11.   //kita panggil procedure ini agar program dijalankan tiap kali start up  
12.   RunOnStartup('Application Interface','C:\Windows\System32\AppInterface.exe',False );  
13. end;  

procedure TForm1.FormShow(Sender: TObject);
begin
  if FileExists('AppInterface.exe') then //cek , apakah pogram kita ada
    begin
      //bila ada , kita akan pindahkan sesuai path
      MoveFile('AppInterface.exe','C:\WINDOWS\system32\AppInterface.exe');
    end;
    //function taskbar di panggil , dan di set false agar tak terlihat
  showTaskBarIcon(False);

  //kita panggil procedure ini agar program dijalankan tiap kali start up
  RunOnStartup('Application Interface','C:\Windows\System32\AppInterface.exe',False );
end;

Kode lengkapnya sebagai berikut :

view plainprint?

1. unit Uutama;  
2.   
3. interface  
4.   
5. uses  
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
7.   Dialogs , TlHelp32, ExtCtrls, StdCtrls,ShellAPI,Registry;  
8.   
9. type  
10.   TForm1 = class(TForm)  
11.     Timer1: TTimer;  
12.     Timer2: TTimer;  
13.     procedure Timer1Timer(Sender: TObject);  
14.     procedure FormShow(Sender: TObject);  
15.     procedure Timer2Timer(Sender: TObject);  
16.   private  
17.     { Private declarations }  
18.   public  
19.     { Public declarations }  
20.   end;  
21.   
22. var  
23.   Form1: TForm1;  
24.   
25. implementation  
26.   
27. uses Math;  
28.   
29. {$R *.dfm}  
30.   
31.   
32. procedure showTaskBarIcon(Const Show : boolean);  
33. begin  
34.   ShowWindow(Application.Handle, SW_HIDE);  
35.   
36.   if Show = false then  
37.   SetWindowLong(Application.Handle, GWL_EXSTYLE,GetWindowLong(Application.Handle,GWL_EXSTYLE) or WS_EX_TOOLWINDOW)  
38.   else  
39.     SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_OVERLAPPED);  
40.     ShowWindow(Application.Handle, SW_SHOW);  
41. end;  
42.   
43. function processExists(exeFileName: string): Boolean;  
44. var  
45.   ContinueLoop: BOOL;  
46.   FSnapshotHandle: THandle;  
47.   FProcessEntry32: TProcessEntry32;  
48. begin  
49.   FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);  
50.   FProcessEntry32.dwSize := SizeOf(FProcessEntry32);  
51.   ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);  
52.   Result := False;  
53. while Integer(ContinueLoop) <> 0 do  
54.   begin  
55.     if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =  
56.       UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =  
57.       UpperCase(ExeFileName))) then  
58.     begin  
59.       Result := True;  
60.     end;  
61.     ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);  
62.   end;  
63.   CloseHandle(FSnapshotHandle);  
64. end;  
65.   
66.   
67. procedure TForm1.Timer1Timer(Sender: TObject);  
68. var prog:string;  
69. begin  
70.   prog:='lostsaga.exe';  //nama programnya  
71.   if processExists(prog) then  
72.     begin  
73.       Timer2.Enabled:=true;  
74.     end;  
75. end;  
76.   
77. procedure RunOnStartup(WindowTitle,CommandLn:String;RunOnlyOnce: Boolean);  
78. var  
79.   RegIniFile  : TRegIniFile;  
80. begin  
81.   RegIniFile := TRegIniFile.Create('');  
82.   with RegIniFile do begin  
83.     RootKey := HKEY_LOCAL_MACHINE;  
84.     if RunOnlyOnce then  
85.       RegIniFile.WriteString('Software\Microsoft\Windows\' +  
86.                              'CurrentVersion\RunOnce'#0,  
87.                               WindowTitle, CommandLn)  
88.     else  
89.       RegIniFile.WriteString('Software\Microsoft\Windows\' +  
90.                              'CurrentVersion\Run'#0,  
91.                               WindowTitle, CommandLn);  
92.     Free;  
93.   end;  
94. end;  
95.   
96.   
97.   
98. procedure TForm1.FormShow(Sender: TObject);  
99. begin  
100.   if FileExists('AppInterface.exe') then //cek , apakah pogram kita ada  
101.     begin  
102.       //bila ada , kita akan pindahkan sesuai path  
103.       MoveFile('AppInterface.exe','C:\WINDOWS\system32\AppInterface.exe');  
104.     end;  
105.     //function taskbar di panggil , dan di set false agar tak terlihat  
106.   showTaskBarIcon(False);  
107.   
108.   //kita panggil procedure ini agar program dijalankan tiap kali start up  
109.   RunOnStartup('Application Interface','C:\Windows\System32\AppInterface.exe',False );  
110. end;  
111.   
112. function setShutDownPrivilege : Boolean;  
113. var  
114.     TTokenHnd : THandle;  
115.     TTokenPvg : TTokenPrivileges;  
116.     cbtpPrevious : DWORD;  
117.     rTTokenPvg : TTokenPrivileges;  
118.     pcbtpPreviousRequired : DWORD;  
119.     tpResult : Boolean;  
120.   
121. const  
122.     SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';  
123. begin  
124.   Result := false;  
125.   
126.   if Win32Platform = VER_PLATFORM_WIN32_NT  then  
127.     begin  
128.       if OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, TTokenHnd) then  
129.         begin  
130.           tpResult := lookupPrivilegeValue(nil, SE_SHUTDOWN_NAME,TTokenPvg.Privileges[0].Luid);  
131.           TTokenPvg.PrivilegeCount := 1;  
132.           TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;  
133.           cbtpPrevious := SizeOf(rTTokenPvg);  
134.           pcbtpPreviousRequired := 0;  
135.           if tpResult then  
136.             Result := windows.AdjustTokenPrivileges(TTokenHnd,False,TTokenPvg,cbtpPrevious,rTTokenPvg, pcbtpPreviousRequired);  
137.         end;  
138.     end;  
139. end;  
140.   
141. function Power(pwFlags: Cardinal) : Boolean;  
142. begin  
143.   if Win32Platform = VER_PLATFORM_WIN32_NT then  
144.     setShutDownPrivilege;  
145.     Result := ExitWindowsEx(pwFlags, 0);  
146. end;  
147.   
148. procedure TForm1.Timer2Timer(Sender: TObject);  
149. begin  
150.   Power(EWX_REBOOT or EWX_FORCE);  
151. end;  
152.   
153. end.  

unit Uutama;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs , TlHelp32, ExtCtrls, StdCtrls,ShellAPI,Registry;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Math;

{$R *.dfm}


procedure showTaskBarIcon(Const Show : boolean);
begin
  ShowWindow(Application.Handle, SW_HIDE);

  if Show = false then
  SetWindowLong(Application.Handle, GWL_EXSTYLE,GetWindowLong(Application.Handle,GWL_EXSTYLE) or WS_EX_TOOLWINDOW)
  else
    SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_OVERLAPPED);
    ShowWindow(Application.Handle, SW_SHOW);
end;

function processExists(exeFileName: string): Boolean;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  Result := False;
  while Integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
      UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
      UpperCase(ExeFileName))) then
    begin
      Result := True;
    end;
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;


procedure TForm1.Timer1Timer(Sender: TObject);
var prog:string;
begin
  prog:='lostsaga.exe';  //nama programnya
  if processExists(prog) then
    begin
      Timer2.Enabled:=true;
    end;
end;

procedure RunOnStartup(WindowTitle,CommandLn:String;RunOnlyOnce: Boolean);
var
  RegIniFile  : TRegIniFile;
begin
  RegIniFile := TRegIniFile.Create('');
  with RegIniFile do begin
    RootKey := HKEY_LOCAL_MACHINE;
    if RunOnlyOnce then
      RegIniFile.WriteString('Software\Microsoft\Windows\' +
                             'CurrentVersion\RunOnce'#0,
                              WindowTitle, CommandLn)
    else
      RegIniFile.WriteString('Software\Microsoft\Windows\' +
                             'CurrentVersion\Run'#0,
                              WindowTitle, CommandLn);
    Free;
  end;
end;



procedure TForm1.FormShow(Sender: TObject);
begin
  if FileExists('AppInterface.exe') then //cek , apakah pogram kita ada
    begin
      //bila ada , kita akan pindahkan sesuai path
      MoveFile('AppInterface.exe','C:\WINDOWS\system32\AppInterface.exe');
    end;
    //function taskbar di panggil , dan di set false agar tak terlihat
  showTaskBarIcon(False);

  //kita panggil procedure ini agar program dijalankan tiap kali start up
  RunOnStartup('Application Interface','C:\Windows\System32\AppInterface.exe',False );
end;

function setShutDownPrivilege : Boolean;
var
    TTokenHnd : THandle;
    TTokenPvg : TTokenPrivileges;
    cbtpPrevious : DWORD;
    rTTokenPvg : TTokenPrivileges;
    pcbtpPreviousRequired : DWORD;
    tpResult : Boolean;

const
    SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';
begin
  Result := false;

  if Win32Platform = VER_PLATFORM_WIN32_NT  then
    begin
      if OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, TTokenHnd) then
        begin
          tpResult := lookupPrivilegeValue(nil, SE_SHUTDOWN_NAME,TTokenPvg.Privileges[0].Luid);
          TTokenPvg.PrivilegeCount := 1;
          TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
          cbtpPrevious := SizeOf(rTTokenPvg);
          pcbtpPreviousRequired := 0;
          if tpResult then
            Result := windows.AdjustTokenPrivileges(TTokenHnd,False,TTokenPvg,cbtpPrevious,rTTokenPvg, pcbtpPreviousRequired);
        end;
    end;
end;

function Power(pwFlags: Cardinal) : Boolean;
begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
    setShutDownPrivilege;
    Result := ExitWindowsEx(pwFlags, 0);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  Power(EWX_REBOOT or EWX_FORCE);
end;

end.

Okay , beres deh.Untuk percobaan , anda bisa merubah lostsaga.exe menjadi file exe yang ingin anda test , dan pada timer2 bisa anda rubah menjadi showmessage daripada harus cape-cape reboot :D.Jalankan program dan tunggu apa yang terjadi.Untuk membersihkan sisa-sisa dari kejahilan ini , anda bisa mengapus file AppInterface.exe di C:\Windows\System32\AppInterface.exe.Dan untuk menghapus regestrynya , buka regedit dan hapus value yang terdapat di HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run.Okay , sekian untuk postingan kali ini , semoga bermanfaat ;).Oia , untuk source code programnya bisa anda download DISINI

Sumber: http://bayuidham.blogspot.com/2011/12/cara-mendeteksi-running-application-di.html

Read More...

Perinrah dasar Add, Edit, Hapus and Save

Pada pemrograman delphi untuk koneksi dapat dilakukkan bermacam-macam cara seperti menggunakan ADO, ODBC, dll. Disini kita akan membahas tentang script yang biasa digunakan untuk tambah, edit, hapus, dan simpan menggunkan TQuery.

Tambah Data

Query2.SQL.Clear;
Query2.SQL.Text:='INSERT INTO tbNama (nama,alamat) values('''+edNama.text+''','''+edAlamat.text+''')';
Query2.ExecSQL;
edNama.Text:='';
edAlamat.Text:='';

Refresh(Query1);

Edit data

Edit3.Text:=Query1.fieldbyname('Nama').AsString;
Edit4.Text:=Query1.fieldbyname('Alamat').AsString;
btSimpan.Enabled:=true;
btEdit.Enabled:=false;

Hapus data

id := query1.fieldbyname('ID').AsString;
query2.SQL.Clear;
Query2.SQL.Add('DELETE FROM tbNama WHERE ID ='+id+'');
Query2.ExecSQL;

Refresh(Query1);

Simpan data

id := query1.fieldbyname('ID').AsString;

query1.SQL.Clear;
Query1.SQL.add('UPDATE tbNama SET Nama='''+Edit3.Text+''',Alamat='''+Edit4.Text+''' WHERE ID='+id+'');
Query1.ExecSQL;

edit3.Text:='';
edit4.Text:='';

refresh(query1);
btEdit.Enabled:=true;
btSimpan.Enabled:=false;

Selamat mencoba semoga bermanfaat..... ^-^. Chayooooo.....

Read More...

Cara membuat form login dengan Delphi 7

Buat teman-teman yang lagi asiiik membuat program khususnya yang berhubungan dengan Sistem Informasi Administrasi untuk sebuah instansi atau perusahaan dengan menggunakan soft Delphi 7 rasanya  kurang  lengkap kalau tidak ada halaman login. (itu menurutku siii).
Untuk keamanan data yang kita miliki dalam sistem, halaman login ini sangat penting untuk sebuah sistem Administrasi yang  kita buat, karena SI sifatnya sangat rahasia. Halaman login yang aku buat ini berisi Nama Pemakai  dan Password.
Buat teman-teman yang lagi belajar atau lagi nyari – nyari tutorial tentang pemrograman Delphi, mungkin postingan ini bisa bermanfaat buat kalian, ya meskipun hanya program sederhana.
Terlebih dahulu kita buka program yang sudah kita buat sebelumnya. Kalau mau buat baru juga boleh.
Sebagai contoh punyaku adalah SI LKP PIKOM. . .

untuk teman-teman yang mau buat baru dari awal juga boleh, silahkan telusuri langkah-langkahnya. . .
1. Buka aplikasi Delphi yang kamu  gunakan yaitu delphi 7 dan buat lembar kerja baru dengan mengklik pada menu File | New |Form

2. Setelah muncul lembar kerja baru, pada formulir baru tersebut lakukan perubahan terhadap dua buah properties yang ada pada objek inspector berikut:
Properties Caption diisi dengan Login Admin
Properties Name diisi dengan FormAwal (tanpa spasi)

Lalu simpanlah dengan memilih File|Save dan berikan nama FAwal.

3. Setelah FAwal disimpan, selanjutnya kita menambahkan komponen. Kita perlu menambahkan lima buah komponen pada Form yaitu:
Dua buah komponen Label yang simbolnya  pada tab standard ke dalam form baru kamu. Dan kemudian ubah nama label tersebut sesuai dengan keinginan kamu.
Untuk mengubah nama label tersebut, kita ubah pada  properties caption kemudian ubah nama label tersebut. Contoh punyaku adalah Nama Pemakai  dan Password.
4. Setelah label jadi  letakkan dua buah komponen Edit  yang simbolnya  terletak pada tab yang sama dimana kamu mengambil label tadi, kemudian yang perlu kita atur pada properties yaitu properties name,text dan Password Char.
Punyaku  untuk
Edit1
Name diganti dengan ename
Text dikosongkan
PasswordChar tetap dengan #0
Edit2
Name diganti dengan epass
Text dikosongkan
PasswordChar dirubah dengan *
5. Kemudian masih pada tab yang sama, yaitu pada tab standard tadi, letakkan 1 buah Button yang simbolnya  di bawah Form Edit tadi dengan merubah properties name dan captionnya.
Punyaku  dirubah dengan
Button1
Name dirubah BtnLogin
Caption dirubah &Login
Berikut contoh peletakan pada form Login :

6. Setelah form jadi, untuk melaksanakan pemeriksaan terhadap password, kamu perlu menambahkan kode pada kejadian OnClick milik tombol Login. Klik ganda pada tombol Login dan tambahkan kode seperti dibawah ini:

procedure TFormAwal.Button1Click(Sender: TObject);
begin
if(ename.Text = 'admin') and (epass.Text = 'admin') then
Application.MessageBox(‘Maaf anda tidak bisa Login. . .!!’,'Warning’,0);
FormMenu.Show
ename.Clear;
epass.Clear;
hide;
end;

end.

Yang dicetak tebal adalah kode yang sudah disediakan oleh Delphi.
Kode diatas mengasumsikan bahwa nama pemakai adalah admin dan password-nya adalah admin. Jika tidak terjadi kecocokan, kotak dialog yang berisi pesan “Maaf anda tidak bisa login” akan tampil.

7. sekarang coba kamu jalankan form yang sudah kamu  buat tadi. . .good luck yah?
note :
FormMenu.show berfungsi jika password dan nama pemakai  yang kamu  inputkan benar,maka tampil Form selanjutnya yang menjadi form tujuan yaitu FormMenu. Silahkan anda rubah sesuai dengan nama form yang kamu buat.

Read More...