본문 바로가기

Developist

Delphi/꿀팁 윈도우가 64비트인지 아닌지 확인하기 - 1 function isWindows64: Boolean; type TIsWow64Process = function(Handle: Windows.THandle; var Res: Windows.BOOL): Windows.BOOL; stdcall; var IsWow64Result: Windows.BOOL; IsWow64Process: TIsWow64Process; begin IsWow64Process := Windows.GetProcAddress(Windows.GetModuleHandle('kernel32'), 'IsWow64Process'); if Assigned(IsWow64Process) then begin if not IsWow64Process(Windows.GetCurrentProcess, IsWow6..
Delphi/꿀팁 문자열로 함수 호출하기 - 2 2018/11/14 - [ - Delphi] - 문자열로 함수 호출하기 - 1 typeTProcList = classpublicprocedure TestStringCallMethod1;function TestStringCallMethod2(s1, s2, s3 : string): Boolean;end; ...implementation usesRtti;procedure ExecMethod(MethodName:string; const Args: array of TValue);varR : TRttiContext;T : TRttiType;M : TRttiMethod;beginT := R.GetType(TProcList); for M in t.GetMethods dobeginif (m.Parent = t) and ..
Delphi/꿀팁 문자열로 함수 호출하기 - 1 uses..., Generics.Collections; typeTProcList = class(TDictionary); TForm1 = class(TForm)...procedure FormCreate(Sender: TObject);procedure FormDestroy(Sender: TObject);publicProcList : TProcList;procedure TestStringCallMethod;end; procedure TForm1.FormCreate(Sender: TObject);beginProcList := TProcList.Create(); //호출할 함수명과 함수 저장ProcList.Add('TestStringCallMethod', TestStringCallMethod);end; proce..

티스토리툴바