🚀 go-pugleaf

Christian Lotze wrote:

>Using BDS 2007:
>Just setup new VCL form application put button onto form and copy your 
>code (except Pause function) to that button handler. During debug 
>session Handle Count in PE increases by 2 at CreateFile and decreases by 
>1 at CloseHandle
>
>Installed trial version of TaskInfo (http://www.iarsn.com/taskinfo.html)

Using TCE2006 and PE 5.24.1
Compile/run from IDE, 45 handles.
Press Button3, 46 handles.
Press again, 45 handles.
\Device\Harddisk0\DR0

//---------------------------------------------------------------------------
HANDLE h = 0;

void __fastcall TForm1::Button3Click(TObject *Sender)
{
	if( h )
	{	CloseHandle(h);
		h = 0;
	}else{
		DWORD		written;
		char		str[1024];
		h = CreateFile( "\\\\.\\PHYSICALDRIVE0",
						 GENERIC_READ,
						 FILE_SHARE_READ | FILE_SHARE_WRITE,
						 NULL,
						 OPEN_EXISTING,
						 0,
						 0);
		if(INVALID_HANDLE_VALUE!=h)
		{
			SetFilePointer(h,0,NULL,FILE_BEGIN);
			ReadFile(h,str,sizeof(str), &written,0);
		};
	};
}
//---------------------------------------------------------------------------