Masa üstünü nasıl bulurum..

[Shou]

Merhabalar ben bir log dosyası yapıyorum da bunu her bilgisayarda masa üstüne kaydetsin istiyorum masa üstünü nasıl gösterebilirim aşagıda kodum,

Kod: Tümünü seç

memo1.Lines.SaveToFile('gd.dll'); 

burada gd.dll oldugu yere kaydediyor ama ben masa üstüne kaydetsin istiyorum.

[SimaWB]

Windows'un özel klasörlerlerine ulaşmak için : SHGetSpecialFolderLocation

[Shou]

Ama bununla masa üstünü nasıl bulucam yapamadım?

[unicorn64]

SHGetSpecialFolderLocation neymiş diye googleda arayınca şöyle birşey çıktı karşıma....

[Shou]

Abi googleda birkaç örnek buldum ama delphide hata veriyor olmadı yani??

Bknz : http://www.swissdelphicenter.ch/torry/s ... php?id=233

[unicorn64]

ne hatası aldığını da yazsan keşke.... sence son mesajını okuyan kişiler nasıl bir sıkıntı yaşadığını nasıl anlayabilir...?

[Shou]

PItemIdList , kısmı hata verior ondan başka hata verenlerde var sanırım.

[unicorn64]

ne hatası aldığını da yazsan keşke....

[Shou]

Yazdım zaten : PItemIdList , kısmı hata veriyor ??

[SimaWB]

Yazdım zaten : PItemIdList , kısmı hata veriyor ??

Tamam PItemIdList hata veriyor da verdiği hata mesajı nedir?

Tahminin uses kısmına ActiveX, ShlObj eklememişsiniz. Sizin de gönderdiğiniz linkte yazıyor bu.
Desktop için şöyle yapabilirsiniz:

Kod: Tümünü seç

function GetDesktopFolder: string;
var
  buf: array[0..MAX_PATH] of char;
  pidList: PItemIDList;
begin
  Result := '';
  SHGetSpecialFolderLocation(Application.Handle, CSIDL_DESKTOP, pidList);
  if (pidList <> nil) then
    if (SHGetPathFromIDList(pidList, buf)) then
      Result := buf;
end;

CSIDL_DESKTOP değişkenini değiştirerek diğer klasörlere de ulaşabilirsiniz. Yine sizin yazdığınız o linkte bu değişkenlerin listesi mevcut

[Shou]

teşekkür ederim abi uses eklemedigim içinmiş..