kursovaya / kursach

procedure TForm1.SpeedButton1Click(Sender: TObject); //eio i i?ioanni?a
var
SysInfo:TSystemInfo;
begin
listbox1.items.Clear;
GetSystemInfo(SysInfo);
with ListBox1.Items,SysInfo do
begin
Add('ProcessorArchitecture: '+IntToStr(wProcessorArchitecture));
Add(FloatToStr(dwPageSize)+' Kb page size');
Add(Format('Lowest memory address accessible to applications and DLL - %p',[lpMinimumApplicationAddress]));
Add(Format('Highest memory address accessible to applications and DLL - %p',[lpMaximumApplicationAddress]));
Add('OEMID:'+IntToStr(dwOemId));
Add('ActiveProcessorMask:'+IntToStr(dwActiveProcessorMask));
Add(IntToStr(dwNumberOfProcessors)+' - number of processors');
Add('ProcessorType:'+IntToStr(dwProcessorType));
case wProcessorLevel of
3:Add('Intel 80386 processor level');
4:Add('Intel 80486 processor level');
5:Add('Intel Pentium processor level');
end;
Add(FloatToStr(dwAllocationGranularity/1024)+' Kb - granularity with which virtual memory is allocated');
Add('ProcessorRevision:'+IntToStr(wProcessorRevision));
end;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);//eio i iaiyoe
var
MemoryStatus:TMemoryStatus;
begin
listbox1.items.Clear;
MemoryStatus.dwLength:=SizeOf(MemoryStatus);
GlobalMemoryStatus(MemoryStatus);
with MemoryStatus do
begin
listbox1.items.Add(IntToStr(dwMemoryLoad)+'% eniieuciaaiii iaiyoe');
listbox1.items.Add(IntToStr(dwTotalPhys)+' Anaai oece?aneie iaiyoe (a aaeoao)');
listbox1.items.Add(IntToStr(dwAvailPhys)+' Ainooiii oece?aneie iaiyoe (a aaeoao)');
listbox1.items.Add(IntToStr(dwTotalPageFile)+' Anaai ae?ooaeuiie iaiyoe (a aaeoao)');
listbox1.items.Add(IntToStr(dwAvailPageFile)+' Ainooiii ae?ooaeuiie iaiyoe (a aaeoao)');
listbox1.items.Add(IntToStr(dwTotalVirtual)+' Aa?aniia ae?ooaeuiia i?inoainoai oaeouaai i?ioanna');
listbox1.items.Add(IntToStr(dwAvailVirtual)+' Ainooiii aaeo ae?ooaeuiiai aa?aniiai i?ino?ainoaa oaeouaai i?ioanna');
end;
end;


procedure TForm1.SpeedButton6Click(Sender: TObject); //iieacaou aoi?o? oi?io
begin
Form2.Show;
end;

procedure TForm1.SpeedButton7Click(Sender: TObject);//na?eeiue iiia? aei?anoa?a
var
SerialNum:Word;
a,b:DWORD;
Buffer:array [0..255] of Char;
begin
ListBox1.Items.Clear;
if GetVolumeInformation('c:\',Buffer,SizeOf(Buffer),@SerialNum,a,b,nil,0) then
begin
ListBox1.Items.Add('Na?eeiua iiia? aei?anoa?a:');
ListBox1.Items.Add(IntToStr(SerialNum));
end;
end;

procedure TForm1.SpeedButton8Click(Sender: TObject); //iieacaou oi?io 3
begin
Form3.Show;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject); //eio i aeaaiea?oa
var
lpDisplayDevice:TDisplayDevice;
dwFlags:DWORD;
cc:DWORD;
begin
ListBox1.Items.Clear;
lpDisplayDevice.cb:=sizeof(lpDisplayDevice);
dwFlags:=0;
cc:=0;
while EnumDisplayDevices(nil,cc,lpDisplayDevice,dwFlags) do
begin
Inc(cc);
ListBox1.Items.add(lpDisplayDevice.DeviceString);
end;
end;

procedure TForm1.FormActivate(Sender: TObject); //ieaaii anieuaa?uaa ieii
const
n=127;
var
i:Byte;
begin
AlphaBlend:=True;
for i:=1 to n do
begin
AlphaBlendValue:=i*2;
Repaint;
end;
end;

procedure TForm1.SpeedButton9Click(Sender: TObject); //iieiay i?enoea
begin
ListBox1.Clear;
end;

procedure TForm1.SpeedButton10Click(Sender: TObject); //aeaaiaaaioa?u e aeaai?a?eiu
var
lpDisplayDevice:TDisplayDevice;
DevMode:TDevMode;
S:String;
i,j,k:integer;
begin
// Iiaaioiaea no?oeoo?u lpDisplayDevice
lpDisplayDevice.cb:=sizeof(lpDisplayDevice);
// Iieo?aiea nienea aeaaiaaaioa?ia
i:=0;
while EnumDisplayDevices(nil,i,lpDisplayDevice,0) do
begin
Inc(i);
ListBox1.Items.Add('***** '+lpDisplayDevice.DeviceString + ' *****');
ListBox1.Items.Add(' DeviceName = '+lpDisplayDevice.DeviceName+' - '+lpDisplayDevice.DeviceString);
S:=lpDisplayDevice.DeviceName;
j:=0;
ListBox1.Items.Add(' Iiieoi?u: ' );
// Iieo?aiea nienea iiieoi?ia
while EnumDisplayDevices(@S[1],j,lpDisplayDevice,0) do
begin
inc(j);
ListBox1.Items.add(' DeviceMonitor = '+lpDisplayDevice.DeviceName+' - '+lpDisplayDevice.DeviceString);
end;
k:=0;
ListBox1.Items.Add(' Aeaai?a?eiu: ' );
// Iieo?aiea nienea iiaaa??eaaaiuo aeaai?a?eiia
while EnumDisplaySettings(Pchar(S), k, DevMode) do
begin
ListBox1.Items.Add(' --- ?a?ei ? '+IntToStr(k)+' ---');
inc(k);
ListBox1.Items.Add('DevMode.dmDeviceName = '+DevMode.dmDeviceName);
ListBox1.Items.Add('DevMode.dmBitsPerPel = '+IntToStr(DevMode.dmBitsPerPel));
ListBox1.Items.Add('DevMode.dmPelsWidth = '+IntToStr(DevMode.dmPelsWidth));
ListBox1.Items.Add('DevMode.dmPelsHeight = '+IntToStr(DevMode.dmPelsHeight));
ListBox1.Items.Add('DevMode.dmDisplayFrequency = '+IntToStr(DevMode.dmDisplayFrequency)+' Ao');
end;
end;
end;


function GetComputerNetName: string;
var
buffer:array[0..255] of Char;
size:DWORD;
begin
size:=256;
if GetComputerName(buffer,size) then
Result:=buffer
else Result:= '';
end;

function GetCurrentUserName:String;
const
cnMaxUserNameLen=254;
var
sUserName:String;
dwUserNameLen:DWORD;
begin
dwUserNameLen:=cnMaxUserNameLen-1;
SetLength(sUserName,cnMaxUserNameLen);
GetUserName(PChar(sUserName),dwUserNameLen);
SetLength(sUserName,dwUserNameLen);
Result:=sUserName;
end;

procedure TForm2.SpeedButton1Click(Sender: TObject); //eioi?iaoey i iieuciaaoaea
const
TokenSize=800; // ?an?ao (SizeOf(Pointer)=4 *200)
var
hToken:THandle;
pTokenInfo:PTOKENPRIVILEGES;
ReturnLen:Cardinal;
i:Integer;
PrivName:PChar;
DisplayName:PChar;
NameSize:Cardinal;
DisplSize:Cardinal;
LangId:Cardinal;
begin
Memo1.Lines.Clear;
Edit1.text:=GetComputerNetName;
Edit2.text:= GetCurrentUserName;
GetMem(pTokenInfo, TokenSize);
if not OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,hToken) then ShowMessage('OpenProcessToken error');
if not GetTokenInformation(hToken, TokenPrivileges, pTokenInfo, TokenSize, ReturnLen) then
ShowMessage('GetTokenInformation error');
GetMem(PrivName, 255);
GetMem(DisplayName, 255);
for i := 0 to pTokenInfo.PrivilegeCount - 1 do
begin
DisplSize := 255;
NameSize := 255;
LookupPrivilegeName(nil, pTokenInfo.Privileges[i].Luid, PrivName, Namesize);
LookupPrivilegeDisplayName(nil, PrivName, DisplayName, DisplSize, LangId);
memo1.lines.Add(PrivName +^I + DisplayName);
end;
FreeMem(PrivName);
FreeMem(DisplayName);
FreeMem(pTokenInfo);
end;


procedure TForm2.FormActivate(Sender: TObject); //ieaaii anieuaa?uaa ieii aey oi?iu 2
const
n=127;
var
i:Byte;
begin
AlphaBlend:=True;
for i:=1 to n do
begin
AlphaBlendValue:=i*2;
Repaint;
end;
end;



procedure NextLevel(ParentNode: TTreeNode); //ia?aee??aiea e iieac iaiie ia eie aeneao
function DirectoryName(name: string): boolean;
begin
result:=(name<>'.') and (name<>'..');
end;
var
sr, srChild: TSearchRec;
node: TTreeNode;
path: string;
begin
node:=ParentNode;
path:='';
repeat
path:=node.Text+'\'+path;
node:=node.Parent;
until node=nil;
if FindFirst(path+'*.*', faDirectory, sr)=0 then
begin
repeat
if (sr.Attr and faDirectory <> 0) and DirectoryName(sr.Name)
then
begin
node:=Form3.TreeView1.Items.AddChild(ParentNode, sr.Name);
node.ImageIndex:=0;
node.SelectedIndex:=1;
node.HasChildren:=false;
if FindFirst(path+sr.Name+'\*.*', faDirectory, srChild)=0
then
begin
repeat
if (srChild.Attr and faDirectory<>0) and DirectoryName(srChild.Name)
then node.HasChildren := true;
until (FindNext(srChild) <> 0) or node.HasChildren;
end;
FindClose(srChild);
end;
until FindNext(sr) <> 0;
end
else ParentNode.HasChildren:=false;
FindClose(sr);
end;

procedure TForm3.FormCreate(Sender: TObject); //iieacaou eieaeuiua aenee e e iaoiayueany
//a ieo iaiee
const
IconNames:array [0..6] of String=('CLOSEDFOLDER','OPENFOLDER','FLOPPY','HARD','NETWORK','CDROM','RAM');
var
c:Char;
s:String;
Node:TTreeNode;
DriveType:Integer;
bm,mask:TBitmap;
i:Integer;
begin
TreeView1.Items.BeginUpdate;
TreeView1.Images:=TImageList.CreateSize(16, 16);
bm:=TBitmap.Create;
mask:=TBitmap.Create;
for i:=low(IconNames) to high(IconNames) do
begin
bm.Handle:=LoadBitmap(HInstance, PChar(IconNames[i]));
bm.Width:=16;
bm.Height:=16;
mask.Assign(bm);
mask.Mask(clBlue);
TreeView1.Images.Add(bm, mask);
end;
for c:='A' to 'Z' do
begin
s:=c+':';
DriveType:=GetDriveType(PChar(s));
if DriveType=1 then continue;
node:=Form3.TreeView1.Items.AddChild(nil, s);
case DriveType of
DRIVE_REMOVABLE: node.ImageIndex:=2;
DRIVE_FIXED: node.ImageIndex:=3;
DRIVE_REMOTE: node.ImageIndex:=4;
DRIVE_CDROM: node.ImageIndex:=5;
else node.ImageIndex:=6;
end;
node.SelectedIndex:=node.ImageIndex;
node.HasChildren:=true;
end;
TreeView1.Items.EndUpdate;
end;

procedure TForm3.TreeView1Expanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
begin
TreeView1.Items.BeginUpdate;
Node.DeleteChildren;
NextLevel(Node);
TreeView1.Items.EndUpdate;
end;

procedure TForm3.FormActivate(Sender: TObject); //ieaaii anieuaa?uaa ieii aey oi?iu 3
const n=127;
var
i:Byte;
begin
AlphaBlend:=True;
for i:=1 to n do
begin
AlphaBlendValue:=i*2;
Repaint;
end;
end;