【QBASIC互換!?】FreeBasic【GPL】 2 [無断転載禁止]©2ch.net (435ﾚｽ)
【QBASIC互換!?】FreeBasic【GPL】 2 [無断転載禁止]©2ch.net http://mevius.5ch.net/test/read.cgi/tech/1482549747/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
122: デフォルトの名無しさん [] 2017/03/14(火) 22:06:03.27 ID:1/oLMu3p あと CmdZString ="Open " & SoundFile+" notify" MSerrorCodeMI= mciSendString(CmdZString, @CmdRetZString, SizeOf(CmdRetZString), TakaHWND) buff ="Openを開始します" SetDlgItemText(hWin, IDC_STC1, @buff) Case IDC_BTN3 CmdZString= "Play "&SoundFile + " notify" MSerrorCodeMI =mciSendString(CmdZString,@CmdRetZString, SizeOf(CmdRetZString), TakaHWND) buff= "Playを開始します" SetDlgItemText(hWin, IDC_STC1, @buff) Case IDC_BTN4 CmdZString ="Close " & SoundFile+" notify" MSerrorCodeMI= mciSendString(CmdZString, @CmdRetZString,SizeOf(CmdRetZString), TakaHWND) buff ="Closeを開始します" SetDlgItemText(hWin, IDC_STC1, @buff) http://mevius.5ch.net/test/read.cgi/tech/1482549747/122
124: デフォルトの名無しさん [] 2017/04/09(日) 21:43:21.61 ID:LdLCQwyT >>122 のあと、マンゴーがなにんとかで、かけなくなって放置。 気が付いた点で関係情報を 外部タスクの同期起動は、Shell 等がある。 保守関係で、被同期にしたいので探して見つかったのが 'declare function WinExec(byval lpCmdLine as LPCSTR, byval uCmdShow as UINT) as UINT 'MSReturnCodeUINT = WinExec(byval "notepad", SW_SHOW) とか MSReturnCodeUINT = WinExec(byval "notepad "+OutFile, SW_SHOW) これは、MSが切り替えを予定している。それで 'declare function CreateProcessA(byval lpApplicationName as LPCSTR, byval lpCommandLine as LPSTR, byval lpProcessAttributes as LPSECURITY_ATTRIBUTES, byval lpThreadAttributes as LPSECURITY_ATTRIBUTES, byval bInheritHandles as WINBOOL, byval dwCreationFlags as DWORD, byval lpEnvironment as LPVOID, byval lpCurrentDirectory as LPCSTR, byval lpStartupInfo as LPSTARTUPINFOA, byval lpProcessInformation as LPPROCESS_INFORMATION) as WINBOOL Dim pi As _PROCESS_INFORMATION Dim PiPtr as LPPROCESS_INFORMATION dim si as _STARTUPINFOA Dim SiPtr as LPSTARTUPINFOA Dim As Zstring * 256 szCmd = "notepad "+OutFile PiPtr = @pi SiPtr = @si memset(@si, 0, sizeof(STARTUPINFO)) memset(@pi, 0, sizeof(PROCESS_INFORMATION)) si.cb = sizeof(STARTUPINFO) ' 1 2 3 4 5 6 7 8 9 10 MSReturnCode = CreateProcess(NULL, szCmd, NULL, NULL, FALSE, NORMAL_PRIORITY_CLASS, NULL, NULL, @Si, @pi) http://mevius.5ch.net/test/read.cgi/tech/1482549747/124
129: デフォルトの名無しさん [] 2017/04/15(土) 11:39:21.57 ID:e+ro1QoX >>122 のあとのマンゴー関係で書けなかった内容。 画面中にある表示枠情報。 Dim CmWndpl As WINDOWPLACEMENT CmWndpl.length = sizeof(CmWndpl): 'MS指示、参照前に定義のこと MSReturnCode = GetWindowPlacement(hWnd, @CmWndpl) で取得、 MSReturnCode = SetWindowPlacement(hWnd, @CmWndpl) で復元。 '使用TVの物理サイズの取得 Dim R As RECT Dim as HWND hWnd hWnd = GetDesktopWindow() MSReturnCode = GetWindowRect(hWnd, @R): 'スクリーン座標の取得 'タスクバーの位置と大きさを返す Dim TaskBerInfo As _AppBarData '(大域) Dim MSReturnCodeUintPtr as UINT_PTR ZeroMemory(@TaskBerInfo, sizeof(TaskBerInfo)) : '(MS指定) 「TaskBerInfo」領域内を0で塗りつぶす TaskBerInfo.cbSize = sizeof(TaskBerInfo): '(MS指定) 初期化、領域の大きさを定義 'declare function SHAppBarMessage(byval dwMessage as DWORD, byval pData as PAPPBARDATA) as UINT_PTR MSReturnCodeUintPtr = SHAppBarMessage(ABM_GETTASKBARPOS, @TaskBerInfo) リターンコードが「UINT_PTR」という使用頻度の低い型を使っていることに注意。 http://mevius.5ch.net/test/read.cgi/tech/1482549747/129
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
1.371s*