[code=delphi]uses ShlObj, ActiveX, ComObj;
...
procedure TForm1.Button1Click(Sender: TObject) ;
var
IObject : IUnknown;
ISLink : IShellLink;
IPFile : IPersistFile;
PIDL : PItemIDList;
InFolder : array[0..MAX_PATH] of Char;
TargetName : String;
LinkName : WideString;
begin
TargetName := 'c:\windows\calc.exe';

{Use TargetName:=ParamStr(0) which
returns the path and file name of the
executing program to create a link to your
Application}

I

Bir form açtığımda sağda solda çıkıyor.
Tam açıldığında masaüstüne otomatik ortalanma yapabilir miyiz?

[code=vba]Beep
   MsgBox "Bu Ay Ayrılanları İsim Giriş Formunda İşaretlediniz Mi?", vbQuestion, "DİKKAT"
   Dim KlsYol As String
   KlsYol = "C:\Users\ahmet.aydınlar\Desktop"
   If Len(Dir(KlsYol, vbDirectory)) = 0 Then
      MkDir KlsYol
   Else
       If yzdrsecenek = 1 Then
       DoCmd.OpenReport "ÜCRETLİLER LİSTESİ", acViewPreview
       ElseIf yzdrsecenek = 2 Then
       DoCmd.OutputTo acOutputReport, "ÜCRETLİLER LİSTESİ", "PDFFormat(*.pdf)", KlsYol & "\" & "ÜCRETLİLER

merhaba arkadaşlar,

1-    yer = CurrentProject.Path & "\liste.xls"    'bu haliyle yaptığımda access dosyasının bulunduğu klasöre liste.xls adıyla kaydediyor.  oysa access dosyam masa üstünde olmayabiliyor.

yada

2-   "C:\Users\akdal\Desktop\lilste.xls"          bu haliyle olduğunda da belirttiğim klasöre liste.xls adıyla kaydediyor.


benim yapmaya çalıştığım excel'e gönder dediğimde her zaman masaüstüne kaydetsin. 

2numarada belirttiğim gibi yaptığımda başka bilgisayarda kullanaca