Tipy a triky v Delphi, díl 159. - drobné chuťovky

Diskuze čtenářů k článku

pexxi  |  20. 10. 2004 10:11  | 

Zistenie nazvu FS bez pouzitia OLE:

function IsNTFS(AFileName:String):Boolean;
const MAX_FS_NAME_LENGTH=256;
var FSName:PChar;
begin
IsNTFS:=False;
GetMem(FSName,MAX_FS_NAME_LENGTH);
GetVolumeInformation(PChar(AFileName),nil,0,nil,PDWORD(0)^,PD WORD(0)^,FSName,MAX_FS_NAME_LENGTH);
IsNTFS:= FSName='NTFS';
FreeMem(FSName);
end;

Souhlasím  |  Nesouhlasím  |  Odpovědět
Zasílat názory e-mailem: Zasílat názory Můj názor
Aktuální číslo časopisu Computer

Megatest 24 PC zdrojů

Jak využít umělou inteligenci

10 špičkových sluchátek s ANC

Playstation 5 vs Xbox Series X