【ai】何か分析できないかな

オートエンコーダを用いた異常検知

http://hktech.hatenablog.com/entry/2018/09/05/221041

 

オートエンコーダのiris事例

https://www.hellocybernetics.tech/entry/2017/03/03/152551

 

word2vec

https://qiita.com/Hironsan/items/11b388575a058dc8a46a

 

単語の共起行列

https://note.mu/ryohp/n/n11d67711ba04

 

アソシエーション分析とアプリオリ

https://www.albert2005.co.jp/knowledge/marketing/customer_product_analysis/abc_association

【delphi】共有フォルダへのLogon

madia.world.coocan.jp


そのまま引用させて頂きます。

// HostにはIPアドレスも指定できます。 
function LogonExecute(Host, UserName, Passwd: string): DWord; 
var 
  NetRes : TNetResource; 
  str: string; 
begin 
  FillChar(NetRes, SizeOf(NetRes), 0); 
  NetRes.dwType := RESOURCETYPE_DISK; 

  str := '\\' + Host + '\IPC$'; 
  NetRes.lpRemoteName := PChar(str); 

  Result := WNetAddConnection2(NetRes, PChar(Passwd), PChar(UserName), 
                                     CONNECT_UPDATE_PROFILE); 
{必要ならコメントをはずす 
  if retn <> NO_ERROR then begin 
    case retn of 
     ERROR_SESSION_CREDENTIAL_CONFLICT: 
       begin 
         ErrMsg('Error SessionConflict'); 
         Result := False; 
       end; 
     else 
       begin 
         ErrMsg( 'Err :'+IntToStr(retn) ); 
         Result := False; 
       end; 
    end; 
  end; 
} 
end; 

// HostにはIPアドレスも指定できます。 
function LogoffExecute(Host: string): DWord; 
var 
  str: string; 
begin 
  str := '\\' + Host + '\IPC$'; 
  Result := WNetCancelConnection2(PChar(str), CONNECT_UPDATE_PROFILE, False); 
{必要ならコメントをはずす 
  if retn <> NO_ERROR then begin 
    case retn of 
     ERROR_OPEN_FILES: 
       begin 
         Result := True; 
       end; 
     else 
       begin 
         ErrMsg( 'Err :'+IntToStr(retn) ); 
         Result := False; 
       end; 
    end; 
  end; 
} 
end; 

【delphi 】グローバルフック

ローカルフックはアプリ内で、グローバルフック(システムフック)はPC内全体です。dllを作る必要があります。間違えると、PC全体を止めてしまうこともあるそうな。

 

◆キーログのグローバルフック(delphi)

http://mrxray.on.coocan.jp/Delphi/plSamples/260_HookKeyMouseEvent.htm

 

◆グローバルフックの仕組み

http://www.kab-studio.biz/Programing/Codian/DLL_Hook_SClass/06.html

 

◆ウインドウ生成のグローバルフック(delphi)

http://mrxray.on.coocan.jp/Delphi/plSamples/270_HookCBTCreate.htm

 

 

【delphi】GetForefroundWindow

最前面で作業中のウインドウを知りたいなら、GetForegroundWindowを使おう。


【過程】
実はGetActiveWindowはdelphiで作られた同一アプリ内のアクティブしか取得できません。


www.geocities.jp
これは簡単に使えだね。