باز کردن فایل در حال نوشته/خوانده شدن (باز شده!)

[zoro21750]

سلام.
آقا چه جوری میشه یه فایل رو طوری برای نوشتن باز کرد که بقیه بتونن بخوننش؟
مرسی.

[علی کشاورز]

برای باز کردن فایل در حالت نوشتن (Processهای بعدی فقط امکان خواندن فایل را خواهند داشت):


var
hFile : THandle;
begin
hFile := CreateFile(PAnsiChar(FileName),
GENERIC_READ + GENERIC_WRITE,
FILE_SHARE_READ,
nil,
OPEN_ALWAYS,
FILE_ATTRIBUTE_NORMAL,
0);


Process های بعدی می تونند از این طریق فایل مربوطه رو برای خوندن باز کنند:


var
hFile : THandle;
begin
hFile := CreateFile(PAnsiChar(FileName),
GENERIC_READ,
FILE_SHARE_READ,
nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0);