winio疑问

[7年]

在程序中添加了过一段时间定时重启。在程序重启之前WINIO表现是正常的，但是在重启之后日志记录读取卡号成功，但是无法在记事本中显示。。。。不知为何，求高手指教！

[7年]

问题解决了。

就当散分吧，祝大家10 1节日快乐！

[柯本]

[Quote=引用 4 楼 zzflover 的回复:]
问题解决了。

就当散分吧，祝大家10 1节日快乐！
[/Quote]
那就接分

[亮剑_]

[Quote=引用 4 楼 zzflover 的回复:]

问题解决了。

就当散分吧，祝大家10 1节日快乐！
[/Quote]
七年，分享一下

[7年]

就是没有释放类啊。。。。。汗啊

[浩南_哥]

分享一下吧，什么问题

[7年]

这么多人关心技术问题，那就再问个吧。怎么在下面的代码中加入互斥对象？

     Application.Initialize;
     Application.Title :='键盘仿真程序';
     Application.CreateForm(Tmainform, mainform);
     Application.ShowMainForm :=False;
     Application.Run;
    if ReStartFlag = False then
     Exit;
    if CreateProcess(nil,PChar(Application.ExeName),nil,nil,false,0,nil,nil,lpStartInfo,lpProcessInfo) then
     begin
      CloseHandle(lpProcessInfo.hThread);
      CloseHandle(lpProcessInfo.hProcess);
     end;

[7年]

var
  HMutex: THandle;
  lpStartInfo : TStartupInfo;
  lpProcessInfo :TProcessInformation;
begin
  FillChar(lpStartInfo,SizeOf(lpStartInfo),0);
  FillChar(lpProcessInfo,SizeOf(lpProcessInfo),0);
  lpStartInfo.cb:=sizeof(lpStartInfo);
  HMutex := CreateMutex(nil, False, 'SYBS_SIMKEYBOARD');          Application.Initialize;
     Application.Title :='键盘仿真程序';
     Application.CreateForm(Tmainform, mainform);
     Application.ShowMainForm :=False;
     Application.Run;
    if ReStartFlag = False then
     Exit;
    if CreateProcess(nil,PChar(Application.ExeName),nil,nil,false,0,nil,nil,lpStartInfo,lpProcessInfo) then
     begin
      CloseHandle(lpProcessInfo.hThread);
      CloseHandle(lpProcessInfo.hProcess);
     end;
end.

[柯本]

参考以前的贴,老妖回的
http://topic.csdn.net/t/20060818/16/4959655.html

[cngst]

路过，接分...

[7年]

[Quote=引用 11 楼 keiy 的回复:]
参考以前的贴,老妖回的
http://topic.csdn.net/t/20060818/16/4959655.html
[/Quote]
thanks!

[jingtuzhong]

互斥非常类似于临界区，除了两个关键的区别：首先，互斥可用于跨进程的线程同步。其次，互斥能被赋予一个字符串名字，并且通过引用此名字创建现有互斥对象的附加句柄。
　　 提示临界区与事件对象(比如互斥对象)的最大的区别是在性能上。临界区在没有线程冲突时，要用1 0 ~ 1 5个时间片，而事件对象由于涉及到系统内核要用400~600个时间片。
　　 可以调用函数CreateMutex ( )来创建一个互斥量。下面是函数的声明：
　　 function
　　 lpMutexAttributes参数为一个指向TSecurityAttributtes记录的指针。此参数通常设为0，表示默认的安全属性。bInitalOwner参数表示创建互斥对象的线程是否要成为此互斥对象的拥有者。当此参数为False时， 表示互斥对象没有拥有者。
　　 lpName参数指定互斥对象的名称。设为nil表示无命名，如果参数不是设为nil，函数会搜索是否有同名的互斥对象存在。如果有，函数就会返回同名互斥对象的句柄。否则，就新创建一个互斥对象并返回其句柄。
　　 当使用完互斥对象时，应当调用CloseHandle()来关闭它。
　　 在程序中使用WaitForSingleObject()来防止其他线程进入同步区域的代码。此函数声明如下：
　　 function
　　
　　 这个函数可以使当前线程在dwMilliseconds指定的时间内睡眠，直到hHandle参数指定的对象进入发信号状态为止。一个互斥对象不再被线程拥有时，它就进入发信号状态。当一个进程要终止时，它就进入发信号状态。dwMilliseconds参数可以设为0，这意味着只检查hHandle参数指定的对象是否处于发信号状态，而后立即返回。dwMilliseconds参数设为INFINITE，表示如果信号不出现将一直等下去。
　　 这个函数的返回值如下
　　 WaitFor SingleObject()函数使用的返回值
　　 返回值 含义
　　 WAIT_ABANDONED 指定的对象是互斥对象，并且拥有这个互斥对象的线程在没有释放此对象之前就已终止。此时就称互斥对象被抛弃。这种情况下，这个互斥对象归当前线程所有，并把它设为非发信号状态
　　 WAIT_OBJECT_0 指定的对象处于发信号状态
　　 WAIT_TIMEOUT等待的时间已过，对象仍然是非发信号状态再次声明，当一个互斥对象不再被一个线程所拥有,它就处于发信号状态。此时首先调用WaitForSingleObject()函数的线程就成为该互斥对象的拥有者，此互斥对象设为不发信号状态。当线程调用ReleaseMutex()函数并传递一个互斥对象的句柄作为参数时，这种拥有关系就被解除，互斥对象重新进入发信号状态。
　　 注意除WaitForSingleObject()函数外，你还可以使用WaitForMultipleObject()和MsgWaitForMultipleObject()函数，它们可以等待几个对象变为发信号状态。这两个函数的详细情况请看Win32 API联机文档。

[浩南_哥]

你是说你读取卡号成功并且日志也写成功了，记事本中是压根就没有内容还是内容是乱码？

[7年]

没内容

[7年]

   if (Length(cardcode)=10) and (cardcode<>'0000000000') and (cardcode<>'') then
    begin
      for i:=1 to 10 do
        begin
          GWinio.KeyPress(Ord(cardcode[I]),10);
        end;
      GWinio.KeyPress(Ord(#10),10);
      GWinio.KeyPress(Ord(#13),10);
    end;

这是输出到记事本的代码