[Back to FILES SWAG index]  [Back to Main SWAG index]  [Original]

Uses Crt,Dos,Strings;

VAR
    filename : pChar;
    fname    : String;

  { test to see if file exists }
  function FileExists(FileName:pchar):boolean;
  inline(
    $5A/
    $58/
    $1E/
    $8E/$D8/
    $B8/$00/$43/
    $CD/$21/
    $1F/
    $72/$08/
    $B8/$01/$00/
    $F6/$C1/$10/
    $74/$02/
    $31/$C0);

BEGIN
  fname := Paramstr(1);
  WriteLn(FileExists(strPCopy(Filename,fname)));
END.

[Back to FILES SWAG index]  [Back to Main SWAG index]  [Original]