Downloads Yolu

[Serhat]

Merhaba "C:\Users\KAYRA\Downloads" Adresini nasıl alabilirim

[PROGRAMADOR]

Kullanıcı adını almanız yeterli. Geri kalan bölüm aynı.

[SimaWB]

SHGetFolderPath'ı araştırmanızı tavsiye ederim

[brs]

Daha pratik yolu var mı bilemiyorum, ama sanırım senin işini görür...

Kod: Tümünü seç

function CurDrv: Char;
var
  S1: string;
  S2: Char;
begin
  GetDir(0, S1);
  S2 := S1[1];
  CurDrv := S2;
end;

procedure TForm1.DownloadsAdresClick(Sender: TObject);
var
  Name: array [0 .. 127] of Char;
  BilgisayarAdi: string;
  S: dword;
begin
  S := SizeOf(Name);
  GetUserName(Name, S);

  Label1.Caption := CurDrv + ':\' + 'Users' + '\' + Name + '\' + 'Downloads';
end;

[warder]

Kod: Tümünü seç

	wchar_t *szPath = NULL;   
        UnicodeString sAdres = "";                              
	if (SUCCEEDED(SHGetKnownFolderPath(FOLDERID_Downloads, // vista ve sonrası için FOLDERID...
		KF_FLAG_CREATE, NULL, &szPath))) {
		sAdres = String(szPath);
	}

uses için Shlobj olması lazım.

[Serhat]

Kod: Tümünü seç

	wchar_t *szPath = NULL;   
        UnicodeString sAdres = "";                              
	if (SUCCEEDED(SHGetKnownFolderPath(FOLDERID_Downloads, // vista ve sonrası için FOLDERID...
		KF_FLAG_CREATE, NULL, &szPath))) {
		sAdres = String(szPath);
	}

uses için Shlobj olması lazım.

Hocam google cok arastirdim fakat me oldugumu cozemedim kodun devami nedir acaba

[warder]

sAdres değişkenine kodun çalıştığı XP sonrası windows yüklü makinedeki downloads yolu alınmış oldu.
Nerede kullanırsanız kullanırsınız. Devamı size kalmış.
Delphi için değişken tanımlarında ve syntax üzerinde oynama yapmanız gerekecek tabiki.

http://msdn.microsoft.com/en-us/library/cc230355.aspx