unit FileMacro;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

function IsDrive(lw: Char; dt: Integer): Boolean;
function DirExists(dir: string): Boolean;

implementation

function IsDrive(lw: Char; dt: Integer): Boolean;
begin

//lw etwa A od. B ...
//dt kann folgende Werte annehmen:
//DRIVE_REMOVABLE Diskette
//DRIVE_FIXED Festplatte
//DRIVE_REMOTE Netzwerk
//DRIVE_CDROM CD-Laufwerk
//DRIVE_RAMDISK RAM-Disk

result:=(GetDriveType(PChar(lw+':\'))=dt);
end;

function DirExists(dir: string): Boolean;
var cv: Integer;

begin
cv:=FileGetAttr(dir);

result:=((cv<>-1) and ((cv and faDirectory)<>0));
end;

end.

Zurück zur Hauptseite