main.pas

啊看见电脑哦啊师父破案对方；啊老大你发；dfadsdsfadfd发

//          KMP侩 myHD府葛能 牧飘费矾 橇肺弊伐~~
//          100%橇府捞骨肺 妇措肺 荐沥秦辑 荤侩窍技夸~~

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, Menus, RXShell, Registry, ShellAPI, HComPort;

type
  TMainForm = class(TForm)
    XPManifest1: TXPManifest;
    RxTrayIcon1: TRxTrayIcon;
    PopupMenu1: TPopupMenu;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
  private
    HSerialPort1: THSerialPort;
    FInited : Boolean;
    FLastString : string;
    FLastCnt : integer;
    FOldTick : DWORD;
    procedure HSerialPort1RxChar(Sender: TObject; ResvSize: Integer);
    procedure InitComport;
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

uses
 ShMem,
 wa_ipc; // Winamp 瘤盔 蜡粗... KMP绰 扩骏橇 5.X API甫 90%沥档 瘤盔窍瘤父
         // 胶挪 疙飞绢 父栏肺 面盒 窍骨肺 荤侩窍瘤 臼绰促.

const

// KMP Skin Button Command
 cMainMenu            = $0001;
 cSystemMenu          = $0002;
 cMinCmd              = $0003;
 cMaxCmd              = $0004;
 cExitCmd             = $0005;
 cOpenMenu            = $0006;
 cAlbumMenu           = $0007;
 cCloseCmd            = $0008;
 cWDMMenu             = $0009;
 cDVDMenu             = $000A;
 cWinampMenu          = $000B;
 cScreenMenu          = $000C;
 cAdvScreenMenu       = $000D;
 cPlaybackMenu        = $000E;
 cCaptionMenu         = $000F;
 cVideoMenu           = $0010;
 cAdvVideoMenu        = $0011;
 cAudioMenu           = $0012;
 cCaptureMenu         = $0013;
 cVisualMenu          = $0014;
 cFilterMenu          = $0015;
 cBookmarkMenu        = $0016;
 cEnvRestoreMenu      = $0017;
 cSkinMenu            = $0018;
 cOpenFileCmd         = $0019;
 cOpenURLCmd          = $001A;
 cOpenFolderCmd       = $001B;
 cOpenTVOutCmd        = $101B;
 cOpenIEMediaCmd      = $001C;
 cOpenRecentCmd       = $001D;
 cOpenReTryCmd        = $001E;
 cOpenWDMCmd          = $001F;
 cOpenBaseWDMCmd      = $101F;
 cOpenDVDDeviceCmd    = $0020;
 cOpenDVDFileCmd      = $0021;
 cOpenVCDCmd          = $0022;
 cAlbumPrevOpenCmd    = $0023;
 cAlbumNextOpenCmd    = $0024;
 cWDMTunerMagCmd      = $0025;
 cWDMChannelMagCmd    = $0026;
 cWDMFirstChannelCmd   = $0027;
 cWDMPrevChannelCmd    = $0028;
 cWDMNextChannelCmd    = $0029;
 cWDMLastChannelCmd    = $002A;
 cWDMRegPrevChannelCmd = $002B;
 cWDMRegNextChannelCmd = $002C;
 cWDMInputChannelCmd   = $002D;
 cWDMAntennaInputCmd   = $002E;
 cWDMCableInputCmd     = $002F;
 cDVDSubpictureMenu    = $0030;
 cDVDAudioMenu         = $0031;
 cDVDAngleMenu         = $0032;
 cDVDMoveMenu          = $0033;
 cDVDPrevChapterCmd    = $0034;
 cDVDNextChapterCmd    = $0035;
 cDVDRootMenuCmd       = $0036;
 cDVDTitleMenuCmd      = $0037;
 cDVDSubpictureMenuCmd = $0038;
 cDVDAudioMenuCmd      = $0039;
 cDVDAngleMenuCmd      = $003A;
 cDVDChapterMenuCmd    = $003B;
 cDVDRestoreMenuCmd    = $003C;
 cDVDClosedCaptionCmd  = $003D;
 cDVD1XBackwardCmd     = $003E;
 cDVD2XBackwardCmd     = $003F;
 cDVD4XBackwardCmd     = $0040;
 cDVD8XBackwardCmd     = $0041;
 cDVD1XForewardCmd     = $0042;
 cDVD2XForewardCmd     = $0043;
 cDVD4XForewardCmd     = $0044;
 cDVD8XForewardCmd     = $0045;
 cWinampPluginSetupCmd = $0046;
 cWinampPluginInfoCmd  = $0047;
 cWinampFileInfoCmd    = $0048;
 cScreenKeepBaseRatio  = $0049;
 cScreenKeep43Ratio    = $004A;
 cScreenKeep169Ratio   = $004B;
 cScreenKeep235Ratio   = $124B;
 cScreenKeepCurRatio   = $004C;
 cScreenCycleRatio     = $304C;
 cScreenMinSize        = $704D;
 cScreenVisOn          = $704E;
 cScreenVisOff         = $704F;
 cScreenHalfSize       = $004D;
 cScreenNormalSize     = $004E;
 cScreenDoubleSize     = $2046;
 cScreenMaxSize        = $2047;
 cScreenRestoreSize    = $3047;
 cScreenFullSize       = $2048;
 cScreenDesktopView    = $2166;
 cScreenWideSize       = $2266;
 cScreenTopLeft        = $2049;
 cScreenTopCenter      = $204A;
 cScreenTopRight       = $204B;
 cScreenMiddleLeft     = $204C;
 cScreenMiddleCenter   = $204D;
 cScreenMiddleRight    = $204E;
 cScreenBottomLeft     = $204F;
 cScreenBottomCenter   = $0050;
 cScreenBottomRight    = $0051;
 cScreenAllwaysOnTop   = $0052;
 cScreenPlayingOnTop   = $0053;
 cScreenScreenSave     = $0054;
 cScreenHideMouse      = $0055;
 cAdvScreenRestore     = $0056;
 cAdvScreenZoomIn      = $0057;
 cAdvScreenZoomOut     = $0058;
 cAdvScreenZoomInHori  = $0059;
 cAdvScreenZoomOutHori = $005A;
 cAdvScreenZoomInVert  = $005B;
 cAdvScreenZoomOutVert = $005C;
 cAdvScreenMoveLeft    = $005D;
 cAdvScreenMoveRight   = $005E;
 cAdvScreenMoveUp      = $005F;
 cAdvScreenMoveDown    = $0060;
 cAdvScreenOffset      = $0061;
 cPlayPlayPauseCmd     = $7061;
 cPlayPausePlayCmd     = $7062;
 cPlayPlayCmd          = $0062;
 cPlayStopCmd          = $0063;
 cPlayFrameCmd         = $0064;
 cPlayPrevFileCmd      = $0065;
 cPlayNextFileCmd      = $0066;
 cPlayBackward1Cmd     = $0067;
 cPlayForward1Cmd      = $0068;
 cPlayBackward2Cmd     = $0069;
 cPlayForward2Cmd      = $006A;
 cPlayBackward3Cmd     = $006B;
 cPlayForward3Cmd      = $006C;
 cPlayBackward4Cmd     = $006D;
 cPlayForward4Cmd      = $006E;
 cPlayPrevCapCmd       = $006F;
 cPlayNextCapCmd       = $0070;
 cPlayStartPosCmd      = $0071;
 cPlayMidPosCmd        = $0072;
 cPlayLastPosCmd       = $0073;
 cPlaySlowerSpeedCmd   = $0074;
 cPlayNormalSpeedCmd   = $0075;
 cPlayFasterSpeedCmd   = $0076;
 cPlaySlowerPitchCmd   = $0077;
 cPlayNormalPitchCmd   = $0078;
 cPlayFasterPitchCmd   = $0079;
 cPlayRepeatMenu       = $007A;
 cPlayRepeatSetCmd     = $307A;
 cPlayRepeatStartCmd   = $307B;
 cPlayRepeatEndCmd     = $307C;
 cPlayRepeatUseCmd     = $307D;
 cPlayModeMenu         = $007B;
 cPlayModeDirDown      = $307E;
 cPlayModeDirUp        = $307F;
 cPlayModeDirRandom    = $3080;
 cPlayModeDirRepeat    = $3081;
 cPlayModeAlbumNext    = $3082;
 cPlayModeAlbumRepeat  = $3083;
 cPlayModeAlbumNone    = $3084;
 cPlayModeAlbumExit    = $3085;
 cPlayModeAlbumPowerOff= $3086;
 cPlayModeAlbumFileClose= $3087;
 cPlayMoveMenu          = $3088;
 cPlaySkipStartCmd     = $3089;
 cPlaySkipIntroCmd     = $308C;
 cPlaySkipEndCmd       = $309A;
 cPlaySkipSettingCmd   = $309B;
 cPlaySaveFilePosCmd   = $309C;
 cPlayUseAVIKeyFrameCmd = $309D;
 cCaptionFileOpenCmd   = $007C;
 cCaptionVisibleCmd    = $007D;
 cCaptionSyncInputCmd  = $007E;
 cCaptionSyncPrevCmd   = $007F;
 cCaptionSyncNextCmd   = $0080;
 cCaptionOverlayCmd    = $0081;
 cCaptionImageCmd      = $0082;
 cCaptionAlignMenu     = $0083;
 cCaptionAlignLeftCmd  = $0084;
 cCaptionAlignCenterCmd= $0085;
 cCaptionAlignRightCmd = $0086;
 cCaptionAlignTopCmd    = $2084;
 cCaptionAlignMiddleCmd = $2085;
 cCaptionAlignBottomCmd = $2086;
 cCaptionLanguageMenu  = $0087;
 cCaptionMarginMenu    = $0088;
 cCaptionMargin0Cmd    = $0089;
 cCaptionMargin5Cmd    = $008A;
 cCaptionMargin10Cmd   = $008B;
 cCaptionMargin15Cmd   = $008C;
 cCaptionMargin20Cmd   = $008D;
 cCaptionMargin25Cmd   = $008E;
 cCaptionMargin30Cmd   = $008F;
 cCaptionLargerCmd     = $0090;
 cCaptionSmallerCmd    = $0091;
 cCaptionNormalCmd     = $0092;
 cCaptionBoldCmd       = $0093;
 cCaptionItialicCmd    = $0094;
 cCaptionAlphaCmd      = $0095;
 cCaptionUnderlineCmd  = $0096;
 cCaptionFadeCmd       = $0097;
 cCaptionShadowCmd     = $0098;
 cCaptionOutlineCmd    = $0099;
 cCaptionVertCmd       = $009A;
 cCaptionAntialiasCmd  = $009B;
 cCaptionHTMLCmd       = $009C;
 cCaptionMoveDownCmd   = $009D;
 cCaptionMoveUpCmd     = $009E;
 cCaptionIncMarginCmd  = $009F;
 cCaptionDecMarginCmd  = $1100;
 cVideoDecBaseBrightCmd= $1101;
 cVideoIncBaseBrightCmd= $1102;
 cVideoMotionBlurCmd   = $1103;
 cVideoLPFilterCmd     = $1104;
 cVideoSharpenFilterCmd= $1105;
 cVideoMediaBlockCmd   = $1106;
 cVideoMediaCrossCmd   = $1107;
 cVideoMeanYFilterCmd  = $1108;
 cVideoMeanUVFilterCmd = $1109;
 cVideoGreyScaleCmd    = $110A;
 cVideoAutoLevelCmd    = $110B;
 cVideoMirrorCmd       = $110C;
 cVideoInInverseCmd    = $110D;
 cVideoOutInverseCmd   = $110E;
 cVideoSpecialFilterMenu= $210F;
 cVideoHPFilterCmd     = $2110;
 cVideoLaplaceCmd      = $2101;
 cVideoEdgeDetectCmd   = $2102;
 cVideoEdgeEnhanceCmd  = $2103;
 cVideoColorEmbossCmd  = $2104;
 cVideoColorInverseCmd = $2105;
 cVideoHistogramCmd    = $2106;
 cVideoIgnoreSettingCmd= $2107;
 cVideoUsePluginCmd    = $2108;
 cAdvVideoLowUseOverSample = $3109;
 cAdvVideoAllUseOverSample = $310A;
 cAdvVideoNoUseOverSample  = $310B;
 cAdvVideoDeInterlaceCmd = $310C;
 cAdvVideoPostProcessCmd = $310D;
 cAdvVideoPicPropertyCmd = $310E;
 cAdvVideoSharpenCmd     = $310F;
 cAdvVideoBlurCmd        = $3110;
 cAdvVideoGDeNoiseCmd    = $3111;
 cAdvVideoLevelControlCmd= $3112;
 cAdvVideoFastestModeCmd = $3113;
 cAdvVideoFastPresetCmd  = $3114;
 cAdvVideoHQPresetCmd    = $3115;
 cAdvVideoBasePresetCmd  = $3116;
 cAdvVideoHardwareMenu   = $3117;
 cAdvVideoSoftwareMenu   = $3118;
 cAdvVideoHWIncBrightCmd = $3119;
 cAdvVideoHWBaseBrightCmd= $311A;
 cAdvVideoHWDecBrightCmd = $311B;
 cAdvVideoHWIncSaturatCmd = $311C;
 cAdvVideoHWBaseSaturatCmd= $311D;
 cAdvVideoHWDecSaturatCmd = $311E;
 cAdvVideoHWIncContrastCmd = $311F;
 cAdvVideoHWBaseContrastCmd= $3120;
 cAdvVideoHWDecContrastCmd = $3121;
 cAdvVideoSWIncBrightCmd = $3122;
 cAdvVideoSWBaseBrightCmd= $3123;
 cAdvVideoSWDecBrightCmd = $3124;
 cAdvVideoSWIncSaturatCmd = $3125;
 cAdvVideoSWBaseSaturatCmd= $3126;
 cAdvVideoSWDecSaturatCmd = $3127;