ApplicationDataフォルダパスの取得

解決

TtPIPICH 2004-07-16 01:57:07 No: 9930

るるとん＠Ｋです
環境変数の取得方法を調べたのですが、引数のPCharの文字列を何にしたら良いのか分かりません。
多分APIのヘルプに載っているのかと思いますが、ヘルプを持っておりません。
教えて頂けないでしょうか？

さわ 2004-07-16 02:06:59 No: 9931

システムプロパティの環境変数を見ればキー文字列判りますよ
もしくはコマンドラインでSETを叩くか？

ＴｔPIPICH 2004-07-16 02:19:32 No: 9932

プログラム->アクセサリ->システムツール->システム情報
でも、
マイコンピュータ->プロパティ
でものってません

TtPIPICH 2004-07-16 02:21:05 No: 9933

コマンドラインの結果
TMP=c:\windows\TEMP
TEMP=C:\windows\TEMP
PROMPT=$p$g
winbootdir=C:\WINDOWS
COMSPEC=C:\WINDOWS\COMMAND.COM
PATH=C:\WINDOWS;C:\WINDOWS\COMMAND;C:\PERL\BIN;C:\WINDOWS;C:\WINDOWS;C:\WINDOWS\
COMMAND;C:\PROGRA~1\BORLAND\DELPHI6\BIN;C:\PROGRA~1\BORLAND\DELPHI6\PROJECTS\BPL

windir=C:\WINDOWS
BLASTER=A220 I5 D1 T4

さわ 2004-07-16 02:29:01 No: 9934

↑結果が切れてますょ
set APPDATA って叩いて？
出てきたパスがあなたの欲しかったパスであれば？
ビンゴじゃないですか。。

TtPIPICH 2004-07-16 02:32:19 No: 9935

構文エラーだそうです
ちなみに引数をAPPDATAにしても無駄でした

さわ 2004-07-16 02:41:42 No: 9936

あなたの環境にはシェルフォルダがありません。。
残念。。

TtPIPICH 2004-07-16 02:45:02 No: 9937

あちゃー
C:\WINDOWS\Application Data内にフォルダを作ったアプリケーションはどうやったんだー
Win98だからすか？

にしの 2004-07-16 02:55:23 No: 9938

194702 - [HOWTO] Windows の特殊フォルダの位置を知る方法
http://support.microsoft.com/default.aspx?scid=kb;ja;194702

例えば。
procedure TForm1.Button1Click(Sender: TObject);
var
  Buf: array[0..512] of char;
begin
  SHGetSpecialFolderPath(Handle, Buf, CSIDL_APPDATA, FALSE);
  ShowMessage(String(Buf));
end;

TtPIPICH 2004-07-16 03:07:50 No: 9939

usesにShellAPIを入れてみましたがSHGetSpecialFolderPathが未定義..

TtPIPICH 2004-07-16 03:13:52 No: 9940

function SHGetSpecialFolderPath; external
shell32 name 'SHGetSpecialFolderPathA';
分かりました

さわ 2004-07-16 03:14:52 No: 9941

余談ですがDelphiにはShlObjってUnitがあります。。

TtPIPICH 2004-07-16 03:17:23 No: 9942

にしのさんさわさん有難う御座います。
ところで、これは9x系とNT系両方で有効なのでしょうか？

jok 2004-07-16 04:38:38 No: 9943

>ところで、これは9x系とNT系両方で有効なのでしょうか？

MSDN より

Minimum operating systems
Windows 2000, Windows NT 4.0 with Internet Explorer 4.0,
Windows 98, Windows 95 with Internet Explorer 4.0

TtPIPICH 2004-07-16 06:17:25 No: 9944

9x系のmeとnt系xpが分からない

jok 2004-07-16 07:48:38 No: 9945

Minimum なんだから、それ以上は大丈夫なのでは？

TtPIPICH 2004-07-16 17:01:49 No: 9946

あ、そっか
ありがとうございます！