Hello h-guh,
Tuesday, October 7, 2003, 1:52:42 PM, you wrote:
hgwai> para delphiers yang baek ada yang bisa bantu saya
hgwai> 1. Cara Detect Applikasi yang sedang jalan diwindows pake apa ?
hgwai> 2. Cara nyembunyiin Applikasi dari TaskManager windows
hgwai> Terimakasih atas bantuannya
1. Maksudnya ini bukan? saya belum pernah nyoba, semoga bisa
uses TLHelp32;
// ...
procedure TForm1.Button1Click(Sender: TObject);
var
MyHandle: THandle;
Struct: TProcessEntry32;
begin
MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
Struct.dwSize:=Sizeof(TProcessEntry32);
if Process32First(MyHandle, Struct) then
Memo1.Lines.Add(Struct.szExeFile);
while Process32Next(MyHandle, Struct) do
Memo1.Lines.Add(Struct.szExeFile);
end;
2.
implementation
function RegisterServiceProcess(dwProcessID, dwType: DWORD): DWORD;
stdcall; external 'KERNEL32.DLL';
// hide
procedure TForm1.Button1Click(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID, 1);
end;
// show again
procedure TForm1.Button2Click(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID, 0);
end;
--
Best regards,
Irwan
[EMAIL PROTECTED]
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for your HP, Epson, Canon or Lexmark
Printer at MyInks.com. Free s/h on orders $50 or more to the US & Canada.
http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/mOAaAA/3exGAA/qnsNAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
