www.domaci.de Forum Indeks Home
Portal • Forum • Novi upisi • Pretraga • Link do nas • Domaći filmovi • Lista korisnika • Tim sajta • Proverite privatne poruke • Prijava • Registracija
Pravilnik • FAQ • Profil • Favorites • Galerija slika • Top lista • Download MP3 • MP3 razno • Spotovi • Noviteti 2013 • Muzički noviteti 2014

Delphi: Kopiranje fajlova u Windows Clipboard
Upišite novu temu   Odgovorite na temu    www.domaci.de Forum Indeks -> ~ Programiranje ~
::  
Autor Poruka
himzo
Banovan!

Odomaćeni član
Odomaćeni član



Godine: 42

Datum registracije: 24 Okt 2005
Poruke: 1390
Mesto: Vojvoda Stepa

serbia.gif
PorukaPostavljena: Pon Nov 28, 2005 10:57 am    Naslov poruke: Delphi: Kopiranje fajlova u Windows Clipboard Na vrh strane Na dno strane

Ovde ću vam prikazati kako se fajlovi kopiraju u Windows Clipboard odakle ih je kasnije moguće poslati opcijom Paste ili prečicom Ctrl+V na bilo koje mesto na nosaču podataka. Procedura radi isto što i klasično Edit\Copy ili Ctrl+C.
Dodajte prvo u uses klauzulu module ShlObj i ClipBrd:
Code:

uses
  ShlObj, ClipBrd;

Procedura koja kopira fajlove u Clipboard treba da izgleda ovako:
Code:

procedure CopyFilesToClipboard(FileList: string);
var
  DropFiles: PDropFiles;
  hGlobal: THandle;
  iLen: Integer;
begin
  iLen := Length(FileList) + 2;
  FileList := FileList + #0#0;
  hGlobal := GlobalAlloc(GMEM_SHARE or GMEM_MOVEABLE or GMEM_ZEROINIT,
                                       SizeOf(TDropFiles) + iLen);
  if (hGlobal = 0) then raise Exception.Create('Greška: Ne može se izvršiti deljenje memorije.');
    begin
    DropFiles := GlobalLock(hGlobal);
    DropFiles^.pFiles := SizeOf(TDropFiles);
    Move(FileList[1], (PChar(DropFiles) + SizeOf(TDropFiles))^, iLen);
    GlobalUnlock(hGlobal);
    Clipboard.SetAsHandle(CF_HDROP, hGlobal);
    end;
end;

Parametar FileList sadrži listu fajlova koje je potrebno smestiti u Clipboard. Fajlovi se medjusobno razdvajaju znakom #0 (prazan string ili nula-string), npr:
Code:

  CopyFilesToClipboard('c:\slika.bmp'#0'c:\tabela.txt'#0'c:\film.avi');


 
Prikaz poruka:   
Upišite novu temu   Odgovorite na temu    www.domaci.de Forum Indeks -> ~ Programiranje ~ -> Delphi: Kopiranje fajlova u Windows Clipboard Vreme je podešeno za GMT + 1 sat
Strana 1 od 1

 
Pređite u:  
Vi ne možete otvarati nove teme u ovom forumu
Vi ne možete odgovarati na teme u ovom forumu
Vi ne možete menjati Vaše poruke u ovom forumu
Vi ne možete brisati Vaše poruke u ovom forumu
Vi ne možete glasati u anketama u ovom forumu
Vi ne možete postavljati fajlove u ovom forumu
Vi ne možete preuzeti fajlove sa ovog foruma





- Burek Forum - Doček Nove 2018. godine - Venčanja, svadbe - Proslave - TipoTravel - Kuda večeras - Anwalt - legal -

Bookmark to: Twitter Bookmark to: Facebook Bookmark to: Digg Bookmark to: Del.icio.us Bookmark to: StumbleUpon