どこに行ったのか、すぐに検索に引っかからなかったのでここにメモ。Delphiで管理者権限付きで実行する方法(Ansi版)。

uses .. shellapi ..;

procedure RunAsAdmin(hWnd: THandle; aFile: AnsiString; aParameters: AnsiString);
var
  sei: TShellExecuteInfoA;
begin
  ZeroMemory(@sei, SizeOf(sei));
  sei.cbSize := SizeOf(sei);
  sei.Wnd := hWnd;
  sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
  sei.lpVerb := 'runas';
  sei.lpFile := PAnsiChar(aFile);
  sei.lpParameters := PAnsiChar(aParameters);
  sei.nShow := SW_SHOWNORMAL;
  if not ShellExecuteEx(@sei) then
    raise Exception.Create('起動に失敗しました。(' + aFile + ')');
end;

恒例ですが、Delphi で、Windows Vista か 7 を判定する方法。Vista が 6.0 で、Windows7が、6.1。紛らわしいけど。

function isVistaOr7: Boolean;
var
  osInfo: OSVERSIONINFO;
begin
  Result := False;
  osInfo.dwOSVersionInfoSize:=sizeof(OSVERSIONINFO);
  if not GetVersionEx(osInfo) then Exit;
  Result := osInfo.dwMajorVersion >= 6;
end;

function isWindowsVista: Boolean;
var
  osInfo: OSVERSIONINFO;
begin
  Result := False;
  osInfo.dwOSVersionInfoSize:=sizeof(OSVERSIONINFO);
  if not GetVersionEx(osInfo) then Exit;
  Result := (osInfo.dwMajorVersion = 6) and (osInfo.dwMinorVersion = 0);
end;

function isWindowsSeven: Boolean;
var
  osInfo: OSVERSIONINFO;
begin
  Result := False;
  osInfo.dwOSVersionInfoSize:=sizeof(OSVERSIONINFO);
  if not GetVersionEx(osInfo) then Exit;
  Result := (osInfo.dwMajorVersion = 6) and (osInfo.dwMinorVersion = 1);
end;

Linuxで便利なFTPツール「lftp」を Windows で使う方法。

はじめに、Cygwin をインストールして、Cygwin のセットアップ時に、Network のツリーから lftp を選んでインストールするだけです。そして、コマンドラインから使い易いように、c:\cygwin\bin フォルダにパスを通します。

それで、Cygwinを使わず、lftpをコマンドだけで使う場合は、Cygwinのフォルダから、lftp.exe と「cyg*.dll」で検索して出てきたDLLを別のフォルダにコピーして、Cygwinをアンインストールして使います。

Webサイトの定期バックアップに使うような場合、以下のような２つのテキストファイルを作っておいて、「タスク スケジューラ」に、ftp-backup.bat を登録しておけば、毎日定期的にWebサイトをバックアップできます。（レンタルサーバなどを使っていて、FTP経由でしかバックアップできない場合に便利です！）

ftp-backup.bat

lftp -f ftpscript.txt

ftpscript.txt

open ftp.***.jp -u (ユーザー名),(パスワード)
mirror -X .svn/ --only-newer --verbose / (保存先フォルダ名)
close

open ftp.***.jp -u (ユーザー名),(パスワード)
mirror -X .svn/ --only-newer --verbose / (保存先フォルダ名)
close

我が家の開発マシンを、ようやく Windows7 にしました。移行してみて、なんだ、もっと早く移行すればよかったと思ったのです。

理由は、なでしこの開発環境の構築が楽という一点。Windows 7 には、Windows XPモードがついていて、仮想的に XP が動かせるのです。

というのも、なでしこの、エディタなど、Delphi 7 で開発しており、いまだ、他の環境に移行出来ていないのです。ところが、Windows Vista / 7 では、Delphi 7 が対応してないので、なんとか頑張ってインストールしなくてはならず、一苦労だったのです。早くほかの環境に移せれば良いのですが、あれだけのモノを、他の開発環境で作りなおすのは、なかなか大変なのです。

ただ、XPモードは、HOME Premium エディションでは動かないので要注意。裏技はあるみたいですけど。

• HOME PremiumでXPモード

作ってみたものの、Flash/Flexで作ったアプリが、なんか重たい！と思ったら、デバッグ版の Flash Player で描画領域をチェックして無駄な領域が再描画されていないかチェックすると良いみたいです。一口メモでした。