Changeset 282 for Common

Timestamp:

Oct 10, 2011, 1:34:02 PM (13 years ago)

Author:

george

Message:

• Addded: Function for open web page.

File:

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

Common/UCommon.pas

@@ -7 +7 @@
 uses
   {$IFDEF Windows}Windows,{$ENDIF}
-  Classes, SysUtils, SpecializedList, StrUtils, Dialogs,
+  Classes, SysUtils, SpecializedList, StrUtils, Dialogs, Process,
   FileUtil; //, ShFolder, ShellAPI;
 
@@ -36 +36 @@
 {$ENDIF}
 
-function IntToBin(Data: Cardinal; Count: Byte): string;
+function IntToBin(Data: Int64; Count: Byte): string;
+function BinToInt(BinStr: string): Int64;
 function TryHexToInt(Data: string; var Value: Integer): Boolean;
 function TryBinToInt(Data: string; var Value: Integer): Boolean;
@@ -59 +60 @@
 procedure FileDialogUpdateFilterFileType(FileDialog: TOpenDialog);
 procedure DeleteFiles(APath, AFileSpec: string);
+procedure OpenWebPage(URL: string);
 
 
 implementation
+
+function BinToInt(BinStr : string) : Int64;
+var
+  i : byte;
+  RetVar : Int64;
+begin
+  BinStr := UpperCase(BinStr);
+  if BinStr[length(BinStr)] = 'B' then Delete(BinStr,length(BinStr),1);
+  RetVar := 0;
+  for i := 1 to length(BinStr) do begin
+    if not (BinStr[i] in ['0','1']) then begin
+      RetVar := 0;
+      Break;
+    end;
+    RetVar := (RetVar shl 1) + (byte(BinStr[i]) and 1) ;
+  end;
+
+  Result := RetVar;
+end;
 
 function BinToHexString(Source: AnsiString): string;
@@ -179 +200 @@
 end;*)
 
-function IntToBin(Data: Cardinal; Count: Byte): string;
+function IntToBin(Data: Int64; Count: Byte): string;
 var
   I: Integer;
@@ -344 +365 @@
 end;
 
+procedure OpenWebPage(URL: string);
+var
+  Process: TProcess;
+  Browser, Params: string;
+begin
+  try
+    Process := TProcess.Create(nil);
+    Browser := '';
+    //FindDefaultBrowser(Browser, Params);
+    //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.Options := [poNoConsole];
+    Process.Execute;
+  finally
+    Process.Free;
+  end;
+end;
+
 
 initialization