コマンドラインについて (ID：11192)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ご自分の環境は書いてないし，解決の文章を読んでも，何をやりたかった
のか，いまいち理解ができないのですが．

そんなこととは関係なしに，GetLongPathNameというのを知りませんでした．
で，やってみました．GetLongPathNameというのがないようなので，
かわりにGetLongPahtNameAでやってみました．

確かにWin98SEでパス名が大文字と小文字が区別されて取得できました．
知りませんでした．
実行ファイルの作成は，WindowsXP(SP1) + Delphi5 Pro(UP1)です．
新規作成プロジェクトにTButtonとTMemoを配置しています．

implementation

{$R *.DFM}

function GetLongPathNameA(ShortPathName: PChar; LongPathName: PChar;
         cchBuffer: Integer): Integer; stdcall; external 'kernel32.dll';

//====================================================================
//  GetLongPathNameとGetFullPathNameの違いテスト
//  GetLongPathNameはWin98でも大文字と小文字を区別して取得可能
//====================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
    AFileName : String;
    Buffer    : array[0..256] of Char;
    Dummy     : PChar;
begin
     AFileName:=ParamStr(0);
     Memo1.Lines.Add(AFileName);
     if (GetLongPathNameA(PChar(AFileName),Buffer,SizeOf(Buffer)))<>0 then begin
       Memo1.Lines.Add('GetLong  '+ Buffer);
     end;
     if GetFullPathName(PChar(AFileName),SizeOf(Buffer),Buffer,Dummy)<>0 then begin
       Memo1.Lines.Add('GetFull  '+Buffer);
     end;
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る