Subversion Repositories userdetect2

Rev

Rev 68 | Rev 71 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 68 Rev 70
Line 4... Line 4...
4 
 
 4 
 
5 
{$IF CompilerVersion >= 25.0}
 5 
{$IF CompilerVersion >= 25.0}
6 
{$LEGACYIFEND ON}
 6 
{$LEGACYIFEND ON}
7 
{$IFEND}
 7 
{$IFEND}
8 
 
 8 
 
- 
 
 9 
{$INCLUDE 'UserDetect2.inc'}
- 
 
 10 
 
9 
uses
 11 
uses
10 
  Windows, SysUtils, Dialogs, ShellAPI;
 12 
  Windows, SysUtils, Dialogs, ShellAPI;
11 
 
 13 
 
12 
type
 14 
type
13 
  TArrayOfString = array of String;
 15 
  TArrayOfString = array of String;
Line 253... Line 255...
253 
  end;
 255 
  end;
254 
 
 256 
 
255 
  ZeroMemory(@sei, SizeOf(sei));
 257 
  ZeroMemory(@sei, SizeOf(sei));
256 
  sei.cbSize       := SizeOf(sei);
 258 
  sei.cbSize       := SizeOf(sei);
257 
  sei.lpFile       := PChar(cmdFile);
 259 
  sei.lpFile       := PChar(cmdFile);
- 
 
 260 
  {$IFNDEF PREFER_SHELLEXECUTEEX_MESSAGES}
- 
 
 261 
  sei.fMask        := SEE_MASK_FLAG_NO_UI;
- 
 
 262 
  {$ENDIF}
258 
  if cmdArgs <> '' then sei.lpParameters := PChar(cmdArgs);
 263 
  if cmdArgs <> '' then sei.lpParameters := PChar(cmdArgs);
259 
  if cmdDir  <> '' then sei.lpDirectory  := PChar(cmdDir);
 264 
  if cmdDir  <> '' then sei.lpDirectory  := PChar(cmdDir);
260 
  sei.nShow        := WindowMode;
 265 
  sei.nShow        := WindowMode;
261 
  if ShellExecuteEx(@sei) then Exit;
 266 
  if ShellExecuteEx(@sei) then Exit;
- 
 
 267 
  {$IFNDEF PREFER_SHELLEXECUTEEX_MESSAGES}
262 
  CheckLastOSCall(false);
 268 
  CheckLastOSCall(false);
- 
 
 269 
  {$ENDIF}
263 
end;
 270 
end;
264 
 
 271 
 
265 
function GetHTML(AUrl: string): string;
 272 
function GetHTML(AUrl: string): string;
266 
// http://www.delphipraxis.net/post43515.html
 273 
// http://www.delphipraxis.net/post43515.html
267 
var
 274 
var