ソス@ソスソスソスtソス@ソスCソスソスソスフコソスsソス[ソスノつゑソスソスト。
|
ソスEC/C++
ソスEDelphi
ソスEVisual BasicソスソスソスSソスソス
ソス@(VB2-VB6ソスソス.NETソスソスソスp)
ソスEVisual Basic(VB2-VB6)
ソスEVisual Basic .NET
ソスEVisual C++
ソスEpapy's softwarelibrary
ソスソスソスソスホゑソスソスBソスソスソス竄ェソスソスソスソスワゑソスソスB
ソスtソス@ソスCソスソスソスフコソスsソス[ソスソスソスソス謔、ソスニゑソスソスト、webソスソスソスソスTソスソスソスvソスソスソスRソス[ソスhソスソスEソスソスソスト組ソスン搾ソスソスソスナみまゑソスソスソスソスBソスソスソスフ暦ソスソス'a.exe'ソスソスvソスソスソスOソスソスソスソスソスtソス@ソスCソスソスソスソスmysoftソスニゑソスソスソスソスfソスBソスソスソスNソスgソスソスソスノコソスsソス[ソスソスソス謔、ソスニゑソスソストゑソスソスソスニゑソスソスソスネゑソスナゑソスソスソスソスAソスヌゑソスソスノゑソスRソスsソス[ソスソスソスソスワゑソスソスソスB
ソスvソスソスソスOソスソスソスソスソスtソス@ソスCソスソスソスネ外ソスフ場所ソスネゑソスホ、ソスRソスsソス[ソスナゑソスソスソスフでゑソスソスソスソスAソスネゑソスソスナゑソスソス蛯、ソスソスソスHソスH
var
FromF,Tof :String;
PathID: PItemIDList;
Path : array[0..MAX_PATH] of char;
begin
ソス@FromF := ExtractFilePath( Application.ExeName ) + 'a.exe' + #0;
SHGetSpecialFolderLocation(Application.Handle, CSIDL_PROGRAMS, PathID);
SHGetPathFromIDList(PathID, Path);
ToF := Path + '¥mysoft¥a.exe';
CopyFile(PChar(FromF),PChar(ToF),True);
ソスワゑソスソスAソスsソスソスソスソスネゑソスtソス@ソスCソスソスソスソスRソスsソス[ソスソスソスソスソスソスソスソスナゑソスソスソスソスAソスヌゑソスソスソスソスソスホよいソスフでゑソスソス蛯、ソスソスソスBソスsソスソスソスソスネゑソスtソス@ソスCソスソスソスソスRソスsソス[ソスソスソスソスニは、ソス痰ヲソスホ、'*.txt'ソスネゑソスホ、ソスfソスBソスソスソスNソスgソスソスソスノゑソスソスソスeソスLソスXソスgソスtソス@ソスCソスソスソスソスソスラてゑソスRソスsソス[ソスソスソスソスニゑソスソスソスソスソスソスニでゑソスソスi'*.*ソスネらすソスラてのフソス@ソスCソスソス'ソスjソスBソスソスヘゑソスAソスミとつゑソスソスツコソスsソス[ソスソスソスネゑソスソストはなゑソスネゑソスソスフでゑソスソス蛯、ソスソスソスH
ソスソスしソスソスソスソスソス閧「ソスソスソスワゑソスソスB
ソスヘづゑソスソスソス
ToF := 'C:¥ProgramFiles¥mysoft¥a.exe';
ソスニゑソスソストゑソスソスソスProgramFilesソスノコソスsソス[ソスナゑソスソスソスソスソスナゑソスソスソスソスBソスBソスネんかスソス}ソス[ソスgソスソスソスソスネゑソスソスナゑソスソスソスヒ。ソスB
ソスヨ撰ソスソスネどゑソスgソスソスソスソスProgramFilesソスフ位置ソスソスソスソス閧オソストゑソス閧スソスソスソスフでゑソスソスソスソスBソスB
ソスワゑソスソスAソスfソスBソスソスソスNソスgソスソスソスソスソスニコソスsソス[ソスソスソスソスニゑソスソスソスソスフは可能ソスネゑソスナゑソスソス蛯、ソスソスソスB
ソスソスしソスソスソスソスソス閧「ソスソスソスワゑソスソスB
> SHGetSpecialFolderLocation(Application.Handle, CSIDL_PROGRAMS, PathID);
CSIDL_PROGRAMS ソスソス CSIDL_PROGRAM_FILESソスノ変更ソスソスソストみてゑソスソスソスソスソスソスソスソスB
ソスソスソスソスニ、PathID ソスヘゑソスソスソスネゑソスソスネゑソスソスソスソスソス CoTaskMemFree ソスソスソスナ会ソスソスソスソスソス驍アソスニゑソスソスソスソスソスソスソス゚ゑソスソスワゑソスソスB
> ソスsソスソスソスソスネゑソスtソス@ソスCソスソスソスソスRソスsソス[ソスソスソスソスソスソスソスソスナゑソスソスソスソスAソスヌゑソスソスソスソスソスホよいソスフでゑソスソス蛯、ソスソスソスB
> ソスfソスBソスソスソスNソスgソスソスソスソスソスニコソスsソス[ソスソスソスソスニゑソスソスソスソスフは可能ソスネゑソスナゑソスソス蛯、ソスソス
APIソスソス SHFileOperation ソスソスlソスbソスgソスナ抵ソスソスラてみてゑソスソスソスソスソスソスソスソスB
ソスソスソスソスソスソスSHFileOperationソスヘ抵ソスソスラまゑソスソスソスソスB
ソスソスソスソスソスソスソスASHFileOperationソスナはコソスsソス[ソスソスフフソス@ソスCソスソスソスフ指ソスソスソスPathソスソスgソスソスソスニ、Stringソス^ソスソスPcharソスフ互奇ソスソスソスソスソスソスネゑソスソスGソスソスソス[ソスソスソスNソスソスソスソスソスト使ソスソスソスワゑソスソスソスナゑソスソスソスソスBソスB
> ソスソスソスソスソスソスソスASHFileOperationソスナはコソスsソス[ソスソスフフソス@ソスCソスソスソスフ指ソスソスソスPathソスソスgソスソスソスニ、Stringソス^ソスソスPcharソスフ互奇ソスソスソスソスソスソスネゑソスソスGソスソスソス[ソスソスソスNソスソスソスソスソスト使ソスソスソスワゑソスソスソスナゑソスソスソスソスBソスB
ソスソスソスソスAソスソスソスソスソス SHFileOperation ソスソスソスソスソスソスソスフではなゑソスソスト茨ソスソスソスソスフ指ソスソスソスソス@ソスソスソスヤ茨ソスソスソストゑソスソス驍ゥソスソスナゑソスソス蛯、ソスB(^_^;)
ソスソスソスレの回答,ソスソスソス@ソスナはゑソスソスソスワゑソスソスが,ソスAソスvソスソスソスソス成ソスソスソストゑソスソスソスニ,ソスtソス@ソスCソスソスソスソス
ソスtソスHソスソスソス_ソスフ托ソスソスがソスKソスvソスノなるこソスニゑソスソスソスソスソスソスソスソスソスワゑソスソスD
ソスネ会ソスソスフペソス[ソスWソスノ参ソスlソスニなゑソスTソスソスソスvソスソスソスソスソスソスソスソスワゑソスソスDソスソスxソスソスソスソスソスネゑソスソストはゑソスソスソスソスソス
ソスナゑソスソス蛯、ソスソスソスD
http://takamichie.at.infoseek.co.jp/warehouse/index.html
"Program Files"ソスフパソスXソスヘ取得ソスナゑソスソスワゑソスソスソスソスソスソスH
> Stringソス^ソスソスPchar
ソス@ソスモゑソスソスソスソスソスさゑソスフゑソスソスbソスソスソスソスAソスlソスソスソスソス黷スソスソスソスソスmソスソスワゑソスソスが…ソスB
Stringソス^ソスソスDelphiソスソスpソスフ形ソスソスソスナゑソスソスBAPIソスソストび出ソスソスソスニゑソスソスソスPCharソスノキソスソスソスXソスgソスソスソスネゑソスソストはゑソスソスソスソスワゑソスソスソスB
PCharソスフゑソスソスニは、ソスwソスソスソスvソスソスヌめば載ゑソスソストゑソスソスワゑソスソスB
ソスソスソスソスソスンゑソスソスソスソスソスソスが開ソスソスソスソスソス黷スソスソスソスjソスbソスgソスソスRソスソスソス|ソスソスfソスソスソス轤オソスソスソスナゑソスソスソスソスA
http://homepage3.nifty.com/m-and-i/tips/tipspage.htm#component
ソスソスソスソスソスフ「SHFileOperationソスRソスソスソス|ソス[ソスlソスソスソスgソスvソスソスソスソスソスソスソスソス゚でゑソスソスB
ソスネゑソスニゑソスSHFileOperationソスソスgソスソスソスト趣ソスソスソスソスナコソス[ソスhソスソスgソスソスナゑソスソスソスソスナゑソスソスソスソスBソスB
Program FilesソスフパソスXソスソスソス謫セソスナゑソスソスワゑソスソスソスB
ソスソスソスソスソスソスソスソスソスAソスソスソスsソスソスソストみゑソスソスProgramFilesソスフパソスXソスソスソスソスネゑソスソスト、ソスvソスソスソスOソスソスソスソスソスフパソスXソスンゑソスソスソスソスナゑソスソスソスソスEソスE
uses
ShlObj,SHFolder//ソスソスソスソスソスフ難ソスツゑソスヌ会ソスソスソスソスワゑソスソスソス
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
function GetDirectory(const DirID: Integer): String;
{ Private ソス骭セ }
public
{ Public ソス骭セ }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function TForm1.GetDirectory(const DirID: Integer): String;
var
IDs : PItemIDList;
buf : array [0..MAX_PATH] of Char;
begin
SHGetSpecialFolderLocation(0,DirID,IDs);
SHGetPathFromIDList(IDs,buf);
Result:=IncludeTrailingBackslash(String(buf));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:=GetDirectory(CSIDL_PROGRAM_FILES);
end;
end.
ソス@ソスソスソスソスナどゑソスソスナゑソスソス蛯、ソスソスソスHソスたソスソスソスソスAソスソスソスソスtソスHソスソスソス_ソス[ソス謫セソスノ搾ソスソスソスソスソスソスフでゑソスソスソスソスBMr.XRAYソスソスソスが托ソスソスフサソスCソスgソスナ難ソスソスソスソストゑソスソスソスソスフゑソスソスソスソスソスソスソスソスヘゑソスソスナゑソスソスB
ソスソスソスロに趣ソスソスヘ擾ソスソスSソスメなので、ソスソスソスフコソス[ソスhソスソスソスソスソスソスソスソスソスフゑソスソスかソスソスワゑソスソスソスB
(ソスソスyソスソスソスノ採点ソスソスソスソス閧「ソスソスソスワゑソスソスB)
ソスソスソスgソスpOSソスソスXP-sp2ソス|HomeEdition Delphi6PersonalソスナチソスFソスbソスNソスソスソスワゑソスソスソスソスB
ソス@ソスgソスpソスRソスソスソス|ソス[ソスlソスソスソスg
Buttonソスニ、labelソスソスミとつゑソスソスツ貼ソスソスtソスソス
ソスソスソスロにゑソスProgramFilesソスフパソスXソスソスソス¥ソスソスソスソスソスソス驍セソスソスソスナゑソスソスEソスEソスEソスB
>function TForm1.GetDirectory(const DirID: Integer): String;
>var
> IDs : PItemIDList;
> buf : array [0..MAX_PATH] of Char;
>begin
IDs := CoTaskMemAlloc(Sizeof(PItemIDList)); // ソスソスソスソスsソスvソスH
> SHGetSpecialFolderLocation(0, DirID, IDs);
> SHGetPathFromIDList(IDs,buf);
> Result:=IncludeTrailingBackslash(String(buf));
CoTaskMemFree(IDs); // ソスソスソスソスsソスvソスH
>end;
TexWorkソスフコソス[ソスhソスナゑソスソスソスソスソスニ表ソスソスソスソスソスソスワゑソスソスソスソスBソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソス(^^)
ソスソスソスソスsソスvソスHソスソスソスソスフソスソスXソスソスソスソスノなゑソスワゑソスソスソスソスEソスE
ソスソスソスニ、IncludeTrailingBackslashソスヘプソスソスソスbソスgソスtソスHソス[ソスソスソスノ依托ソスソスソスソスソスニ警ソスソスソスソスソスoソスワゑソスソスソスソスAソスソスソスネゑソスソスフでゑソスソスソスソスHソスH
>TexWorkソスフコソス[ソスhソスナゑソスソスソスソスソスニ表ソスソスソスソスソスソスワゑソスソスソスソスBソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソス(^^)
ソス謔ュソスかソスソスワゑソスソスソスヒーソスB
ソスソスヤ擾ソスソス゚のソスソスXソスナ托ソスソスフ人ソスソスソスソスソスナに難ソスソスソスソストゑソスソスソストゑソスソスソスじゑソスネゑソスソスナゑソスソスソスソスB
ソスソスソスソスソスソスソス髣晢ソスRソスソスソストゑソスソスソスワゑソスソスH
>ソスソスソスニ、IncludeTrailingBackslashソスヘプソスソスソスbソスgソスtソスHソス[ソスソスソスノ依托ソスソスソスソスソスニ警ソスソスソスソスソスoソスワゑソスソスソスソスAソスソスソスネゑソスソスフでゑソスソスソスソスHソスH
ソスwソスソスソスvソスノ擾ソスソスソスソストゑソスソスソスワゑソスソスソスB
ソスソスソスネ会ソスソスソスソスソスワゑソスソスソスソスB
ソスンなゑソスソスソスAソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスソスソスI
> ソスソスソスネ会ソスソスソスソスソスワゑソスソスソスソスB
ソスSソスソスソスソスソスソスソスソスソス黷スソスフゑソスソスネゑソスソス[
ソスネんか後味ソスフ茨ソスソスソスソスXソスソスソスbソスhソスB
ソスソスソスソスソスソスソス閧オソスネゑソスソスネ。
ソス}ソスiソス[ソスソスソスト大事ソスソスソスヒ。
ソスソスソスソスソスソスソスソスソスツゑソスソスヘなゑソスソスフでゑソスソスソスソスEソスEソスB
ソスモゑソスソスソスソスソスさゑソスフソスソスXソスソスQソスlソスノなゑソスワゑソスソスソスソスBソスソスソスソスソスンゑソスソスソスソスソスソスソスフソスソスXソスソスQソスlソスノなゑソスワゑソスソスソスソスB
ソスdソスソスソスソスソスIソスソスソスソストまとめてソスソスXソスソスヌんだので、TexWorkソスソスソスソスフソスソスXソスソスソスソスヤ茨ソスロゑソスソスツよくソスト。ソスBソス¥ソスソスソスソスネゑソスソスナゑソスソスB
ソスソスソスネ会ソスソスソスニゑソスソスソスソスフは鯉ソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスナゑソスソスB
ソスFソスソスソスソスフ擾ソスソスソスソスフゑソスソスソスソスソスソスナ会ソスソスソスナゑソスソスワゑソスソスソスソスB