Új hozzászólás Aktív témák

• #610 VladimirR nagyúr gone #609

  Új Válasz 2005-02-18 16:16:34 #610

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  VladimirR

  nagyúr

  válasz gone #609 üzenetére

  function FileOpen(const FileName: string; Mode: LongWord): Integer;
  ahol mode lehet:
  fmCreate = $FFFF;
  fmOpenRead = $0000;
  fmOpenWrite = $0001;
  fmOpenReadWrite = $0002;
  
  fmShareCompat = $0000 platform;
  fmShareExclusive = $0010;
  fmShareDenyWrite = $0020;
  fmShareDenyRead = $0030 platform;
  fmShareDenyNone = $0040;
  
  

• #472 BatemanX tag gone #471

  Új Válasz 2005-01-10 10:10:00 #472

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  BatemanX

  tag

  válasz gone #471 üzenetére

  Felhasználónév:
  
  procedure TForm1.BitBtn1Click(Sender: TObject);
  Var
  UserName : string;
  UserNameLen : Dword;
  Begin
  UserNameLen := 255;
  SetLength(userName, UserNameLen) ;
  If GetUserName(PChar(UserName), UserNameLen) Then
  Label1.Caption := UserName;
  
  end;
  
  A jogokat passzolom.

• #275 Hani aktív tag gone #274

  Új Válasz 2004-12-03 10:12:24 #275

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Hani

  aktív tag

  válasz gone #274 üzenetére

  Helló.
  
  Azt hiszem, érdemes lenne a helpben a Paramstr körül keresgélni.
  Ha minden igaz, akkor a ParamStr(0) magát a filenevet adja meg (=progi.exe), lehet, hogy meg lehetne próbálni a ParamStr(1)-et, pl.
  
  Sok szerencsét.

Új hozzászólás Aktív témák