You can tell that WordPress is created by geeks when they bring out a new feature like the one below which allows me to post syntactically highlighted code into my blog. Most of the regular vistors, with a few notable exceptions – you know who you are – will not give two stuffs about this feature but it is pretty cool.
Here’s some code from one of the apps that I work on (this one is from a dentistry software house – I write all but one of their products).
[geek alert]For those that need to know it runs the passed application with elevated administrator permissions on Windows Vista [/geek alert]
procedure TfrmSequences.RunAsAdmin(hWnd: HWND; afile: string; aParameters: string); var sei: TShellExecuteInfoA; begin // Execute 'aFile' with aParameters as the parameters // with a request for elevation to Adminstrator level on Windows Vista FillChar(sei, SizeOf(sei), 0); sei.cbSize := SizeOf(sei); sei.Wnd := hWnd; sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI; sei.lpVerb := 'runas'; sei.lpFile := PChar(afile); sei.lpParameters := PChar(aParameters); sei.nShow := SW_SHOWNORMAL; if not ShellExecuteEx(@sei) then RaiseLastOSError; end;