PInfoRecord = ^TInfoRecord ;
TInfoRecord =
record
WatchThreadID : Cardinal;
Meldung :
string;
end;
procedure TWatchThread.OnNotifyChanged(Sender: TObject);
var
InfoRecord : PInfoRecord;
begin
// auf den Event reagieren
// Liste der Dateien durchgehen, Änderungen mit FileZip speichern
// Also so ???
New(FoundRecord);
InfoRecord^.WatchThreadID :=
GUID;
InfoRecord^.Meldung := '
Hier kommt der Text für die Meldung rein';
PostMessage(MainForm.Handle, MY_WM_USER, SUB_MESSAGE_NEW_SAVE, Integer(InfoRecord));
end;
procedure TMainForm.ThreadMessage(
var Message : TMessage );
var
InfoRecord : PInfoRecord;
ID : Cardinal;
begin
case Message.WParam
of
MY_WM_USER :
begin
InfoRecord := PInfoRecord(
Message.LParam);
ID := ThreadIDToIndex( InfoRecord^.WatchThreadID );
Memo.Lines.Add(InfoRecord^.Meldung);
Dispose(InfoRecord);
end;
end;