ShellExecute 如果找不到目标死机怎么办?
ShellExecute(Self.Handle, 'explore ',pchar(...), ' ', ' ', SW_SHOWNORMAL);
找不到网络上的目标我想让它超过10秒后就停下来
[解决办法]
你指的网上的目录是什么？一个地址？一个文件？
前面在做文件下载的时候，有时会遇到url指定的文件并不存在，所以在下载过程中会出现一些错误，尽管这些错误可以except掉，但还是需事先检测一下，如果url不正确则不用再调用download过程了。下面的函数可以进行检测并函数返回boolean型值：
1 function TFrameChannel.CheckUrl(url: string; TimeOut: Integer = 5000): boolean;
2 var
3 hSession, hfile : hInternet;
4 dwindex, dwcodelen: dword;
5 dwcode: array[1..20] of char;
6 res: pchar;
7 re: integer;
8 Err1: integer;
9 j: integer;
10 begin
11 if pos( 'http:// ', lowercase(url)) = 0 then
12 url := 'http:// ' + url;
13 Result := false;
14 hSession := nil;
15 hFile := nil;
16
17 //设置超时
18 InternetSetOption(hSession, Internet_OPTION_CONNECT_TIMEOUT, @TimeOut, 4);
19 hSession := InternetOpen( 'Mozilla/4.0 ', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
20 if assigned(hsession) then begin
21 j := 1;
22 while true do begin
23 hfile := InternetOpenUrl(hsession, pchar(url), nil, 0, INTERNET_FLAG_RELOAD, 0);
24 if hfile = nil then begin
25 j := j + 1;
26 Err1 := GetLastError;
27 if j > 5 then break;
28 if (Err1 <> 12002) or (Err1 <> 12152) then break;
29 sleep(2);
30 end else begin
31 break;
32 end;
33 end;
34 dwIndex := 0;
35 dwCodeLen := 10;
36 HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, @dwcode, dwcodeLen, dwIndex);
37 res := pchar(@dwcode);
38 re := strtointdef(res, 404);
39 case re of
40 400..450: result := false;
41 else result := true;
42 end;
43 if assigned(hfile) then
44 InternetCloseHandle(hfile);
45 InternetCloseHandle(hsession);
46 end;
47 end;
我想也适用于url网页吧。shell前用这个方法检测一下资源是否有效
