Фоновый процесс в галактике

[Maverick]

хм..
во-первых: dir_name+mask_name = '\\server\dir*.txt'
может быть стоит писать dir_name+'\'+mask_name?

во-вторых, если память мне не изменяет в file_name ф-ей findfirstfile возвращается полный путь с именем файла (в этом могу ошибаться)

возможно здесь собака порылась...

[san]

interface
var
StoreHTimer : PField;

function SetTimer(hWnd: HWND; nIDEvent, uElapse: LongWord;
lpTimerFunc: Pointer): LongWord; stdcall; external 'user32.dll' name 'SetTimer';

function KillTimer(hWnd: HWND; uIDEvent: LongWord): Boolean; stdcall; external 'user32.dll' name 'KillTimer';

implementation

procedure TimerProc(HWND, uMsg, idEvent, dwTime : Integer); stdcall;
begin
if idEvent = StoreHTimer^.iValue then begin
....process for timer....
end;
end;

procedure StartTimer;
var
FHandle : Integer;
begin
{1000-1сек}
FHandle := SetTimer(0, 0, 60000, @TimerProc);
StoreHTimer.iPut(FHandle);
end;

initialization
New(StoreHtimer,Init(Nil,ftinteger,4));
StoreHTimer.iPut(0);

StartTimer;
finalization
if StoreHTimer^.iValue <> 0 then KillTimer(0, StoreHTimer^.iValue);
FreeObj (StoreHTimer);
End.

[DarkAngel27]

хм..
во-первых: dir_name+mask_name = '\\server\dir*.txt'
может быть стоит писать dir_name+'\'+mask_name?

во-вторых, если память мне не изменяет в file_name ф-ей findfirstfile возвращается полный путь с именем файла (в этом могу ошибаться)

возможно здесь собака порылась...

1. \\server\dir\*.txt (тут вы правы, забыл указать лишний слэш, когда заменял путь.
2. А вообще данная функция работает прекрасно, на неё нариканий нету.

[DarkAngel27]

to san
А вы не могли бы пояснить в чём суть этого кода?

[san]

Фоновый процесс в галактике.

[DarkAngel27]

Всем спасибо за помощь!!!
Воспользовался советом Maverick и добавил в Always свою функцию...
Выбрасовало из Галактики из-за отладочной информации (message поставил кое-где). Происходило зацикливание и Галку вышибало.