git-svn-id: https://spexeah.com:8443/svn/Asuro@668 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

src/prog/shell.pas

@@ -6,6 +6,9 @@ uses
     Console, RTC, terminal, strings, asuro;
 
 procedure init();
+function getTaskbarColorsPtr : puint32;
+function getExploreColorsPtr : puint32;
+function getDesktopColorsPtr : puint32;
 
 implementation
 
@@ -16,6 +19,21 @@ var
     Explore_Colors : uint32;
     Desktop_Colors : uint32;
 
+function getTaskbarColorsPtr : puint32;
+begin
+    getTaskbarColorsPtr:= @Takbar_Colors;
+end;
+
+function getExploreColorsPtr : puint32;
+begin
+    getExploreColorsPtr:= @Explore_Colors;
+end;
+
+function getDesktopColorsPtr : puint32;
+begin
+    getDesktopColorsPtr:= @Desktop_Colors;
+end;
+
 procedure Draw();
 var
     DateTime : TDateTime;