Bixby Sayz
2012-05-11 07:52:58
Is there a way to check the SMART version from within a script?
2012-05-11 07:52:58
2012-05-11 08:01:05
2012-05-11 11:03:36
2012-05-11 18:14:10
2012-05-11 18:42:20
Function GetSmartVersion: String;
var
T: TSysProcArr;
I, V, D: Integer;
begin
T := GetProcesses;
for I := High(T) downto 0 do
if Pos('SMART', T[I].Title) <> 0 then
begin
V:= Pos('v', T[I].Title);
D:= Pos(' -', T[I].Title);
Result:= Copy(T[I].Title, V + 1, D - V);
end;
end;
2012-05-11 19:06:35
2012-05-11 19:39:16
{$IF Version}
{$ELSE}
{$DEFINE First}
{$ENDIF}
{$IFDEF First}
RunSomeFunction;
{$ENDIF}