programa win kısayolları ekleme

[ademcicek]

Ben programımın içerisine windows kısayolları koydum.

örneğin:
bilgisayarım,
belgelerim,
internet explorer,
yeni ileti oluştu.

bunlardan İnternet exploreri çalıştırdım.boş bir internet sayfasını açtım.
ama bilgisayarım ve belgelerimi yapamadım.bir de işletim sisteminin ingilizce mi,türkçe olduğunuda tabiki önemli ouyor.
nasıl yapabilirim.
soru:ilgisayarım ve belgelerimin kısayolunu programın içinden nasıl çalıştırabilirim.
çok teşekür ederim.

[mavsar]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
PIDL: Pointer;
Path: LPSTR;
const
CSIDL_RECENT = $0008;
begin
Path := StrAlloc(MAX_PATH);
SHGetSpecialFolderLocation(Handle, CSIDL_RECENT, @PIDL);
if SHGetPathFromIDList(PIDL, Path) then // returns false if folder isn't
part of file system
  begin
  OpenDialog1.InitialDir := Path;
  OpenDialog1.Execute;
  end;
StrDispose(Path);
end;

Bazı Sabitler

Kod: Tümünü seç

  CSIDL_DESKTOP            = $0000;
  CSIDL_PROGRAMS           = $0002;
  CSIDL_CONTROLS           = $0003;
  CSIDL_PRINTERS           = $0004;
  CSIDL_PERSONAL           = $0005;
  CSIDL_STARTUP            = $0007;
  CSIDL_RECENT             = $0008;
  CSIDL_SENDTO             = $0009;
  CSIDL_BITBUCKET          = $000a;
  CSIDL_STARTMENU          = $000b;
  CSIDL_DESKTOPDIRECTORY   = $0010;
  CSIDL_DRIVES             = $0011;  // My Computer
  CSIDL_NETWORK            = $0012;
  CSIDL_NETHOOD            = $0013;
  CSIDL_FONTS              = $0014;
  CSIDL_TEMPLATES          = $0015;