Rotinas para Manipulação de DiskDrives
Continuando nossa série de artigos, relacionados à criação de bibliotecas com rotinas padrão em Delphi, damos inicio a Operações de Hardware.
É muito bom lembrar que as rotinas vistas aqui, nessa parte de hardware, são muito utilizadas para proteger seu software, por exemplo, pois usamos rotinas, como verificação se serial, no HardDisk, para testar se nossa aplicação foi alterada, ou copiada pra outro HardDisk não habilitado entre outras coisas.
· Tratamento de arquivos;
· Operações com DisksDrives;
· Operações de Hardware; ß estamos aqui!
· Operações com Mouse;
· Operações com o Sistema;
· Operações com Strings;
Então.. mãos na massa. Crie um arquivo e dê o nome de “Hardware”, no seu Delphi.
1:
2: unit Hardware;
3:
4:
5: interface
6:
7:
8: uses
9: Windows, Dialogs, Messages, SysUtils, Classes, Controls, StdCtrls, Graphics,
10: Printers, shellapi, MMSystem;
11:
12: function TestaPlaca(Value:integer): Boolean;
13: function DiscoNoDrive(const drive : char): boolean;
14: function NumeroSerie(Unidade:PChar):String;
15: function DetectaDrv(const drive : char): boolean;
16: function NumeroDeCores : Integer;
17: function Percentdisk(unidade: byte): Integer;
18: function IsPrinter : Boolean;
19: function CorrentPrinter :String;
20:
21: implementation
22:
23: Function TestaPlaca(Value:integer): Boolean;
24: {Testa se existe uma placa de som no seu computador}
25: begin
26: if WaveOutGetNumDevs > 0 then
27: begin
28: result := True
29: end
30: else
31: begin
32: Result := False;
33: end;
34: end;
35:
36: function DiscoNoDrive(const drive : char): boolean;
37: {Detecta se há disco no Drive}
38: var
39: DriveNumero : byte;
40: EMode : word;
41: begin
42: result := false;
43: DriveNumero := ord(Drive);
44: if DriveNumero >= ord('a') then
45: begin
46: dec(DriveNumero,$20);
47: EMode := SetErrorMode(SEM_FAILCRITICALERRORS);
48: end;
49: try
50: if DiskSize(DriveNumero-$40) = -1 then
51: begin
52: Result := False;
53: end
54: else
55: begin
56: Result := True;
57: end;
58: Except
59: SetErrorMode(EMode);
60: end;
61: end;
62:
63: function NumeroSerie(Unidade:PChar):String;
64: {Retorna o Número serial da unidade especificada}
65: var
66: VolName,SysName : AnsiString;
67: SerialNo,MaxCLength,FileFlags : DWord;
68: begin
69: try
70: SetLength(VolName,255);
71: SetLength(SysName,255);
72: GetVolumeInformation(Unidade,PChar(VolName),255,@SerialNo,
73: MaxCLength,FileFlags,PChar(SysName),255);
74: result := IntToHex(SerialNo,8);
75: except
76: result := ' ';
77: end;
78: end;
79:
80: function DetectaDrv(const drive : char): boolean;
81: {Detecta quantas unidade possui no computador}
82: var
83: Letra: string;
84: begin
85: Letra := drive + ':\';
86: if GetDriveType(PChar(Letra)) < 2 then
87: begin
88: result := False;
89: end
90: else
91: begin
92: result := True;
93: end;
94: end;
95:
96:
97: function NumeroDeCores : Integer;
98: {Retorna a quantidade atual de cores no Windows (16, 256, 65536 = 16 ou 24 bit}
99: var
100: DC:HDC;
101: BitsPorPixel: Integer;
102: begin
103: Dc := GetDc(0); // 0 = vídeo
104: BitsPorPixel := GetDeviceCaps(Dc,BitsPixel);
105: Result := 2 shl (BitsPorPixel - 1);
106: end;
107:
108: function Percentdisk(unidade: byte): Integer;
109: {Retorna a porcentagem de espaço livre em uma unidade de disco}
110: var
111: A,B, Percentual : longint;
112: begin
113: if DiskFree(Unidade)<> -1 then
114: begin
115: A := DiskFree(Unidade) div 1024;
116: B := DiskSize(Unidade) div 1024;
117: Percentual:=(A*100) div B;
118: result := Percentual;
119: end
120: else
121: begin
122: result := -1;
123: end;
124: end;
125:
126: function IsPrinter : Boolean;
127: Const
128: PrnStInt : Byte = $17;
129: StRq : Byte = $02;
130: PrnNum : Word = 0; { 0 para LPT1, 1 para LPT2, etc. }
131: Var
132: nResult : byte;
133: Begin (* IsPrinter*)
134: Asm
135: mov ah,StRq;
136: mov dx,PrnNum;
137: Int $17;
138: mov nResult,ah;
139: end;
140: IsPrinter := (nResult and $80) = $80;
141: End;
142:
143: function CorrentPrinter :String;
144: // Retorna a impressora padrão do windows
145: // Requer a unit printers declarada na clausula uses da unit
146: var
147: Device : array[0..255] of char;
148: Driver : array[0..255] of char;
149: Port : array[0..255] of char;
150: hDMode : THandle;
151: begin
152: Printer.GetPrinter(Device, Driver, Port, hDMode);
153: Result := Device+' na porta '+Port;
154: end;
155:
156: end.
Até o próximo artigo, nos veremos no artigo de bibliotecas de mouse, abraços++.
