Changeset 72 for trunk/Packages/Common/UCommon.pas

Timestamp:

Mar 6, 2016, 12:10:38 AM (9 years ago)

Author:

chronos

Message:

• Modified: Built with FPC 3.0.0. Fixed various compiler messages.

File:

• trunk/Packages/Common/UCommon.pas (modified) (4 diffs)

trunk/Packages/Common/UCommon.pas

@@ -8 +8 @@
   {$IFDEF Windows}Windows,{$ENDIF}
   Classes, SysUtils, StrUtils, Dialogs, Process, LCLIntf,
-  FileUtil; //, ShFolder, ShellAPI;
+  FileUtil, LazFileUtils; //, ShFolder, ShellAPI;
 
 type
@@ -91 +91 @@
   I: Integer;
 begin
+  Result := '';
   for I := 1 to Length(Source) do begin
     Result := Result + LowerCase(IntToHex(Ord(Source[I]), 2));
@@ -105 +106 @@
   Path := IncludeTrailingPathDelimiter(APath);
 
-  Find := FindFirst(UTF8Decode(Path + AFileSpec), faAnyFile xor faDirectory, SearchRec);
+  Find := FindFirst(Path + AFileSpec, faAnyFile xor faDirectory, SearchRec);
   while Find = 0 do begin
-    DeleteFileUTF8(Path + UTF8Encode(SearchRec.Name));
+    DeleteFileUTF8(Path + SearchRec.Name);
 
     Find := SysUtils.FindNext(SearchRec);
@@ -416 +417 @@
 
 procedure OpenWebPage(URL: string);
-var
-  Process: TProcess;
-  Browser, Params: string;
 begin
   OpenURL(URL);
-  {try
-    Process := TProcess.Create(nil);
-    Browser := '';
-    //FindDefaultBrowser(Browser, Params);
-    //Process.Executable := Browser;
-    //Process.Parameters.Add(Format(Params, [ApplicationInfo.HomePage]);
-    Process.CommandLine := 'cmd.exe /c start ' + URL;
-    Process.Options := [poNoConsole];
-    Process.Execute;
-  finally
-    Process.Free;
-  end;}
 end;