| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

GetFileTime() [D6, 2000]

Страницы:   < 1 2 >

Officeman ©   (2006-02-19 14:14:00) 

Описание:

программа1, при onClickButton1 пересзаписывает файл 'go.bas'
программа2, должна читать 'go.bas' если он был "перезаписан".

не могу разобраться с GetFileTime(), подскжите плиз. запутался в типах.


rrr:=GetFileTime(????????);

if  "файл go.bas перезаписан" then begin
  if MF2.Checked=true then
  begin
   assignfile(f,'go.bas');
   Reset(F);
   Readln(F, sik);                      
if sik<>ent.Text then begin
  ent.Text := sik;        
end;
  end;
end;


---

Officeman   (2006-02-19 17:05:00) [21]

many big thanks.  попробуемс и то и то.

---

begin...end   (2006-02-19 17:00:00) [22]

var
 OldFileTime: TFileTime;
 FindData: TWin32FindData;
begin
 Windows.FindClose(FindFirstFile(полный_путь_к_файлу, FindData));
 if Int64(FindData.ftLastWriteTime) > Int64(OldFileTime) then
   // Дата последнего изменения файла больше, чем ранее сохранённая
end

---

Жуков Олег   (2006-02-19 16:56:00) [23]

Если вторая программа резидентная должна следить за изменением файла, то есть более надёжный способ, чем проверка даты. Надо только сказать операционной системе, что твоя программа желает получить уведомлениекак только такой-то файл будет изменён. Это можно делать используя функции FindFirstChangeNotification/FindNextChangeNotification и WaitForSingleObject.

---

Officeman   (2006-02-19 16:23:00) [24]

да всправке это есть. но как это применить я незнаю. пусть будет ZERO всё что угодно. мне нужно при noClickButton, знать изменился файл или нет. обязательно по времени перезаписи. создания или изменения.

example please

---

Desdechado   (2006-02-19 16:16:00) [25]

причем тут поисковики? тяжело справку почитать?
Return Values

If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error information, call GetLastError.

---

Officeman   (2006-02-19 15:58:00) [26]

непонимаю. в поискових ничего ненашёл. (((((((((((

Пожалуйста. привидите пример.

исходные данные:
filename,result:string

result:= ?????

---

Desdechado   (2006-02-19 14:57:00) [27]

> запутался в типах.
в типах чего?
The FILETIME structure is a 64-bit value representing the number of 100-nanosecond intervals since January 1, 1601.

typedef struct _FILETIME { // ft  
   DWORD dwLowDateTime;
   DWORD dwHighDateTime;
} FILETIME;

---

Страницы:   < 1 2 >

Наверх