zoro21750
چهارشنبه 14 اردیبهشت 1384, 01:24 صبح
سلام.
آقا چه جوری میشه یه فایل رو طوری برای نوشتن باز کرد که بقیه بتونن بخوننش؟
مرسی.
vcldeveloper
چهارشنبه 14 اردیبهشت 1384, 03:14 صبح
برای باز کردن فایل در حالت نوشتن (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);
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.