Subversion Repositories userdetect2

Rev

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

Rev 73 Rev 80
Line 39... Line 39...
39 
uses
 39 
uses
40 
  UD2_Utils, UD2_Main, ShellAPI;
 40 
  UD2_Utils, UD2_Main, ShellAPI;
41 
 
 41 
 
42 
procedure TUD2TaskPropertiesForm.LoadExecutableFilesList;
 42 
procedure TUD2TaskPropertiesForm.LoadExecutableFilesList;
43 
resourcestring
 43 
resourcestring
44 
  LNG_RIOD = '%s [Run in own directory]';
 44 
  LNG_RIOD = 'Run in own directory';
- 
 
 45 
  LNG_ADMIN = 'Run as admin';
45 
var
 46 
var
46 
  sl: TStringList;
 47 
  sl: TStringList;
47 
  i: integer;
 48 
  i: integer;
48 
  s: string;
 49 
  cmdLine, flags: string;
49 
begin
 50 
begin
50 
  //fud2.GetCommandList(AShortTaskName, ListBox1.Items);
 51 
  //fud2.GetCommandList(AShortTaskName, ListBox1.Items);
51 
 
 52 
 
52 
  ListBox1.Clear;
 53 
  ListBox1.Clear;
53 
  sl := TStringList.Create;
 54 
  sl := TStringList.Create;
54 
  try
 55 
  try
55 
    fud2.GetCommandList(FShortTaskName, sl);
 56 
    fud2.GetCommandList(FShortTaskName, sl);
56 
    for i := 0 to sl.Count-1 do
 57 
    for i := 0 to sl.Count-1 do
57 
    begin
 58 
    begin
58 
      s := sl.Strings[i];
 59 
      cmdLine := sl.Strings[i];
- 
 
 60 
      flags := '';
- 
 
 61 
 
- 
 
 62 
      if Pos(UD2_RUN_AS_ADMIN, cmdLine) >= 1 then
- 
 
 63 
      begin
- 
 
 64 
        cmdLine := StringReplace(cmdLine, UD2_RUN_AS_ADMIN, '', [rfReplaceAll]);
- 
 
 65 
        if flags <> '' then flags := flags + ', ';
- 
 
 66 
        flags := flags + LNG_ADMIN;
- 
 
 67 
      end;
- 
 
 68 
 
59 
      if Copy(s, 1, Length(UD2_RUN_IN_OWN_DIRECTORY_PREFIX)) = UD2_RUN_IN_OWN_DIRECTORY_PREFIX then
 69 
      if Pos(UD2_RUN_IN_OWN_DIRECTORY_PREFIX, cmdLine) >= 1 then
60 
      begin
 70 
      begin
61 
        s := Copy(s, 1+Length(UD2_RUN_IN_OWN_DIRECTORY_PREFIX), Length(s)-Length(UD2_RUN_IN_OWN_DIRECTORY_PREFIX));
 71 
        cmdLine := StringReplace(cmdLine, UD2_RUN_IN_OWN_DIRECTORY_PREFIX, '', [rfReplaceAll]);
- 
 
 72 
        if flags <> '' then flags := flags + ', ';
62 
        s := Format(LNG_RIOD, [s]);
 73 
        flags := flags + LNG_RIOD;
63 
      end;
 74 
      end;
- 
 
 75 
 
- 
 
 76 
      if flags <> '' then
- 
 
 77 
      begin
- 
 
 78 
        flags := ' [' + flags + ']';
- 
 
 79 
      end;
- 
 
 80 
 
64 
      ListBox1.Items.Add(s);
 81 
      ListBox1.Items.Add(cmdLine + flags);
65 
    end;
 82 
    end;
66 
  finally
 83 
  finally
67 
    sl.Free;
 84 
    sl.Free;
68 
  end;
 85 
  end;
69 
end;
 86 
end;