Guest User

Untitled

a guest
May 8th, 2017
68
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. procedure TService7.ServiceExecute(Sender: TService);
  2. begin
  3. OutputDebugString('before');
  4. while not Terminated do begin
  5. OutputDebugString('Start');
  6. write();
  7. ServiceThread.ProcessRequests(True);
  8. OutputDebugString('END');
  9. end;
  10. end;
RAW Paste Data