Win98: Play WMV file

To play wmv file in Windows 98, you must install Windows Media Format Series Runtime
Get it from Microsoft website

Linux: Convert a Text File to Upper Case Letter

awk ‘{ print toupper($0) }’ input_file > output_file

Delphi: Browse Dialog Function

Syntax: BrowseDialog(sTitle, iFlag)
Returns: string
Examples: BrowseDialog(‘Choose a folder’, BIF_RETURNONLYFSDIRS)

//
function BrowseDialog(const Title: string; const Flag: integer): string;
var
  lpItemID: PItemIDList;
  BrowseInfo: TBrowseInfo;
  DisplayName: array[0..MAX_PATH] of char;
  TempPath: array[0..MAX_PATH] of char;
begin
  Result := ”;
  FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
  with BrowseInfo do begin
    hwndOwner := Application.Handle;
    pszDisplayName := @DisplayName;
    lpszTitle := PChar(Title);
    ulFlags := Flag;
  end;
  lpItemID := SHBrowseForFolder(BrowseInfo);
  if lpItemId <> nil then begin
    SHGetPathFromIDList(lpItemID, TempPath);
    Result := TempPath;
    GlobalFreePtr(lpItemID);
  end;
end;

Google indexed

This blog first indexed in Google at 25 April 2008 04:00 AM