お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





FDelphi FAQ
16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"Windowsディレクトリを取り出す"

この発言に対し以下のコメントが寄せられています
#00364 ぜえた さん RE:Windowsディレクトリを取り出す
#00367 じゅにゃ さん WindowsSystemディレクトリを取り出す

{Windowsのインストールされているディレクトリを取り出す} function WhereisWinDir: String; var Buffer: PChar; R: Word; begin Buffer:= StrAlloc(200); try R := GetWindowsDirectory(Buffer,200); if R <> 0 then Result := StrPas(Buffer) else Result := ''; finally StrDispose(Buffer); end; end; 戻り値がWindowsディレクトリです。  おそらく私が考えたものではないとは思います(アレンジはしたかもしれな い)が、出典は不明です。 しかし、結構一般的な処理であろうと判断したのでアップします。 (Sample蔵にも見あたらなかったし。) 98/1/24(Sat) 08:42pm GFB00315 じゅにゃ Original document by じゅにゃ 氏 ID:(GFB00315)



ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。

Copyright 1996-2002 Delphi Users' Forum