Windows 双击打开程序

﹏ヽ暗。殇╰゛Y 2021-09-26 03:44 481阅读 0赞

`bool`  `CFileManager::OpenFile(` `LPCTSTR`  `lpFile, ` `INT`  `nShowCmd)`

`{   `

`    ` `char`     `lpSubKey[500];`

`    ` `HKEY`     `hKey;`

`    ` `char`     `strTemp[MAX_PATH];`

`    ` `LONG`     `nSize = ` `sizeof` `(strTemp);`

`    ` `char`     `*lpstrCat = NULL;`

`    ` `memset` `(strTemp, 0, ` `sizeof` `(strTemp));`

`     `

`    ` `char`     `*lpExt = ` `strrchr` `(lpFile, ` `'.'` `);`

`    ` `if`  `(!lpExt)`

`        ` `return`  `false` `;`

`     `

`    ` `if`  `(RegOpenKeyEx(HKEY_CLASSES_ROOT, lpExt, 0L, KEY_ALL_ACCESS, &hKey) != ERROR_SUCCESS)`

`        ` `return`  `false` `;`

`     `

`    ` `RegQueryValueA(hKey, NULL, strTemp, &nSize);`

`    ` `RegCloseKey(hKey);`

`     `

`    ` `memset` `(lpSubKey, 0, ` `sizeof` `(lpSubKey));`

`    ` `wsprintf(lpSubKey, ` `"%s\\shell\\open\\command"` `, strTemp);`

`     `

`    ` `if`  `(RegOpenKeyEx(HKEY_CLASSES_ROOT, lpSubKey, 0L, KEY_ALL_ACCESS, &hKey) != ERROR_SUCCESS)`

`        ` `return`  `false` `;`

`     `

`    ` `memset` `(strTemp, 0, ` `sizeof` `(strTemp));`

`    ` `nSize = ` `sizeof` `(strTemp);`

`    ` `RegQueryValue(hKey, NULL, strTemp, &nSize);`

`    ` `RegCloseKey(hKey);`

`     `

`    ` `lpstrCat = ` `strstr` `(strTemp, ` `"\"%1"` `);`

`    ` `if`  `(lpstrCat == NULL)`

`        ` `lpstrCat = ` `strstr` `(strTemp, ` `"%1"` `);`

`     `

`    ` `if`  `(lpstrCat == NULL)`

`    ` `{`

`        ` `lstrcatA(strTemp, ` `" "` `);`

`        ` `lstrcatA(strTemp, lpFile);`

`    ` `}`

`     `

`    ` `else`

`        ` `lstrcpyA(lpstrCat, lpFile);`

`     `

`    ` `char`  `Desktop[16] =` `"WinSta0\\Default"` `;`

`     `

`    ` `STARTUPINFO si = {0};`

`    ` `PROCESS_INFORMATION pi;`

`    ` `si.cb = ` `sizeof`  `si;`

`    ` `if`  `(nShowCmd != SW_HIDE)`

`        ` `si.lpDesktop = Desktop; `

`     `

`    ` `CreateProcessA(NULL, strTemp, NULL, NULL, ` `false` `, 0, NULL, NULL, &si, &pi);`

`}`

`所有的操作是explorer.exe做的，双击事件被explorer.exe捕获，explorer.exe根据打开文件的后缀名，查找注册表，找出对应的打开方式，然后调用ShellExecute/ShellExecuteEx，explorer是个系统进程，也没啥 哦 相当于整个待机桌面就是一个运行的程序，（explorer.exe根据打开文件……`

WinAPI: ShellExecute - 打开外部程序或文件

ShellExecute(  
  hWnd: HWND;        \{指定父窗口句柄\}  
  Operation: PChar;  \{指定动作, 譬如: open、print\}  
  FileName: PChar;   \{指定要打开的文件或程序\}  
  Parameters: PChar; \{给要打开的程序指定参数; 如果打开的是文件这里应该是 nil\}  
  Directory: PChar;  \{缺省目录\}  
  ShowCmd: Integer   \{打开选项\}  
): HINST;            \{执行成功会返回应用程序句柄; 如果这个值 <= 32, 表示执行错误\}

//返回值可能的错误有:  
                       = 0   \{内存不足\}  
ERROR\_FILE\_NOT\_FOUND   = 2;  \{文件名错误\}  
ERROR\_PATH\_NOT\_FOUND   = 3;  \{路径名错误\}  
ERROR\_BAD\_FORMAT       = 11; \{EXE 文件无效\}  
SE\_ERR\_SHARE           = 26; \{发生共享错误\}  
SE\_ERR\_ASSOCINCOMPLETE = 27; \{文件名不完全或无效\}  
SE\_ERR\_DDETIMEOUT      = 28; \{超时\}  
SE\_ERR\_DDEFAIL         = 29; \{DDE 事务失败\}  
SE\_ERR\_DDEBUSY         = 30; \{正在处理其他 DDE 事务而不能完成该 DDE 事务\}  
SE\_ERR\_NOASSOC         = 31; \{没有相关联的应用程序\}

//ShowCmd 参数可选值:  
SW\_HIDE            = 0;  \{隐藏\}  
SW\_SHOWNORMAL      = 1;  \{用最近的大小和位置显示, 激活\}  
SW\_NORMAL          = 1;  \{同 SW\_SHOWNORMAL\}  
SW\_SHOWMINIMIZED   = 2;  \{最小化, 激活\}  
SW\_SHOWMAXIMIZED   = 3;  \{最大化, 激活\}  
SW\_MAXIMIZE        = 3;  \{同 SW\_SHOWMAXIMIZED\}  
SW\_SHOWNOACTIVATE  = 4;  \{用最近的大小和位置显示, 不激活\}  
SW\_SHOW            = 5;  \{同 SW\_SHOWNORMAL\}  
SW\_MINIMIZE        = 6;  \{最小化, 不激活\}  
SW\_SHOWMINNOACTIVE = 7;  \{同 SW\_MINIMIZE\}  
SW\_SHOWNA          = 8;  \{同 SW\_SHOWNOACTIVATE\}  
SW\_RESTORE         = 9;  \{同 SW\_SHOWNORMAL\}  
SW\_SHOWDEFAULT     = 10; \{同 SW\_SHOWNORMAL\}  
SW\_MAX             = 10; \{同 SW\_SHOWNORMAL\}

//举例说明更多问题(别忘了 uses ShellAPI;):

\{譬如用记事本打开一个文件\}  
begin  
  ShellExecute(Handle, 'open', 'notepad.exe', 'C:\\WINDOWS\\SchedLgU.Txt', nil, SW\_SHOWNORMAL);  
end;

\{第一个参数是用来当作错误提示窗口的父窗口的, 不能是 nil, 可以是 0(也就是桌面窗口)\}  
begin  
  ShellExecute(0, 'open', 'notepad.exe', 'C:\\WINDOWS\\SchedLgU.Txt', nil, SW\_SHOWNORMAL);  
end;

\{第二个参数如果是 nil, 也会默认位 open\}  
begin  
  ShellExecute(0, nil, 'notepad.exe', 'C:\\WINDOWS\\SchedLgU.Txt', nil, SW\_SHOWNORMAL);  
end;

\{文件路径可以放在参数五\}  
begin  
  ShellExecute(0, nil, 'notepad.exe', 'SchedLgU.Txt', 'C:\\WINDOWS', SW\_SHOWNORMAL);  
end;

\{把参数三直接指定为要打开的文件, 文件将用对应默认程序打开; 次数参数四应为 nil\}  
begin  
  ShellExecute(0, nil, 'SchedLgU.Txt', nil, 'C:\\WINDOWS', SW\_SHOWNORMAL);  
end;

\{如果文件在: 程序目录/当前目录/System32/Windows/PATH环境变量中, 参数五也可以 nil\}  
begin  
  ShellExecute(0, nil, 'SchedLgU.Txt', nil, nil, SW\_SHOWNORMAL);  
end;

\{如果参数三是个文件, 可以用参数二命令打印\}  
begin  
  ShellExecute(0, 'print', 'SchedLgU.Txt', nil, nil, 1);  
end;

\{用 IE 打开网页\}  
begin  
  ShellExecute(Handle, 'open', 'IExplore.EXE', 'about:blank', nil, SW\_SHOWNORMAL);  
end;

\{用火狐打开网页\}  
begin  
  ShellExecute(Handle, 'open', 'firefox.exe', 'about:blank', nil, SW\_SHOWNORMAL);  
end;

\{用默认浏览器打开网页\}  
begin  
  ShellExecute(Handle, 'open', 'Explorer.exe', 'about:blank', nil, SW\_SHOWNORMAL);  
end;

\{还是用默认浏览器打开网页\}  
begin  
  ShellExecute(0, nil, '[http://del.cnblogs.com'][http_del.cnblogs.com], nil, nil, 1);  
end;

[http_del.cnblogs.com]: http://del.cnblogs.com%27/