{ Fichier: mIRCMSG.pas Auteur: Ramzal_X (Kaven Gagné) Date: 2003 Ne pas modifier ni reproduire sans autorisation. } unit mIRCMSG; interface uses Windows, SysUtils, Messages; var FileMapHandle: HWND; FileMap: PChar; mIRCHandle: HWND; procedure Init_mIRCMSG(mIRCHdl: HWND); procedure Send_mIRCMSG(S: string); function Eval_mIRCMSG(S: string): string; procedure Free_mIRCMSG; implementation procedure Init_mIRCMSG(mIRCHdl: HWND); begin FileMapHandle:=CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,1024,'mIRC'); FileMap:=Pointer(MapViewOfFile(FileMapHandle,FILE_MAP_WRITE,0,0,1024)); mIRCHandle := mIRCHdl; end; procedure Send_mIRCMSG(S: string); begin StrCopy(FileMap,PChar(S)); SendMessage(mIRCHandle,WM_USER+200,1,0); end; function Eval_mIRCMSG(S: string): string; begin StrCopy(FileMap,PChar(S)); SendMessage(mIRCHandle,WM_user+201,1,0); Result := Filemap; end; procedure Free_mIRCMSG; Begin UnmapViewOfFile(FileMap); CloseHandle(FileMapHandle); end; end.