Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Windows 8++ Kilit Ekranındaki Resimleri Çekme
#1
Windows 8 ve sonrasında, her ekranı kilitlediğimizde windows random fotoğraf getiriyor bazıları çok güzel, bu fotoğrafları alabilmek için yaptığım basit bir çalışma.

var
  Form7: TForm7;

implementation

{$R *.dfm}

function LocalAppDataPath: string;
const
 SHGFP_TYPE_CURRENT = 0;
var
 path: array [0 .. MaxChar] of char;
begin
 SHGetFolderPath(0, CSIDL_LOCAL_APPDATA, 0, SHGFP_TYPE_CURRENT, @path[0]);
 Result := StrPas(path);
end;

procedure TForm7.Button1Click(Sender: TObject);
var
 Rec: TSearchRec;
 path, FileName: string;
 i: integer;
 SaveFolder: TSaveDialog;
begin
 SaveFolder := TSaveDialog.Create(nil);
 try
   if SaveFolder.Execute then
   begin
     path := IncludeTrailingPathDelimiter(LocalAppDataPath +
       '\Packages\Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\LocalState\Assets');
     FileName := '*.*';
     i := 0;
     if FindFirst(path + FileName, faAnyFile - faDirectory, Rec) = 0 then
       try
         repeat
           i := i + 1;
           CopyFile(PWideChar(path + Rec.Name),
             PWideChar(SaveFolder.FileName + inttostr(i) + '.jpg'), true);
             Button1.Caption := 'Fotoğraflar Alınıyor... '+inttostr(i);
         until FindNext(Rec) <> 0;
       finally
         FindClose(Rec);
       end;

   end;
 finally
   try
    if i<>0 then
     ShellExecute(Handle, 'open', PWideChar(ExtractFileDir(SaveFolder.FileName)
       ), nil, nil, SW_SHOWNORMAL);
   except
     on E: Exception do
       ShowMessage(E.Message);
   end;
   SaveFolder.Free;
 end;
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#2
Elinize Sağlık Güzel Bir çalışma
Ek olarak 
uses

 SHFolder,ShellAPI;
eklerseniz ekstra sorulara maruz kalınmaz sanırım  Wink
Cevapla
#3
(20-01-2017, Saat: 12:38)Cyber Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlElinize Sağlık Güzel Bir çalışma
Ek olarak 
uses

 SHFolder,ShellAPI;
eklerseniz ekstra sorulara maruz kalınmaz sanırım  Wink

Uses shellapi;
Var olmaz mı Smile
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter





Konuyu Okuyanlar: 1 Ziyaretçi