Как обратится к рабочему столу - Delphi

@NIKOLAYY · Регистрация: 22.09.2012

Если на конкретном компьютере то так получается-

Delphi

1	memo1.Lines.SaveToFile('C:\Users\Николай\Desktop\555.txt');

А если на другом?

И если на другом еще и другая операционка?

@HanDi · 23.05.2013, 22:25

DFolder:String;

Delphi

function GetUserDesktop: string;
var Reg: TRegistry;
begin
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',
  false);
  Result:=reg.ReadString('Desktop');
  Reg.Free;
end;

Delphi

1	DFolder:=GetUserDesktop;

Delphi

1	memo1.Lines.SaveToFile(DFolder+'\555.txt');

@volvo · 23.05.2013, 22:30

Сообщение от NIKOLAYY

А если на другом?

А я уже показывал тебе, как берется этот адрес:

Delphi

uses ..., ShlObj;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Path: array [0..MAX_PATH] of Char;
begin
  ShGetSpecialFolderPath(Application.Handle, Path, CSIDL_DESKTOPDIRECTORY, False);
  ShowMessage(Path);
end;

@Markus_13 · 23.05.2013, 22:38

Сообщение от HanDi

reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', false);

Когда же вы перестанете юзать этот ключ реестра =\
Если запустите это на "чистой" винде - в этом ключе может просто не оказаться нужных данных...
Юзайте нативки:

Delphi

...
uses Windows,ShlObj;
...
function gDesktop:string;
var a:array[0..MAX_PATH]of char;
begin
  SHGetFolderPath(0, CSIDL_COMMON_DESKTOPDIRECTORY, 0, 0, a);
  result := a;
  result := result + '\';
end;

@volvo · 23.05.2013, 22:43

Сообщение от Markus_13

CSIDL_COMMON_DESKTOPDIRECTORY

Это не тот путь, который просил TC. Ему надо было для текущего пользователя.

@Markus_13 · 23.05.2013, 22:45

UI, да, просто функцию свою копирнул, значит так:

Delphi

1	SHGetFolderPath(0, CSIDL_DESKTOPDIRECTORY, 0, 0, a);

З.Ы.

Сообщение от UI

ShGetSpecialFolderPath

в мсдн эта функция уже давно как "неподдерживаемая" указана...

@volvo Супер-модератор 25096 / 16776 / 5274 Регистрация: 22.10.2011 Сообщений: 29,679 Записей в блоге: 5
	23.05.2013, 22:43	#5
	Сообщение от Markus_13 CSIDL_COMMON_DESKTOPDIRECTORY Это не тот путь, который просил TC. Ему надо было для текущего пользователя. 0

	23.05.2013, 22:45

Опции темы

Delphi для начинающих

Как обратится к рабочему столу - Delphi