k1988

摘要： char dec2hexChar(short int n) { if ( 0 <= n && n <= 9 ) { return char( short('0') + n ); } else if ( 10 <= n && n <= 15 ) { return char( short('A') + n - 10 ); } else { return char(0); }}short int hexChar2dec(char c) { if ( '0'<=c && c&l 阅读全文

摘要： if IsWindow(Handle) then // If the application exists... begin WaitForInputIdle(HProcess, INFINITE); SetWindowLong(Handle, GWL_HWNDPARENT, Self.Handle); EnableWindow(Self.Handle, False); //WindowList := DisableTaskWindows(hProcess); MsgWaitForSingleObject(hProcess); EnableWindow(... 阅读全文

摘要： 小实验后随笔，未经严格测试和理论依据，仅供参考trace(test_mc._visible);test_mc._visible = false; //对一个剪辑设置了visible属性后，加载资源会使得visible属性无用。//test_mc._width = 20; //对一个空的剪辑设置宽高会使得这个剪辑在加载资源后不会自动调整宽高。var Media_ml:MovieClipLoader = new MovieClipLoader;//Media_ml.loadClip('D:/project/Flash/flash_plugins/res/1.jpg', test_m 阅读全文

摘要： &fmt=6 V:h.263 A:mp3&fmt=16 F4VHD V:h.264 A:aac 阅读全文

摘要： // 调整本进程优先级，有以下三句就够了HANDLE hPS = OpenProcess(PROCESS_ALL_ACCESS, false, GetCurrentProcessId()); SetPriorityClass(hPS, HIGH_PRIORITY_CLASS); CloseHandle(hPS); //define #define NORMAL_PRIORITY_CLASS 0x00000020 #define IDLE_PRIORITY_CLASS 0x00000040 #define HIGH... 阅读全文

摘要： 想写一个批处理文件去调用多个批处理文件，按照以前写的调用多个程序的方法a.exeb.exec.exe写了一个startAll.bat--------------------内容----------a.batb.batc.bat然后发现，a.bat执行完了后，这个批处理文件就直接停止了。查询资料后发现应该使用call于是更改为startAll.bat--------------------内容----------Calla.batCall b.batCall c.bat搞定之 阅读全文

摘要： just for as2:大家都知道在flash的按钮事件中写上Stage["displayState"] = "fullScreen";就可以使flash全屏，写Stage["displayState"] = "normal";可以使flash非全屏，但是在google chrome存在bug，如果是在按钮的onPrees事件中使flash全屏，全屏后没有释放鼠标，导致鼠标在flash界面上不能触发鼠标消息。而在自己编写可执行程序中加载的flash里面使用onrelease事件使flash全屏则不成功，必须使用o 阅读全文

摘要： constructor ***.Create()begin // ListView的消息钩子 FNewProc := MakeObjectInstance(SelfListViewProc); FOldProc := Pointer(GetWindowLong(FListView.Handle, GWL_WNDPROC)); SetWindowLong(FListView.Handle, GWL_WNDPROC, LongInt(FNewProc));end;procedure ***.SelfListViewProc(var Msg: TMessage);begin if Assi... 阅读全文

摘要： procedure TGroupItem.ListView1AdvancedCustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage; var DefaultDraw: Boolean);var NodeRect: TRect; NodeLabelRect:TRect; imageWidth,ImageHeight, RectWidth,RectHeight: Integer;begin if Sender <> FListVie 阅读全文

摘要： 以前做项目时遇到的读取xml中的一个不存在的元素时老是抛出异常，最开始是使用try...except捕获后使用默认值赋值，但如果元素多的话这样就很烦了，当初的解决方式是采用下面的方式，改变Variants单元中的全局变量NullStrictConvert。var tempNullStrictConvert:Boolean;begin tempNullStrictConvert := Variants.NullStrictConvert; Variants.NullStrictConvert := False; //使空的Variants可以不抛出异常的转换 ///***do some... 阅读全文