Get Environment variables

doctorized · Post by **doctorized** » Thu May 28, 2009 1:28 pm

This is an other code I 've writen.
Get all the environment variables from every OS (Tested under Windows but it should work fine under other operating Systems. Tell if not.)

Code: Select all

; Author: Wicker Man
; Date: May 22 2009
; OS: All
; Demo: No
; More codes at: www.geocities.com/kc2000labs/pb/pb.htm

If OpenWindow(0, 0, 0, 640, 520, "Environment Variables", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered)
	If CreateGadgetList(WindowID(0))
		ListIconGadget(0,10,10,621,500,"Variable",200,#PB_ListIcon_GridLines | #PB_ListIcon_FullRowSelect)
	EndIf
	
	AddGadgetColumn(0,1,"Data",400)
	If ExamineEnvironmentVariables()
		While NextEnvironmentVariable()
			AddGadgetItem(0,-1,EnvironmentVariableName()+Chr(10)+EnvironmentVariableValue())
		Wend
	EndIf

  Repeat
    EventID = WaitWindowEvent()

    If EventID = #PB_Event_CloseWindow
      Quit = 1
    EndIf

  Until Quit = 1
  
EndIf

AND51 · Post by **AND51** » Thu May 28, 2009 2:07 pm

An amaaaaaaaaazing awesome code you have there, mate!

Good for people who are to shy to press F1 and look up ExamineEnvironmentVariables(). There's your code already implemented as example code.

doctorized · Post by **doctorized** » Thu May 28, 2009 2:15 pm

AND51 wrote:An amaaaaaaaaazing awesome code you have there, mate!
Good for people who are to shy to press F1 and look up ExamineEnvironmentVariables(). There's your code already implemented as example code.

There is people that do not know the contained commands. It is a way to inform them. No need to be spiteful with me. I just try to help.

Fluid Byte · Post by **Fluid Byte** » Thu May 28, 2009 2:23 pm

doctorized wrote:There is people that do not know the contained commands.

Are you serious? Will you post an code example from the help here every time someone is to lazy to RTFM?

doctorized wrote:It is a way to inform them. No need to be spiteful with me. I just try to help.

Well, I can understand him. You basically just copied the example from the help so what's the point?

AND51 · Post by **AND51** » Thu May 28, 2009 5:08 pm

Fluid Byte wrote:You basically just copied the example from the help so what's the point?

No... The example in the help outputs the variables and their value in a console...
He changed the output to a GUI.

Seymour Clufley · Post by **Seymour Clufley** » Fri May 29, 2009 1:57 pm

AND51 and Fluid Byte, aren't you being a bit unkind?

Fluid Byte · Post by **Fluid Byte** » Fri May 29, 2009 2:18 pm

Seymour Clufley wrote:AND51 and Fluid Byte, aren't you being a bit unkind?

No but German ...

Seriously, what is the point of posting identical examples from the help just because some idiots are to lazy to read the ****ing manual? This is insane!

Post by **Fred** » Fri May 29, 2009 3:00 pm

Please calm down, there is no need to harsh for such things.