ホーム
Top.Mail.Ru Yandeks.Metrika
フォーラム:「システム」;
現在のアーカイブ:2002.01.08;
ダウンロード:[xml.tar.bz2];

ダウン

Windowsのお気に入り 似ている枝を探す


Schummi   (2001-09-15 07:45) [0]

マスターこんにちは! そのような質問に答えてください-コンピューターのユーザーがZainstalin Vindaと彼女の言語(ロシア語または英語)を持っている場所を見つける方法、またはむしろ、お気に入りフォルダがどこにあるかを見つける方法? 事前に感謝します!



Ajax   (2001-09-15 22:30) [1]

Все системные папки.

procedure TForm1.FormCreate(送信者:TObject);
VAR
reg:TRegistry;
ts:TStrings。
i:整数。
始まる
reg:= TRegistry、作成します。
reg.RootKey:= HKEY_CURRENT_USER;
reg.LazyWrite:= false;
reg.OpenKey("Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders",false);
ts:= TStringList.Create;
reg.GetValueNames(ts);
for i:= 0 to ts.Count -1 do begin
Memo1.Lines.Add(ts.Strings[i] +" = " +reg.ReadString(ts.Strings[i]));
終わり
ts.Free;
reg.CloseKey;
reg.free;
終わり



Schummi   (2001-09-16 07:22) [2]

Спасибо, Ajax!



Борисов Александр   (2001-09-17 01:32) [3]

В книжке"Delphi 3.0 Для всех" (Федоров А.Г., изд."КомпьютерПресс", 1998г.), в разделе "Как сделать инсталятор" я нашел следующий код:
VAR
SPath : Array[0..MAX_Path-1] of Char;
Path : String;
..............
始まる
//Подготовительная работа: находим каталог, в котором расположена
//Windows, и формируем маршрут к каталогу WINDOWS/DESKTOP, где
//храняться ярлыки, отображаемые в рабочей области

GetWindowsDirectory(sPath, MAX_PATH);
Path := StrPas(sPath);
Path := Path + "\DESKTOP\";
.............

これがコードです。



Schummi   (2001-09-22 07:42) [4]

Спасибо и тебе, Борисов Александр!



[N\A]   (2001-09-22 14:50) [5]

и еще кое что по теме...только с использованием api...
function GetWinDir: string;
VAR
Buf:Charの配列[0..MAX_PATH];
始まる
GetWindowsDirectory(@Buf[0], MAX_PATH+1);
結果:= PChar(@Buf [0]);
if Result <> "" then
if Result[Length(Result)] <> "\" then
Result := Result + "\";
終わり

function GetSysDir: string;
VAR
Buf:Charの配列[0..MAX_PATH];
始まる
GetSystemDirectory(@Buf[0], MAX_PATH+1);
結果:= PChar(@Buf [0]);
if Result <> "" then
if Result[Length(Result)] <> "\" then
Result := Result + "\";
終わり

function GetTempDir : string;
VAR
Buf:Charの配列[0..MAX_PATH];
始まる
Windows.GetTempPath(MAX_PATH+1,@Buf[0]);
結果:= PChar(@Buf [0]);
if Result <> "" then
if Result[Length(Result)] <> "\" then
Result := Result + "\";
終わり

function ReadRegStr(RootKey:HKey; SubKey, Value:String):String;
VAR
C: Array [0..254] of Char;
T,S: DWORD;
K: HKEY;
始まる
結果:= "";
T:=REG_SZ;
S:=SizeOf(c);
if RegOpenKeyEx(RootKey,PChar(SubKey),0,KEY_READ,K)=ERROR_SUCCESS then
if RegQueryValueEx(K, PChar(Value),nil,@T,@C,@S)=ERROR_SUCCESS then
Result := C;
RegCloseKey(K);
終わり

function GetShellFolderPath(const Name:String):String;
VAR
S:文字列。
始まる
S:=ReadRegStr(HKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders",Name);
Result:=s+"\";
終わり

Desktop - Рабочий стол
Favorites - избранное

if GetShellFolderPath("Favorites")<>"\" then
s:= GetShellFolderPath("Favorites");



ページ: 1 全枝

フォーラム:「システム」;
現在のアーカイブ:2002.01.08;
ダウンロード:[xml.tar.bz2];

2階





メモリ:0.56 MB
時間:0.023 c
1-22229
赤の男
2001-12-16 14:31
2002.01.08
RichEditに関連する質問です。


1-22042
天使の
2001-12-15 23:04
2002.01.08
jpgファイルを画像にアップロードする


1-22261
bk
2001-12-17 15:42
2002.01.08
Excel


3-21927
Aleks_Vl
2001-12-04 09:47
2002.01.08
DTS + Delphi


1-22047
手元
2001-12-17 13:12
2002.01.08
作成を支援





アフリカーンス語 アルバニア語 アラビア語 アルメニア語 アゼルバイジャン語 バスク ベラルーシ ブルガリア語 カタルーニャ語 中国語(簡体字) 中国語(繁体字) クロアチア語 チェコ語 デンマーク語 オランダ語 英語 エストニア語 フィリピン語 フィンランド語 フランス語
ガリシア語 ジョージアン ドイツ語 ギリシャ語 ハイチ語 ヘブライ語 ヒンディー語 ハンガリー語 アイスランド語 インドネシア語 アイリッシュ イタリア語 日本語 韓国語 ラトビア語 リトアニア マケドニア語 マレー語 マルタ語 ノルウェー語
ペルシア語 ポーランド語 ポルトガル語 ルーマニア語 ロシア語 セルビア スロバキア語 スロベニア語 スペイン語 スワヒリ語 スウェーデン語 タイ語 トルコ語 ウクライナ語 ウルドゥー語 ベトナム語 ウェールズ語 イディッシュ語 ベンガル語 ボスニア語
セブアノ語 エスペラント グジャラート語 ハウサ語 モン族 イボ ジャワ語 カンナダ語 クメール語 ラオ語 ラテン マオリ語 マラーティー語 モンゴル語 ネパール語 パンジャブ語 ソマリ タミル語 テルグ語 ヨルバ語
ズールー語
Английский Французский Немецкий Итальянский ポルトガル語 Русский Испанский