ドラッグフォルダのパスを取得
ドラッグされたフォルダのフォルダパスを取得します。
function fnGetDragFolderPath(var strFolder:string):integer;
var
strPath:string;
iRes:integer;
begin
strFolder := '';
case paramcount of
0:iRes := -2;
1:iRes := 1;
else iRes := -3;
end;
if iRes = 1 then begin
strPath := ParamStr(1);
if fnFolderExists(strPath) then begin
strFolder := ParamStr(1);
end else begin
iRes := -4;
end;
end;
Result := iRes;
end;