e (FileName));
end; HasAttr (const FileName: string; Attr: Word): Boolean;: Integer;:=FileGetAttr (FileName); FileAttr=- 1 then FileAttr:=0 ;:=(FileAttr and Attr)=Attr;
end; ExecuteFile (const FileName, Params, DefaultDir: string;: Integer): THandle;, zParams, zDir: array [0 .. 79] of Char;: =ShellExecute (Application.MainForm.Handle, nil, (zFileName, FileName), StrPCopy (zParams, Params), (zDir, DefaultDir), ShowCmd);
end;.
