desktop path を得るには？

解決

tama 2003-11-20 03:34:25 No: 5690

desktop pathを下記のコードで強引に得ています。
他の環境でも正しく得られるかが疑問です。
他に方法はありますか？

procedure TForm1.FormCreate(Sender: TObject);
var S:string;
begin
  S:=GetEnvironmentVariable('homedrive')+
     GetEnvironmentVariable('homepath')+
     '\デスクトップ\';
  showmessage(S);
end;

にしの 2003-11-20 04:28:13 No: 5691

それだと、少なくとも英語版Windowsでは無理ですよね。
# 'デスクトップ'と書かれたら・・・。

こういうTipsは探せばすぐに見つかりますよ。探しどころを押さえておきましょう。
http://www2.big.or.jp/~osamu/Delphi/tips.cgi?index=0163

tama 2003-11-20 18:07:33 No: 5692

早々に御教示をありがとうございました。
Win98では'デスクトップ'は半角文字のようです。

にしても↓は難解です(^^;
http://www2.big.or.jp/~osamu/Delphi/tips.cgi?index=0163