userdetect2alarmingautosfxaysaliacalllibchecksum-toolscolormanagercryptochatcurrency_converterdecoderdelphiutilsdistributeddpcstudiodpg2fastphpfileformatsfilter_foundryforestgridgameht46f47_simulatorindexer_suiteipe_artfile_utilsjavautilsjumperlightgamelogviewermusikboxmystic_houseoidconverteroidinfo_apioidinfo_new_designoidpluspersonal-webbasephp_antispamphp_clientchallengephp_guestbookphp_utilsplumbersprependrecyclebinunitsimple_log_eventsokobanspacemissionstackmanuuid_mac_utilsvgwhoisvnagwebcounterwinbugtrackeryt_downloader

BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → /trunk/UserDetect2/UD2_TaskProperties.pas @ 73

  → /trunk/UserDetect2/UD2_TaskProperties.pas @ 80

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Regard whitespace Rev 73 → Rev 80

/trunk/UserDetect2/UD2_TaskProperties.pas
41,11 → 41,12
procedure TUD2TaskPropertiesForm.LoadExecutableFilesList;
resourcestring
LNG_RIOD = '%s [Run in own directory]';
LNG_RIOD = 'Run in own directory';
LNG_ADMIN = 'Run as admin';
var
sl: TStringList;
i: integer;
s: string;
cmdLine, flags: string;
begin
//fud2.GetCommandList(AShortTaskName, ListBox1.Items);
55,14 → 56,30
fud2.GetCommandList(FShortTaskName, sl);
for i := 0 to sl.Count-1 do
begin
s := sl.Strings[i];
if Copy(s, 1, Length(UD2_RUN_IN_OWN_DIRECTORY_PREFIX)) = UD2_RUN_IN_OWN_DIRECTORY_PREFIX then
cmdLine := sl.Strings[i];
flags := '';
if Pos(UD2_RUN_AS_ADMIN, cmdLine) >= 1 then
begin
s := Copy(s, 1+Length(UD2_RUN_IN_OWN_DIRECTORY_PREFIX), Length(s)-Length(UD2_RUN_IN_OWN_DIRECTORY_PREFIX));
s := Format(LNG_RIOD, [s]);
cmdLine := StringReplace(cmdLine, UD2_RUN_AS_ADMIN, '', [rfReplaceAll]);
if flags <> '' then flags := flags + ', ';
flags := flags + LNG_ADMIN;
end;
ListBox1.Items.Add(s);
if Pos(UD2_RUN_IN_OWN_DIRECTORY_PREFIX, cmdLine) >= 1 then
begin
cmdLine := StringReplace(cmdLine, UD2_RUN_IN_OWN_DIRECTORY_PREFIX, '', [rfReplaceAll]);
if flags <> '' then flags := flags + ', ';
flags := flags + LNG_RIOD;
end;
if flags <> '' then
begin
flags := ' [' + flags + ']';
end;
ListBox1.Items.Add(cmdLine + flags);
end;
finally
sl.Free;
end;