logo

.
Thursday 09th of September 2010    

Ankety

Co tu není dobré ?
 

Přihlášení



Provoz stránek

návštěv dnes: 29
návštěv včera: 59
návštěv za měsíc: 515
návštěv celkem: 17819

Home Tipy, triky, návody DISK, SLOŽKA, SOUBOR Soubor - je možné pracovat se souborem ?
Soubor - je možné pracovat se souborem ? Tisk Email
Hodnocení uživatelů: / 0
NejhoršíNejlepší 
Napsal uživatel Administrator   
Pátek, 05 Červen 2009 06:34
function JePouzivan(soubor : string ) : boolean; 
var HFileRes : HFILE; 
begin 
  Result := false; 
  if not FileExists(soubor) then exit; 
  HFileRes := CreateFile(pchar(soubor), GENERIC_READ or GENERIC_WRITE,0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); 
  Result := (HFileRes = INVALID_HANDLE_VALUE); 
  if not Result then CloseHandle(HFileRes); 
end; 
 
Zdroj:  http://www.zive.cz/Clanky/Tipy-a-triky-v-Delphi-dil-14/sc-3-a-103550/default.aspx
Aktualizováno Pátek, 05 Červen 2009 06:35
 

Přidejte svůj komentář

Vaše jméno:
Titulek:
Komentář:
yvComment v.1.24.0
bottom

top

kolik vás je ?

Právě připojeni - hostů: 2 

bottom

Založeno na Joomla!. Designed by: Free Joomla 1.5 Template, dns. Valid XHTML and CSS.