path:="C:\\syswin.sys" --路徑要與加密路徑一致!!
i:=ReadExtFile (path)
if FileType(path)=0 | i
標題:怎樣注冊一個控件?
描述:在程序開頭寫入如下代碼
if ActiveXControlQuery("{8BD21D20-EC42-11CE-9E0D-00AA
006002F3}")=0 then ActiveXControlRegister(FileLocation^"Fm
20.dll")
標題:怎樣去掉窗口右上角的按鈕?
描述:--Winapi.u32
CloseHandle:=GetSystemMenu(WindowHandle,0)
EnableMenuItem(CloseHandle, 61536,2) --右上角的關閉消失
標題:怎樣將顯示的圖片設為墻紙?
描述:如果你打開的圖片的格式不是BMP的話~
可以將屏幕上的圖片截取出來~
使用Memtools.u32
dibapi32.dll
FileName填你想要作為墻紙的圖片文件路徑名,而Tile則是一個布爾值
,當為True(1)的時候表示把墻紙平鋪,為False(0)的時候則為普
通模式。
例如:
baSetWallpaper( Filelocation^"arcade.bmp", 1) --//設置并平鋪
當前目錄下的arcade.bmp為墻紙
baSetWallpaper( Filelocation^"arcade.bmp", 1) --//設置并平鋪
當前目錄下的arcade.bmp為墻紙 baSetWallpaper( FileLocation^
"*.bmp", 1)
--budapi.u32
標題:怎樣配置數據庫的數據源?
描述:這是本機配置的語句
dbType:="Microsoft Access Driver (*.mdb)" --ODBC數據源驅動程
序
DSN:="DSN=everbright_DSN;" --指定數據源名
Description:="Description=資料管理;" --數據源描述
FIL:="FIL=MS Access;" --指定數據源的數據庫類型
DBQ:="DBQ="^FileLocation^"date\\picdate.mdb;" --指定數據庫文
件
dbList:=DSN^Description^FIL^DBQ
result:=tMsDBRegister(4, dbType, dbList) --配置數據源
這是局域網配置的語句
dbType:="Microsoft Access Driver (*.mdb)" --ODBC數據源驅動程
序
DSN:="DSN=everbright_DSN;" --指定數據源名
Description:="Description=資料管理;" --數據源描述
FIL:="FIL=MS Access;" --指定數據源的數據庫類型
DBQ:="DBQ="^\\工作站名\\共享目錄\\date\\picdate.mdb; ""
--指定數據庫文件
dbList:=DSN^Description^FIL^DBQ
result:=tMsDBRegister(4, dbType, dbList) --配置數據源
標題:怎樣做下拉二級菜單?
描述:在制作菜單之前,先要初始化一下:menu:=tMsCreatePopupList(
WindowHandle)
然后添加菜單具體可以是:
tMsAddItem(menu,1, 0,"小熊的網站與資源")
tMsAddItem(menu,1, 1,"小熊的視界")
tMsAddItem(menu,1, 2,"Authorware 資源站")
tMsAddItem(menu,1, 3,"小熊的書簽")
tMsAddItem(menu,1, 4,"給小熊留言")
tMsAddItem(menu,1, 5,"給小熊寫信")
tMsAddItem(menu,2, 0,"Authorware沙龍")
tMsAddItem(menu,3, 0,"遠方驛站")
在這里,一級菜單內容是:"小熊的網站與資源"、"Authorware沙龍"、
"遠方驛站"
在"小熊的網站與資源"下面有制作了二級菜單,內容是:"小熊的視界"
、"Authorware 資源站"、"小熊的書簽"、"給小熊留言"……
注意:此函數在XP系統下會失效!!可以用budmenu.u32制作菜單。
標題:做Login時怎么讓Password顯示為星號?
描述:插入ActiveX:RefEdit.Ctrl,將PasswordChar設置為*即可。
標題:怎樣取得系統安裝目錄?
描述:winsyspath:=getosdirectory()
標題:如何讓作品程序運行時,不在任務欄顯示?
描述:把下面代碼放在AW流程的最前面:(函數是winapi.u32內的封裝函數)
SetWindowPos(WindowHandle, -1 ,0, 0, 0,0, 128)
SetWindowLong(WindowHandle, (-20), 128)
SetWindowPos(WindowHandle, 1, 0, 0, 640,480,64)
在aw6+win2k上測試成功
-----------------------------------
showtaskbar(off)
標題:如何移動無標題窗口?
描述:用熱區,寫上如下代碼
SendMessage(WindowHandle,161,2,0)
--該函數在winapi.u32中
標題:如何最小化窗口?
描述:寫上如下代碼
ShowWindowAsync( WindowHandle, 2)
--該函數在winapi.u32中
標題:怎樣配置SQL網絡數據源?
描述:ODBCOpenDynamic()
DBConnString這樣寫
"Driver={SQL Server};" ^
"Server=...;" ^
"Address=...,1433;" ^
"Network=DBMSSOCN;" ^
"Database=database_name;" ^
"Uid=username;" ^
"Pwd=password"
標題:在AW中如何實現圖片跟隨鼠標的效果?
描述:用一個“顯示”圖標導入要移動的物體。 建一個條件交互,條件設為
TRUE,分別設置AutoMatic為When True,Branch為Continue,其余不
變。在條件交互下只要一個移動圖標就行。其設置如下: 在Motion標
簽頁中設置Type為Direct to Point,設置Timing為Time(sec),把其下
的數值改為0,設置Concurrency為Concurrent;在Layout標簽頁中分
別輸入Destination所對應X值為CursorX,Y值為CursorY。
標題:如何修改打包文件的窗口標題?
描述:用winapi.u32里面的SetWindowText函數設置窗口標題文字
例如:
SetWindowText(WindowHandle,"多媒體設計軟件")
這樣打包后的文件窗口標題就為你設置的文字了.
標題:Authorware說出錯了Xtra沒找到是怎么回事?
描述:用commands->FindXtras查找,部分不能查找的請手動復制,拷貝到目錄
下~
標題:如何解決在AW7.0中出現浮動面板出錯無法恢復正常狀態?
描述:這一問題可以通過刪除Windows注冊表中
HKEY_USER\Software\Macromedia\Authorware\7\Panellocs鍵下的
141,144,201子鍵,問題就可以解決了~
也可以在正常的情況下修改此鍵的權限為只讀
或者利用相關的補丁來解決
標題:如何以外部更換文本內容,實現以翻頁的形式實現文本的顯示?
描述:把文本存成外部文件,用getline函數可以獲得文件第n行到第m行的內
容,存在變量中。要實現分頁的話只要改n、m的數值就行,1:tx=
readextfile(filename)函數把文本文件存儲到tx變量。2:lx(x)=
getline(tx)函數把文本文件一行行讀到lx數組。
還可以選擇直接導入外部文件啊,并且可發用滾動條。
標題:如何使文本的一些字體顏色發生變化?
描述:1、可以,定義文本的風格(define styles),然后應用風格(apply
styles)
2、在演示窗口中選中文本后,調出顏色盒(Ctrl+K),也可改變字體
顏色
標題:如何控制背景音樂的播放與暫停?
描述:一般背景音樂用midi格式,可以用midiplay與midistop語