Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.15;
Скачать: CL | DM;

Вниз

Проблема с копированием файлов.   Найти похожие ветки 

 
crosin   (2002-07-02 12:37) [0]

Добрый день. Проблема такая Нужно перенести файл. Но не получается это сделать когда скажем кто то другой сидит в этом файле. как сделать обработку ошибки что если файл используется кем то, то его не трогать а если свободен то перенести.


 
Игорь Шевченко ©   (2002-07-02 13:08) [1]

Если не получается скопировать то и выдавать сообщение об ошибке...


 
alexdbases ©   (2002-07-02 16:23) [2]

try
FileOpen
перенос...
except
ShowMessage("Error");


 
Death for...   (2002-07-02 17:48) [3]

Вот так ты можешь проверить, используется ли файл:

Function ApplicationUse(fName : string ) : boolean;
var
HFileRes : HFILE;
begin
Result := false;
if not FileExists(fName) then exit;
HFileRes := CreateFile(pchar(fName), GENERIC_READ or GENERIC_WRITE,0, nil,
OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0);
Result := (HFileRes = INVALID_HANDLE_VALUE);
if not Result then CloseHandle(HFileRes);
end;


Использования этой функции:

procedure TForm1.Button1Click(Sender: TObject);
begin
if ApplicationUse("c:\project1.exe") then
ShowMessage("Application in use")
else
ShowMessage("Application not in use");
end;



Страницы: 1 вся ветка

Текущий архив: 2002.07.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
6-47664
LiNkS
2002-04-27 17:56
2002.07.15
WinAPI для сканнера портов.


1-47516
rumata_lee
2002-07-04 16:59
2002.07.15
QReport


3-47090
Dim!S
2002-06-21 13:07
2002.07.15
Interbase литература, утилиты


8-47620
OlegGo
2002-01-30 18:06
2002.07.15
Как узнать цвет пиксела в определенной точке TImage?


1-47328
Вадим
2002-06-29 00:19
2002.07.15
Проверить, есть ли property