nSonic

[code lang=”delphi”]function CreateProcessSimple(sExecutableFilePath : string ): string; var pi: TProcessInformation; si: TStartupInfo; begin FillMemory( @si, sizeof( si ), 0 ); si.cb := sizeof(…

[code lang=”delphi”]var VersionInfo: TOSVersionInfo; begin VersionInfo.dwOSVersionInfoSize := Sizeof(TOSVersionInfo); GetVersionEx(VersionInfo); Case VersionInfo.dwPlatformID of VER_PLATFORM_WIN32S: Do_SomeThing; VER_PLATFORM_WIN32_WINDOWS: Do_SomeOtherThing; VER_PLATFORM_WIN32_NT: Do_SomeThingElse; End; end; typedef struct _OSVERSIONINFO{…

This is how you do it in NT…. [code lang=”delphi”]procedure SetSystemEnvironmentVariable (const name, value : string); var rv : DWORD; begin with TRegistry.Create…

This isn’t a question, it’s a tip!! I’ve recently discovered a fancy, but most of the time useless, API-function called SetSystemPowerState, wich can…

> Hi > > How can I make really really really, extremely, unique names??? I need > about 100 of them at a…