Changeset 6 for trunk/Apps/UClock.pas

Timestamp:

Nov 23, 2014, 11:17:11 PM (10 years ago)

Author:

chronos

Message:

• Added: Preparation for support for IPC messaging.

File:

• trunk/Apps/UClock.pas (modified) (1 diff)

trunk/Apps/UClock.pas

@@ -22 +22 @@
 
 procedure TAppClock.Run(Task: TTask);
+var
+  Message: TIPCMessage;
 begin
+  Message := TIPCMessage.Create;
   while not Task.Terminated do begin
     API.WriteText('test');
     API.Sleep(OneSecond);
+    //API.ReadMessage(Message);
   end;
+  Message.Free;
 end;