Datakent Ana Sayfa
Anasayfa Anasayfa > Diğer bölümler > Borland Delphi
  Aktif Konular Aktif Konular RSS: Masaüstü Yolu!
  Yardım Yardım  Hızlı Ara   Kayıt Ol Kayıt Ol  Giriş Giriş

Masaüstü Yolu!

 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
Deadly_scorpion Açılır Menü Göster
Newbie
Newbie
Simge
YaŞaYan Ölü

Kayıt Tarihi: 21.Temmuz.2007
Bulundugu Yer: Hüzün Adası
Online: Sitede Değil
Gönderilenler: 166
  Alıntı Deadly_scorpion Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Masaüstü Yolu!
    Gönderim Zamanı: 22.Ocak.2009 Saat 22:25

{uses
ActiveX,ShlObj}

 

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ShlObj, ActiveX;
function GetSystemPath(Folder: Integer): string;

implementation
function GetSystemPath(Folder: Integer): string;
var
PIDL: PItemIDList;
  Path: LPSTR;
AMalloc: IMalloc;
begin
Path := StrAlloc(MAX_PATH);
  SHGetSpecialFolderLocation(Application.Handle, Folder, PIDL);
  if SHGetPathFromIDList(PIDL, Path) then
    Result := Path;
  SHGetMalloc(AMalloc);
  AMalloc.Free(PIDL);
  StrDispose(Path);
end;
end.


{Kullanım}

var
yol:string;
begin
yol:=GetSystemPath(CSIDL_DESKTOP);
showmessage(yol);

 
Derlenmiş örnek için tıklayınız
Belki bir parça tuhafım...
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Menü Göster



Bu Sayfa 0,203 Saniyede Yüklendi. [power by : WebWiz]