Changeset 305 for Common/UCommon.pas

Timestamp:

Jan 3, 2012, 10:31:59 AM (13 years ago)

Author:

chronos

Message:

• Added: Property Finished of TListedThread.

File:

• Common/UCommon.pas (modified) (5 diffs)

Common/UCommon.pas

@@ -61 +61 @@
 procedure DeleteFiles(APath, AFileSpec: string);
 procedure OpenWebPage(URL: string);
+procedure OpenFileInShell(FileName: string);
+procedure ExecuteProgram(CommandLine: string);
 
 
@@ -285 +287 @@
   L := MAX_USERNAME_LENGTH + 2;
   SetLength(Result, L);
-  if Windows.GetUserName(PChar(Result), L) and (L > 0) then
-    SetLength(Result, StrLen(PChar(Result))) else
-    Result := '';
+  if Windows.GetUserName(PChar(Result), L) and (L > 0) then begin
+    SetLength(Result, StrLen(PChar(Result)));
+    Result := UTF8Encode(Result);
+  end else Result := '';
 end;
 
@@ -365 +368 @@
 end;
 
+procedure ExecuteProgram(CommandLine: string);
+var
+  Process: TProcess;
+begin
+  try
+    Process := TProcess.Create(nil);
+    Process.CommandLine := CommandLine;
+    Process.Options := [poNoConsole];
+    Process.Execute;
+  finally
+    Process.Free;
+  end;
+end;
+
 procedure OpenWebPage(URL: string);
 var
@@ -376 +393 @@
     //Process.Executable := Browser;
     //Process.Parameters.Add(Format(Params, [ApplicationInfo.HomePage]);
-    Process.Executable := 'cmd.exe';
-    Process.Parameters.Add('/c');
-    Process.Parameters.Add('start');
-    Process.Parameters.Add(URL);
+    Process.CommandLine := 'cmd.exe /c start ' + URL;
     Process.Options := [poNoConsole];
     Process.Execute;
@@ -387 +401 @@
 end;
 
+procedure OpenFileInShell(FileName: string);
+begin
+  ExecuteProgram('cmd.exe /c start ' + FileName);
+end;
 
 initialization